用delphi如何加载声音。剧急100分！（只求可以用就行了）

做一个定时闹钟要用到的。到时间了用声音提醒。所以需要加载声音。
还望哪位高手不吝赐教！

解决方案 »

  1.   

    uses MMSystem;sndPlaySound(PChar('C:\WINDOWS\MEDIA\NOTIFY.WAV'), SND_ASYNC or SND_NODEFAULT);
      

  2.   

    在程序中播放WAV声音文件 
    让我们在自己的程序中来实现它。仅仅播放一个WAV声音文件，当然不需要劳驾MediaPlayer构件，API函数SndPlaySound()就可以很好地完成这一工作。它定义在MMSystem单元中，有两个参数：第一个指明WAV文件的路径、文件名；第二个指明播放方式。实例如下： uses MMSystem;
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    SndPlaySound('c:\windows\media\tada.wav',SND_ASYNC)
    end; 
      

  3.   

    uses MMSystem;API: SndPlaySound只对Wave文件有效