Как стереть ехе-файл во время его исполнения?

Delphi , Программа и Интерфейс , Приложение своё

В реалтайме это невозможно (Windows блокирует файл во время его исполнения). Вы можете стереть его во время следующего запуска Windows, добавив ключ RunOnce:
HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce

Пример:

uses Registry;
procedure TForm1.Button1Click(Sender: TObject);
 var reg: TRegistry;
 begin reg := TRegistry.Create;
  with reg do begin
   RootKey := HKEY_LOCAL_MACHINE;
   LazyWrite := false;
   OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce', false);
   WriteString('Delete Me!','command.com /c del FILENAME.EXT');
   CloseKey;
   free;
  end;
end;

Способ удаления через BAT-файл описан в статье "Как программе удалить саму себя "

Автор KAN

Стереть ехе-файл во время его исполнения невозможно, но можно удалить его при следующем запуске Windows, добавив ключ RunOnce в реестре.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Приложение своё ::