ShellExecute im Debug Mode

[Amateurprofi]

Zitat von 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;

Wird nicht im OnCreate oder OnShow aufgerufen, sondern über ein Menu-Item.
Habe es soeben auch mit einem Button versucht, mit genau dem gleichen Resultat.