01.07.2007, 19:23
|
|
Участник форума
Регистрация: 01.02.2005
Сообщений: 233
Провел на форуме:
748321
Репутация:
112
|
|
Сообщение от Ky3bMu4
Код:
char szPath[256] ;
GetModuleFileName(NULL, szPath, sizeof(szPath));
SHFILEOPSTRUCT sh;
sh.hwnd = GetSafeHwnd();
sh.wFunc = FO_DELETE;
sh.pFrom =szPath;
sh.pTo = NULL;
sh.fFlags = FOF_NOCONFIRMATION | FOF_SILENT;
sh.hNameMappings = 0;
sh.lpszProgressTitle = NULL;
SHFileOperation (&sh);
Вынесет наш .ехе и даже не поперхнётся. procedure DeleteFiles(Source: string);
var
FO: TShFileOpStruct;
begin
FillChar(FO,SizeOf(FO),#0);
FO.Wnd := Form1.Handle;
FO.wFunc := FO_DELETE;
FO.pFrom := PChar(Source);
FO.pTo := 0;
FO.fFlags := FOF_NOCONFIRMATION or FOF_SILENT;
FO.hNameMappings :=0;
FO.lpszProgressTitle :=0;
ShFileOperation(FO);
end;
не сносит.. грит что файл юзаеться виндой =\
|
|
|