{Bu islem icin windows'un tekrar baslatilmasi gereklidir}
uses Registry;

procedure DeleteNextTime(const FileName: string);
begin
with TRegistry.Create do
begin
     RootKey := HKEY_LOCAL_MACHINE;
     LazyWrite := False;
     OpenKey('Software\Microsoft\Windows\CurrentVersion\RunOnce',False);
     WriteString('Delete Me!','command.com /c del ' + FileName);
     CloseKey;
     free;
   end;
end;

DELPHI - 7

Sayfayı Yazdır | Pencereyi Kapat