1,183
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
xiaoyuer0851 2003-07-31
- 打赏
- 举报
呵呵，谢谢！~~~
Dlwxn 2003-07-31
- 打赏
- 举报
别忘了在 Uses部分添加 mmsystem
Dlwxn 2003-07-31
- 打赏
- 举报
procedure TForm1.Button1Click(Sender:TObject);
var
I:integer;
begin
I:=auxGetNumDevs();
if I<=0 then
Lable1.Caption:='系统没有声卡';
end;
var
I:integer;
begin
I:=auxGetNumDevs();
if I<=0 then
Lable1.Caption:='系统没有声卡';
end;
