ShellExecute problem mit winamp

[ghost007]

Hallo,
nun hab ich ein komisches ergebnis:

Delphi-Quellcode:

track_path:='Z:\Lieder\linkin-park.mp3';
ShellExecute(Application.Handle,'open', PChar(winamp_path),PChar('/add '+track_path), Nil, SW_Show);

dann fügt er mir in winamp folgende einträge hinzu:

Zitat von WINAMP playlist:

x. linkin
x+1. park

wenn ich nun davon einen abspielen will wird die audio datei nicht gefunden

MfG - Ghost007

[wicht]

ShellExecute(Application.Handle,'open', PChar(winamp_path),PChar('"/ADD '+track_path+'"'), Nil, SW_Show); Ähm - so wie es hier steht gibt es nur einen Parameter, und der heißt "/ADD x:\track.mp3" - Ich würde sagen, dass es zwei Parameter sein müssen: "/ADD" und "x:\track.mp3". Also müsste der Aufruf so ausehen:

ShellExecute(Application.Handle,'open', PChar(winamp_path),PChar('"/ADD" "'+track_path+'"'), Nil, SW_Show); Ungetestet und nur eine Vermutung.
By the way: Ich mache das für Winamp über eine Message die ich an das Fenster schicke. Der Aufruf geht wesentlich schneller und ist irgendwie professioneller finde ich. Aber auch nur meine Meinung

[ghost007]

Hi,
ich hab nu mal deinen aufruf getestet
Ergebnis:

Zitat von winamp playlist:

1. add
2. linkin-park.mp3

MfG - Ghost007

P.S.: Hiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiilfe

[turboPASCAL]

Delphi-Quellcode:

procedure TForm1.btnAddToWmpListClick(Sender: TObject);
var
  WinampPathAndExec,
  WinampExecParam,
  SongFilePathAndName: String;
begin
  WinampPathAndExec := 'C:\Programme\Winamp\winamp.exe';
  SongFilePathAndName := 'C:\Nuppsi\Eigene Musik\The 411 - Dumb.mp3';
  WinampExecParam := '/ADD "' + SongFilePathAndName + '"';

  if ShellExecute(Application.Handle, 'open', PChar(WinampPathAndExec),
    PChar(WinampExecParam), Nil, SW_SHOWNORMAL) <= 32 then RaiseLastWin32Error;
end;

Am einfachsten Schritt für Schritt und dann klappt das auch mit dem Winamp...

[ghost007]

Hallo,
sehr schön, nun funktionierts ... wobei ich dachte das ich das gleiche gmacht han. Aber egal danke =)

MfG - Ghost007