检测pc是否装有声卡
摘要：
uses mmsystem;//WaveOutGetNumDevs定义的单元....function TForm27.SoundInstall:Boolean;begin Result:=WaveOutGetNumDevs()>0;end;procedure TForm27.Button1Click(Sender: TObject);begin // if(SoundInstall=true... 阅读全文
posted @ 2010-04-09 00:18 浔阳渔夫 阅读(218) 评论(0) 推荐(0) 编辑