Hoe achterground muziek toepassen?

Status
Niet open voor verdere reacties.

geenID

Gebruiker
Lid geworden
1 jul 2009
Berichten
312
Hallo,

Hoe kan ik achtergrond muziek automatisch laten afspelen wanneer de applicatie strart?
Het gaat dan om een mp3'tje of wav bestand
 
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.
 
het duurde een tijdje maar nu heb ik eindelijk antwoord op me vraag ;)

Heel erg bedankt, want het werkt nu :)
 
Status
Niet open voor verdere reacties.

Nieuwste berichten

Terug
Bovenaan Onderaan