如何中断一段音乐？

Question

如果用mediaplayer控件播放的 ，我想利用它的Stop或Close命令都可以中断播放，至于时间的控制，则可以利用Timer实现。
用playsound播放时，Stop或Close命令是否可以中断播放，我不能肯定，但也不能否定，要试一试。

Answer 1

如何中断一个函数的调用？
例如，调用函数playsound播放一首歌曲，它将执行3分钟。
>button1.onclick();
>begin
>...
>playsound('music',nil,snd_filename); //这句将运行3分钟
>...
>end;
现在想在播放了1分钟后,通过单击按钮就中断它，怎么做呢？
>button2.onclick();
>begin
>... //怎么写呢？
>end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  PlaySound('C:\WINNT\Media\Windows 登录音.wav', 0, SND_FILENAME + SND_ASYNC);
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  PlaySound(nil, 0, SND_PURGE);
end;播放声音时要加上参数 SND_ASYNC，不然要播放完毕后函数才返回