Question

delphi中如何用SndPlaySound函数实现背景音乐的播放，暂停和结束？

要求1 软件从系统磁盘中调用文件，而不是需
要把音乐文件装入软件源文件中。
2音乐播放，暂停，停止按钮放在主窗体界面上，不使用delphi自带 的播放控件（求各个按钮的事件代码）
3若您有好的播放控件的话，也可以提议~

Answer 1

Procedure TdqcFunction.Music_PlayWav(FileName: String; Loop: Boolean = False);
Begin
If Loop Then
SndPlaySound(pchar(FileName), SND_FILENAME Or SND_ASYNC Or SND_LOOP)
Else
SndPlaySound(pchar(FileName), SND_FILENAME Or SND_SYNC);
End;

Function TdqcFunction.Music_PlayBack(filename: String; play: boolean): boolean;
Begin
If play = true Then
Begin
Try
MCISENDSTRING(PCHAR('OPEN ' + filename + ' TYPE SEQUENCER ALIAS NN'),
'', 0, 0);
MCISENDSTRING('PLAY NN FROM 0', '', 0, 0);
MCISENDSTRING('CLOSE ANIMITION', '', 0, 0);
result := true;
Except
result := false;
End;
End
Else
Begin
Try
MCISENDSTRING(PCHAR('close ' + filename + ' TYPE SEQUENCER ALIAS NN'),
'', 0, 0);
MCISENDSTRING('STOP NN ', '', 0, 0);
MCISENDSTRING('CLOSE ANIMITION', '', 0, 0);
result := true;
Except
result := false;
End;
End; {end if}
End;