Delphi-Quellcode:
uses
ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
pfad: String;
begin
if OpenDialog1.Execute then
begin
pfad := OpenDialog1.FileName;
ShellExecute(Application.Handle, 'open' ,PChar(pfad), nil, nil, sw_ShowNormal);
end;
end;
Klappt wunderbar ohne Probleme, wie vermutet.