Einzelnen Beitrag anzeigen

Christian Seehase
(Co-Admin)

Registriert seit: 29. Mai 2002
Ort: Hamburg
11.117 Beiträge
 
Delphi 11 Alexandria
 
#6

Re: Lame.exe mit Shellexecute aufrufen

  Alt 23. Nov 2005, 13:01
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.
Tschüss Chris
Die drei Feinde des Programmierers: Sonne, Frischluft und dieses unerträgliche Gebrüll der Vögel.
Der Klügere gibt solange nach bis er der Dumme ist
  Mit Zitat antworten Zitat