Hi FuckRacism,
das sollte eine WAV-, MIDI- oder CDA-Datei abspielen (einfach "test.wav" in den richtigen Dateinamen ändern):
Code:
uses
{...}, MMSystem;
type
TForm1 = class(TForm)
// ...
private
procedure MMMCINotify(var Msg: TMessage); message MM_MCINOTIFY;
// ...
end;
var
Form1: TForm1;
// ...
procedure TForm1.MMMCINotify(var Msg: TMessage);
begin
mciSendString('close sound', nil, 0, 0);
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
mciSendString('open test.wav type waveaudio alias sound wait', nil, 0, 0);
mciSendString('play sound notify', nil, 0, 0);
end;
Wenn dus genauer haben willstr, kannst du dir ja mal meinen
Audioplayer anschauen.
MfG,
d3g