TForm resetten

[SleepyMaster]

Ich würde es so machen:

Delphi-Quellcode:

uses
  ShellAPI;

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(0,'open',PChar(ParamStr(0)),nil,PChar(ExtractFileDir(ParamStr(0))),SW_HIDE);
Application.Terminate;
end;