|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/3/4 0:02:03 |
标题: |
为什么在Windows XP不能控制声音大小 |
浏览:1005 |
|
加入我的收藏 |
楼主: |
procedure TFormMain.TrackBar1Change(Sender: TObject); var t,v:longint; begin t:=trackbar1.Position; v:=(t shl 8) or (t shl 24); waveoutsetvolume(0,v); end;
----------------------------------------------
- |
|