Mediaplayerkomponente

[-Phantom-]

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
mediaplayer1.FileName := 'File';
mediaplayer1.Open;
mediaplayer1.Play;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled := true;
end;

So geht es