Delphi-Quellcode:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, MPlayer;
type
TForm1 =
class(TForm)
MediaPlayer1: TMediaPlayer;
MediaPlayer2: TMediaPlayer;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.Button1Click(Sender: TObject);
begin
begin
mediaplayer1.AutoEnable:= true;
mediaplayer1.FileName:='
C:\Dokumente und Einstellungen\Poseidon\Eigene Dateien\Eigene Musik\Lied1.mp3';
mediaplayer1.open;
mediaplayer1.Play;
end;
begin
mediaplayer2.AutoEnable:= true;
mediaplayer2.FileName:='
C:\Dokumente und Einstellungen\Poseidon\Eigene Dateien\Eigene Musik\Lied2.mp3';
mediaplayer2.open;
mediaplayer2.Play;
end;
end;
end.
Hab den Code grade zusammengebastelt und der funtzt bei mir 1A. Wenns noch Fragen oder Probleme geben sollte sag einfach bescheid
. Filename musst du natürlich auf deinen Wunsch umändern und im bei beiden Mediaplayer "Autoentable" auf False stellen.