Halløj
Bruger dette til afspille min lydfil da mediaplayer i delphi er lettere grim
procedure TForm1.Button4Click(Sender: TObject);
var
rStream: TResourceStream;
fStream: TFileStream;
fname: string;
begin
{this part extracts the mp3 from exe}
fname:=ExtractFileDir(Paramstr(0))+'\\Intro.mp3';
rStream := TResourceStream.Create
(hInstance, 'Intro', RT_RCDATA);
try
fStream := TFileStream.Create(fname, fmCreate);
try
fStream.CopyFrom(rStream, 0);
finally
fStream.Free;
end;
finally
rStream.Free;
end;
{this part plays the mp3}
MediaPlayer1.Close;
MediaPlayer1.FileName:=fname;
MediaPlayer1.Open;
MediaPlayer1.Play;
end;
Mit spørgsmål er så hvordan man får den til at afspille den fil igen og igen og igen