微信扫一扫5123
社区成员
当前发帖距今超过3年，不再开放新的回复
发表回复
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;
- 打赏
- 举报