如提,有代码可以参照吗?
解决方案 »
- Type Libary引用不了,咋回事?
- 当用户点击了“查询”按纽后,如何将鼠标变成漏斗形状,从而使得用户不可以再点击?
- 如何给控件组附值
- delphi控制excel怎么来做比较好?
- 帮我找找错吧!关于adoquery和dbgrid的查询问题。
- 关于网络数据库!
- 请问谁有权限管理系统??能让我参考一下吗?(急呀)
- 怎么样一个向导程序?
- 求救(急!):在应用程序中,怎样获取DOS程序是否执行完成?
- 如何用Delphi编程实现改变网卡的MAC地址?
- activeform中如何使用数据库?
- 发送一个wm_sysCommand(scRestore) 到一个外部的exe文件,那个exe文件就不能再次最小化了?
procedure Tfrmmain.RzTrackBar2Change(Sender:TObject);
var
Wave:string;
begin
Wave:= '$' + inttohex(RzTrackBar2.Position * 5000,4) + inttohex(RzTrackBar2.Position * 5000,4);
MMSystem.waveOutSetVolume(0,StrToInt(Wave));
end;