f:boolean;begin //必须在use里加入mmsystem
sendplaysound('cji.wav',snd_async);
if f:=true then
begin
sendplay('cgi2.wav',snd_async);
end;
else
begin
f:=false;
end;
sendplaysound('cji.wav',snd_async);
if f:=true then
begin
sendplay('cgi2.wav',snd_async);
end;
else
begin
f:=false;
end;
解决方案 »
- 如何控制RZTABSHEET
- 换汤不换药的 Turbo Delphi。
- 请问有没有像OutLook界面的控件(高分相送,急!)
- 如何把image.canvas上的线全擦掉(不用异或和多图层)
- 请问,ttreeview怎么用,如有时间能详细说以下吗?谢谢。
- 我是初学者,我有一个关于DCOM的很菜的问题。(在线等待)
- Findkey?!
- 请问在那能下载到关于视频点播系统方面的资料
- 在win2000下的access数据库怎么访问之2
- http://www.csdn.net/cnshare/soft/11/11096.shtm 一个可以让你出售的软件!!
- RICHEDIT的问题?
- 一个简单的问题 100分
sendplay('cgi2.wav',snd_async);有问题啊??
我想编一个有声音的按钮,是不是这样编的呢?
到底怎么编才能实现有声音的按钮啊、
谢谢
sendplay
不是Delphi自代的函数吧!
sndPlaySound这个到有一个!哈哈 把函数名改一下吧!
sndPlaySound('cgi2.wav', SND_SYNC);