Delphi - база знаний


Как удалить файл после перезагрузки Windows?


Как удалить файл после перезагрузки Windows?



Я использую функцию, которая заносит в ключ реестра RunOnce командную строку:

command.com /c del C:\Путь\Имя_файла

Автор ответа: inko
Взято с Vingrad.ru





В wininit добавляешь строку NUL={ПУТЬ УДАЛЯЕМОГО ФАЙЛА}

Автор ответа: VoL
Взято с Vingrad.ru


Еще есть способ через реестр:

uses Registry;

procedure DeleteFileOnRestart (const FileName : String);
var Reg : TRegistry;
begin 
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey ('Software\Microsoft\Windows\CurrentVersion\RunOnce', False);
  Reg.WriteString ('Selfdel9x','command.com /C del "' + FileName + '"');
  Reg.WriteString ('SelfdelNT','cmd /C del "' + FileName + '"');
  Reg.CloseKey;
  Reg.Free;
end;

Тут две команды добавляются, т.к. на XP с command.com не рабоает...
Одна из них сработает, а другая пройдет в холостую...

Прислал p0s0l



Начало  Назад  Вперед



Книжный магазин