hiho
ich glaub ich kann die helfen
mit nem play button und nem dialog:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
If Mediaplayer1.Mode = mpOpen then Mediaplayer1.close;
Mediaplayer1.FileName := opendialog1.FileName;
Mediaplayer1.Open;
Mediaplayer1.Play
end;
und mit ner playlist so:
Delphi-Quellcode:
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
If Mediaplayer1.Mode = mpOpen then Mediaplayer1.close;
Mediaplayer1.FileName := PlayList1.Items.Strings[PlayList1.ItemIndex];
Mediaplayer1.Open;
Mediaplayer1.Play
end;
also so mach ich es jedenfalls und es klapt .. ich hoffe ich konnte dir helfen
