shellexecute öffnet mp3-Datei mit dem VLC-Player Fehlerhaft

[Kapitan Bomba]

Ich möchte ein Programm machen, welches mp3-Dateien im VLC-Mediaplayer öffnet.
Ich habe diesen Code benutzt :

Delphi-Quellcode:

procedure TForm1.Image26Click(Sender: TObject);
var i: string;
begin
  opendialog1.Execute;
  i := opendialog1.Filename;
  if ShellExecute(application.handle,
    Pchar('open'),
    ('C:\Programme\VLC\vlc.exe'),
    PChar(i),
    Pchar(''),
    sw_ShowNormal) >= 32
  then showmessage('Datei ist geöffnet') 
  else showmessage('Datei konnte nicht geöffnet werden.');
end;

Der VLC Media Player öffnet sich , gibt danach aber nur Fehlermeldungenm (Screenshot beigefügt) aus und spielt die Datei nicht ab.
Dasselbe hab ich schon mit Winamp versucht (Kommt das gleiche dabei raus).
Eine Musikdatei , bei der es nicht funktioniert hat , von der ich aber weiß , dass sie funktioniert , hat diesen Pfad : 'C:\Criss Angel Mindfreak OST - 03 - Mindfreak(Celldweller remix).mp3' .
Wenn ich die mp3-Datei im Explorer auswähle spielt der VLC sie ohne Probleme ab.
Kann mir jemand helfen :( ?
Ich benutze Delphi 7.

Danke im voraus.

[Gausi]

Hallo,

Probier mal

Delphi-Quellcode:

PChar('"' + i + '"'),

Also den Dateinamen in Gänsefüßchen zu setzen. Sieht so aus, als würde der VLC deinen Dateinamen bei den Leerzeichen aufsplitten und das als Dateiliste interpretieren.

[Kapitan Bomba]

Vielen Dank !!!
Hat wunderbar geklappt.
:-D

[DeddyH]

Und prüfe lieber den Rückgabewert von TOpenDialog.Execute ab, man kann den ja auch abbrechen.

Delphi-Quellcode:

if opendialog1.Execute then
  begin
    //Code
  end;