Hab nun folgendes probiert, aber das funktioniert nicht:
Delphi-Quellcode:
procedure TForm1.BtnStartClick(Sender: TObject);
var
Wnd: HWnd;
begin
ShellExecute(Wnd, 'open' , PChar(Edit1.Text), nil, nil, sw_ShowNormal);
If Wnd <> 0 then ShowMessage(IntToStr(Wnd));
end;
@NicoDE: Danke für den Hinweis von Application.Handle.
Gruß
Mazel