Je kan de mediaplayer (TMediaplayer onder System) gebruiken.
Voor info zie
http://delphi.about.com/od/multimedia/l/aa112800a.htm
Heel eenvoudig komt het hier op neer:
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls;
type
TForm1 = class(TForm)
mp3player: TMediaPlayer;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
var mp3File:string;
begin
mp3File := 'C:\Muziek\01.mp3';
if not FileExists(mp3File) then
begin
ShowMessage('MP3 file does not exist?!');
exit;
end;
mp3player.Close;
mp3player.FileName:=mp3File;
mp3player.Open;
mp3player.Play;
end;
end.