ShellExecute im Debug Mode

[hathor]

Das geht nur mit Button-Click, nicht in der OnCreate- oder OnShow-Procedure wegen "Kettenreaktion".

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var  S : String;
begin
      S:=ParamStr(0);
      ShellExecute(0,'open',PWideChar(S),Nil,Nil,SW_SHOWNORMAL);
end;