Using the RunOnce Registry Key

Under Win32, unless you are running from a removable drive, you cannot delete a running executable. You can have Windows delete the executable the next time Windows is run by adding an entry to the RunOnce key in the Window registry under:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\RunOnce

You can name the key anything you like, and specify a command line to another executable or to a dos command made passed to command.com

~~~~~~~~~~~~~~~~~~~~~~~~~
uses Registry;

procedure TForm1.Button1Click(Sender: TObject) ;
var reg: TRegistry;
begin
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.LazyWrite := False;
reg.OpenKey(
  'Software\Microsoft\Windows\
  CurrentVersion\RunOnce',
  False) ;
reg.WriteString('Delete Me!',
  'command.com /c del Dummy.txt') ;
reg.CloseKey;
reg.free;
end;
~~~~~~~~~~~~~~~~~~~~~~~~~

Delphi tips navigator:
» Select a block of code by column
« Convert the First Character in an Edit Box to Uppercase

Previous

• 1
• 2
• 3
• 4
• 5

Next