WAV Datei abspielen?

[Hansa]

Ich benutze dazu diese Prozedur :

Delphi-Quellcode:

PROCEDURE WaveAbspielen (DateiName : string);
  VAR flag : byte;
  BEGIN
    flag:=SND_ASYNC;
    sndPlaySound(PChar (DateiName), Flag);
  END;

Ist ja fast nichts, aber es funktioniert und reicht.