Neustart des eigenen Programms

[SleepyMaster]

Klar hat das ganze einen Tieferen Sinn.

Mann könnte es aber natürlich auchwesentlich einfacher machen. Hab halt in dem Beispiel nur noch überrüft, ob der zweite Parameter wirklich ne Zahl ist.

Hoffe das sagt dir mehr zu

Delphi-Quellcode:

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

initialization
  if Paramstr(1)='abc' then
    while IsWindow(strtoint(Paramstr(2)))do
      sleep(1);