MP3 Files aus MY Base Datenbank zum Öffnen bereitstellem

[Matzespens]

Ich habe es !!!!!

so gehts:

procedure TForm1.btnoeffnenClick(Sender: TObject);
var
i: Integer;
s: string;
begin
Listbox1.Clear;

if DBGrid1.SelectedRows.Count > 0 then begin

with DBGrid1.DataSource.DataSet do begin

for i:=0 to DBGrid1.SelectedRows.Count-1 do begin

GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));

Listbox1.Items.Add(Fieldbyname('Dateiname').AsStri ng);

S := S + ' "' + Fieldbyname('Dateiname').AsString + '"'

end;

end;

if S <> '' then ShellExecute(GetDesktopWindow(), 'open', PChar('wmplayer.exe'), PChar(S), nil, SW_SHOWNA);

end;

end;

Danke für Deine Hilfe

Gruß

Matze