Çalışan bir exe'nin silinmesi

{ Bu islem için windows'un tekrar başlatılması gereklidir. }

uses Registry;

procedure DeleteNextTime(const FileName: string);

begin

with TRegistry.Create do

begin

RootKey := HKEY_LOCAL_MACHINE;

LazyWrite := False;

OpenKey('Software\\Microsoft\\Wi ndows\\CurrentVersion\\RunOnce', False);

WriteString('Delete Me!','command.com /c del ' + FileName);

CloseKey;

free;

end;

end;