Neustart des eigenen Programms

[SleepyMaster]

Oder noch einfacher:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShellExecute(Handle, 'open', pchar('"'+paramstr(0)+'"'), pchar(inttostr(Handle)), nil, SW_SHOW);
  close;
end;

initialization
  while IsWindow(strtoint(Paramstr(2)))do
    sleep(1);