如题目,急!
解决方案 »
- 想让喇叭发出报警的声音,请问怎么做呢?是不是找一个文件播放?
- 请问 Wallpaper Calendar 是如何实现在桌面显示日历和输入数据的????
- vc代码翻译成delphi
- 如何把clientdataset里的数据清空?
- 如何动态生成很多对象?
- 怎么样根据数据库中的单价画出走势图?
- COM与DLL能不能划上等号?他们的分别在那里?
- 请教TreeView的用法
- 如何彻底释放窗体?(29分全给了,来拿啊,呵呵……)
- 怎样声明静态全局变量?言出必践,必定给分
- 怎样用DELPHI启动WIN98的拨号网络服务器并将某一MODEM设为允许拨入的状态?
- 程序24小时运行n天后,软件系统失灵!死机状态...重启后正常!(软件有问题?)急急急
procedure TForm1.Button1Click(Sender: TObject);
var
result:boolean;
begin
result:=form1.SoundCardExist;
if result then
showmessage('装有声卡')
else
showmessage('未装声卡');
end;function TForm1.SoundCardExist: boolean;
begin
WaveOutGetNumDevs;
end;