我想做一个声音报警，比如有一组离散量t1，t2，t3，当他们为1时报警，为0时不报警，怎么实现？高手帮忙阿，beep（）函数可以实现吗？分不够再加！我自己先试了试，可是没声音。
var
t1：integer；
procedure TForm1.Button2Click(Sender: TObject);
begin
t1：=0；
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if t1=1 then
begin
beep;
end；
end;
var
t1：integer；
procedure TForm1.Button2Click(Sender: TObject);
begin
t1：=0；
end;procedure TForm1.Button1Click(Sender: TObject);
begin
if t1=1 then
begin
beep;
end；
end;
解决方案 »
- ？？？请问DBGrid列载入后，如何调整指定某列到列首？？？
- 请问如何把一个.exe的电子书嵌入到我的程序中
- 主窗体设计时不可见，谁能帮忙解答一下！
- QReport中的QRImage打印预览问题
- 一报表难题！有关格式的！！！
- 关dxTreeList控件的问题！ 100分
- 各位,你们都用 Delphi 做什么呀?能拿出来看看吗?
- depunf朋友，您好，stringgrid那里有delete啊？敬请赐教！
- Delphi中对象的Anchors属性是什么东西？
- DELPHI listbox控件，通过上下键选择项目，求助
- 如何隐藏自己的窗口在进程例表（最好能隐藏进程）
- 关于多个用户程序连接到SQL SERVER数据库
windows.Beep(750,3000);
playsound 应该是从声卡发声的。