Авто удаление программы

[DartMrakkk]

Подскажите, можно ли сделать так, чтоб прога сама себя удалила ???

[Квэнди]

var
  BatchFile: TextFile;
  BatchFileName: string;
  TM: Cardinal;
  TempMem: PChar;

begin
  BatchFileName:=ExtractFilePath(ParamStr(0))+ '$$336699.bat';

  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile);

  Writeln(BatchFile,':try');
  Writeln(BatchFile,'del "' + ParamStr(0) + '"');
  Writeln(BatchFile,'if exist "' + ParamStr(0) + '" goto try');
  Writeln(BatchFile,'del "' + BatchFileName + '"');
  CloseFile(BatchFile);

  TM:=70;
  GetMem (TempMem,TM);
  GetShortPathName (pchar(BatchFileName), TempMem, TM);
  BatchFileName:=TempMem;
  FreeMem(TempMem);

  winexec(pchar(BatchFileName),sw_hide);

  halt;

Проблема будет только с русскими путями до исполняемого файла, думаю справитесь

[Alex21]

Цитата:

Очевидно что под Win32 удаление работающего кода невозможно. На время выполнения он просто добавляется к swap файлу - т.е. винды при нехватки памяти данные программы (массив переменных) сбрасывают в Swap (Page) файл, а сам код программы просто уничтожается из памяти, при возобновлении процесса, недостающие куски кода опять считываются из исходного файла. Понятно, что изменение файла пока его код выполняется будет иметь катастрофичные последствия, поэтому винды при запуске программы считают DLL или EXE файл по сути куском файла подкачки и запрещают любые манипуляции над ним. Кстати именно по этой причине все инсталляторы начинают свою работу с операции "Preparing to install", которая делает очень простую вещь - сам инсталлятор копируется во временную папку и перезапускает себя уже с винта, чтоб предотвратить крах системы при смене дискетты или CD. По этой же причине программы упакованные любыми EXE упаковщиками требуют больше памяти для запуска - так как загружается в память и исходный компрессированный код и декомпрессированный поток... Но несмотря на все сказанное можно удалить файл из "самого себя" при помощи маленькой хитрости: мы создаем и запускаем BAT файл - который и удалит программу, а саму программу закрываем, как только система "отпустит" файл - файл будет удален и затем BAT файл удалит самого себя. Пользователь всего этого не заметит - он увидит, что после завершении работы файла программы уже нет.

Uses ShellApi; 
procedure TForm1.FormDestroy(Sender: TObject); 
var f:textFile; 
FileName:String; 
begin 
FileName:=changefileext(paramstr(0),'.bat'); 
assignFile(f,FileName); 
rewrite(f); 
writeln(f,':1'); 
writeln(f,format('Erase "%s"',[paramstr(0)])); 
writeln(f,format('If exist "%s" Goto 1',[paramstr(0)])); 
writeln(f,format('Erase "%s"',[FileName])); 
closefile(f); 
ShellExecute(Handle, 'Open', PChar(FileName), nil, nil, sw_hide); 
end;

[Alex21]

И такой вариант:

uses  
  Windows, SysUtils;  
procedure DeleteMe;  
var  
  BatchFile: TextFile;  
  BatchFileName: string;  
  ProcessInfo: TProcessInformation;  
  StartUpInfo: TStartupInfo;  
begin  
  { создаём бат-файл в директории приложения } 
  BatchFileName := ExtractFilePath(ParamStr(0)) + '$$336699.bat';  
  { открываем и записываем в файл } 
  AssignFile(BatchFile, BatchFileName);  
  Rewrite(BatchFile);  
  Writeln(BatchFile, ':try');  
  Writeln(BatchFile, 'del "' + ParamStr(0) + '"');  
  Writeln(BatchFile,  
    'if exist "' + ParamStr(0) + '"' + ' goto try');  
  Writeln(BatchFile, 'del "' + BatchFileName + '"');  
  CloseFile(BatchFile);  
  FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);  
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;  
  StartUpInfo.wShowWindow := SW_HIDE;  
  if CreateProcess(nil, PChar(BatchFileName), nil, nil,  
     False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,  
     ProcessInfo) then  
  begin  
    CloseHandle(ProcessInfo.hThread);  
    CloseHandle(ProcessInfo.hProcess);  
  end;  
end;

[Alex21]

И еще способ:

procedure DeleteSelf;  
var  
  module: HModule;  
  buf: array[0..MAX_PATH - 1] of char;  
  p: ULong;  
  hKrnl32: HModule;  
  pExitProcess,  
  pDeleteFile,  
  pFreeLibrary: pointer;  
begin  
  module := GetModuleHandle(nil);  
  GetModuleFileName(module, buf, SizeOf(buf));  
  CloseHandle(THandle(4));  
  p := ULONG(module) + 1;  
  hKrnl32 := GetModuleHandle('kernel32');  
  pExitProcess := GetProcAddress(hKrnl32, 'ExitProcess');  
  pDeleteFile := GetProcAddress(hKrnl32, 'DeleteFileA');  
  pFreeLibrary := GetProcAddress(hKrnl32, 'FreeLibrary');  
  asm  
    lea eax, buf  
    push 0  
    push 0  
    push eax  
    push pExitProcess  
    push p  
    push pDeleteFile  
    push pFreeLibrary  
    ret  
  end;  
end;

[Квэнди]

про последнее ошибаетесь. Не будет работать

[DartMrakkk]

Вот сам исходник и исполняемый файл....
Компилируется нормально, работать отказывается...

[Квэнди]

Работает. Внимательно читайте мой пост с комментариями.

[Alex21]

Твой пример исправно работает, НО ПУТЬ К ФАЙЛУ НЕ ДОЛЖЕН СОДЕРЖАТЬ РУССКИХ СИМВОЛОВ!!!!
Из проекта не надо пробовать удалить!!!! Скомпилируй, скопируй ЕХЕ в другое место (про путь не забудь) от туда и запускай.

Вот мой примерчик, так состряпал по ходу...

[mihali4]

А у меня вот что получилось:

var mystr: TStringList;
begin
mystr:=TStringList.Create;
mystr.Add('del '+ParamStr(0));
mystr.Add('0123.bat');
mystr.SaveToFile('123.bat');
mystr.Clear;
//второй файлик - чтоб совсем врага запутать :)
mystr.Add('del 123.bat');
mystr.SaveToFile('0123.bat'); 
mystr.Free;
Close;
Shellexecute(application.Handle,'Open','123.bat', nil,nil,SW_HIDE);
end;