Genstart af Delphi program

uses
ShellAPI

procedure TForm2.Button1Click(Sender: TObject);
begin
ShellExecute(0, nil, pchar(Application.ExeName), nil, nil, SW_NORMAL);
Close;
end;

Stoney

Skal det genstarte hver gang at det lukker (/går ned)? Du kunne evt. lave et service-program der holdt øje med den slags; sådan noget med:

loop
  Kører programmet?
  Ja - nop
  Nej: Start programmet
  sov lidt
endloop

Enten kan du have det køre listen af åbne programmer igennem - alternativt kan du forsøge at få tilgang til en fil som dit program har rettighed til. Dette vil fejle indtil programmet lukkede -> ergo: Programmet er nede, starte det igen.