самоудаление

[DeDoK]

Как сделать самоудаление программы по нажатию на кнопку?

[spamer]

Вот вроде такое:

procedure TForm1.Button1Click(Sender: TObject);
var
   F: TextFile;
   Temp, AppName: string;
begin
      Temp:= 'delete.bat';
      AppName:= ExtractFileName(ParamSTR(0));
      AssignFile(F, Temp);
      Rewrite(F);
      Writeln(F, 'del ' + AppName);
      Writeln(F, 'del ' + Temp);
      CloseFile(F);
      WinExec(PCHar(Temp),SW_HIDE);
      Halt;
end;

[artemavd]

Можно еще так (заодно немного ассемблера):

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;

[Usov]

Сообщение от artemavd

Можно еще так (заодно немного ассемблера)

Проверил на на D7 - при нажатии кнопки с вызовом этой процедуры программа закрывается но не удаляется с диска.

[GenniY]

Проверил на на D7 - при нажатии кнопки с вызовом этой процедуры программа закрывается но не удаляется с диска.

WinExec(PCHar(Temp),SW_HIDE);

Потому что нужно УЖЕ ДАВНО ПЕРЕЙТИ на ShellExecute всместо WinExec.
И тогда всё будет работать.

Вот:

ShellExecute(Application.Handle,’open’,’Delete.bat’,nil,nil,SW_ShowNormal);

[Usov]

Сообщение от GenniY

Потому что нужно УЖЕ ДАВНО ПЕРЕЙТИ на ShellExecute всместо WinExec.

Я цитировал artemavd, а в его примере этого метода нет. Метод с созданием доп. файла не интересен так как подобный механизм у меня уже работает в обновлении версии программы.

[Serge_Bliznykov]

сам не проверял, ибо уж очень тема замороченная, но
можно попробовать, вот тут - "Распаковка из .exe" выкладывался код, который позволяет запустить exe-файл, сохранённый в ресурсах. теоретически этот запущенный процесс может грохнуть родительский (найти родительский процесс, закрыть его и грохнуть exe)...

а вообще ОЧЕНЬ МНОГО ссылок по теме вот тут:
Удалить exe файл

[Lime]

Сообщение от Serge_Bliznykov

сам не проверял, ибо уж очень тема замороченная, но
можно попробовать, вот тут - "Распаковка из .exe" выкладывался код, который позволяет запустить exe-файл, сохранённый в ресурсах. теоретически этот запущенный процесс может грохнуть родительский (найти родительский процесс, закрыть его и грохнуть exe)...

а вообще ОЧЕНЬ МНОГО ссылок по теме вот тут:
Удалить exe файл

Интересная идея на счёт удаления родителя )) нужно будет попробовать )

[Serge_Bliznykov]

Интересная идея на счёт удаления родителя )) нужно будет попробовать )

спасибо за столь высокую оценку моей идеи!
Но, лично я бы не взялся реализовывать - тут нужно Винду изнутри знать и на WinAPI программить...
И, к сожалению, лично у меня нет 100% уверенности, что идёя сработает!

p.s. по приведённой мною выше ссылке много идей и примеров... только походить/поизучать надо..

p.p.s. а какая прелесть была под MS DOS - там программка сама себя удаляла без всяких вопросов и проблем: Assign(f, ExeFile); Erase(f) - и ВСЁ!!!
и архиватор, лежащий в папке лёгко сам себя запаковывал в архив по команде:
arj.exe m Archiv *.*

[Lime]

Сообщение от Serge_Bliznykov

спасибо за столь высокую оценку моей идеи!
Но, лично я бы не взялся реализовывать - тут нужно Винду изнутри знать и на WinAPI программить...
И, к сожалению, лично у меня нет 100% уверенности, что идёя сработает!

p.s. по приведённой мною выше ссылке много идей и примеров... только походить/поизучать надо..

Хмм , а мне кажеться что можно реализовать даже копипастом
Гдето надалеко видел пост о запуске приложения из ресурса прямо "на лету" - без сохранения на диске.
После запуска приложения из ресурса(например с параметрами путь ++) родитель выгружается из памяти и его можно будет удалить без проблем ...