MP3 Files aus MY Base Datenbank zum Öffnen bereitstellem

[Matzespens]

Gut aber im Moment wird in der Listbox ja der Eintrag der ersten Spalte angezeigt und mein Dateiname ist in der 4. Spalte das muss ich doch auch irgendwie angeben oder?

Gruß

Matze

[Matze]

Ich weiß grad nicht, wie's geht, aber ich probier mal rum.
Kannst du nicht einfach die Einträge in der 4. Spalte anklicken?

[Matzespens]

Das wollte ich eigentlich vermeiden um das Programm von der Bedienung her so einfach wie möglich zu halten.

Gruß

Matze

[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

[Matze]

Gratulliere!

Ciao!