"Calc.exe" starten oder wenn bereits aktiv: SW_Restore schicken

[Bummi]

Delphi-Quellcode:

var
 h:THandle;
begin
 h := FindWindow(nil,'Rechner');
 if h=0 then Shellexecute(handle,'open','calc.exe','','',sw_Show)
 else
  begin
  SetForegroundWindow(h );
  end;
end;