Hallo aenogym,
also der ganze player wäre etwas viel zu posten ich hoffe es reicht die onclick procedure.
Delphi-Quellcode:
procedure TMainForm.btnOpenClick(Sender: TObject);
begin
if Listbox2.ItemIndex = PlayIndex then
begin
Player1.Stop;
if not LoadFile(Listbox2.Items[PlayIndex]) then
MessageDlg('This is not a valid Audiofile',mtWarning, [mbOK],0);
SetFileParams;
end;
end;
ich nutze bass.dll
gruss bernd