Как удалить файл после перезагрузки Windows?
Falk0ner, вс, 06/07/2008 - 15:34.
Я использую функцию, которая заносит в ключ реестра RunOnce командную строку:
command.com /c del C:\Путь\Имя_файла
Автор ответа: inko
Взято с Vingrad.ru http://forum.vingrad.ru
В wininit добавляешь строку NUL={ПУТЬ УДАЛЯЕМОГО ФАЙЛА}
Автор ответа: VoL
Взято с Vingrad.ru http://forum.vingrad.ru
Еще есть способ через реестр:
uses Registry;
{©Drkb v.3(2007): www.drkb.ru}
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;
{©Drkb v.3(2007): www.drkb.ru}
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
Взято с Vingrad.ru http://forum.vingrad.ru
Отправить комментарий