Lame.exe mit Shellexecute aufrufen

[padavan]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
    Progdir: string;
begin
  ProgDir := ExtractFilePath(ParamStr(0));
  if opendialog1.Execute then begin
    if savedialog1.Execute then begin
      ShellExecute( 
        Handle, 
        'open', // shell verb 
        PChar(Progdir + '\' + 'lame.exe'), // command 
        PChar('"'+OpenDialog1.Filename + '" "' + SaveDialog1.Filename+'"'+'.mp3'), // parameters
        nil,  // working directory 
        SW_SHOWNORMAL 
      );
    end;
  end;
end;

Danke euch allen, so hat´s jetzt wunderbar geklappt!!!