5,933
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
vcshcn 2003-05-01
- 打赏
- 举报
还有mcixxx那些
jacky_shen 2003-05-01
- 打赏
- 举报
procedure TForm1.Button3Click(Sender: TObject);
begin
sndPlaySound('C:\1.wav', SND_ASYNC or SND_FILENAME) //播放
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
sndPlaySound(nil, SND_ASYNC) //停止
end;
begin
sndPlaySound('C:\1.wav', SND_ASYNC or SND_FILENAME) //播放
end;
procedure TForm1.Button4Click(Sender: TObject);
begin
sndPlaySound(nil, SND_ASYNC) //停止
end;
