Lame.exe mit Shellexecute aufrufen

[Christian Seehase]

Moin padavan,

ich weiss ja jetzt nicht, wo die Dateien liegen, die Du in Open-/SaveDialog auswählst, aber zur Sicherheit solltest Du es so schreiben:

Code:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if opendialog1.Execute then begin
    if savedialog1.Execute then begin
      ShellExecute(
        Handle,
        'open', // shell verb
        PChar('C:\Giro\dl\Bass\lametest\lame.exe'), // command
        PChar([color=red]'"'[/color]+OpenDialog1.Filename + [color=red]'" "'[/color] + SaveDialog1.Filename+[color=red]'"'[/color]), // parameters
        nil,  // working directory
        SW_SHOWNORMAL
      );
    end;
  end;
end;

Das war mit "doublequotes setzen" gemeint.
Hiermit werden Fehler umgangen die dadurch entstehen, dass ein Pfad Leerzeichen enthält.