التحكم بحجم الصوت من خلال trackbar

[jeanjamil]

السلام عليكم
هذا الكود يقطع الصوت الرئيسي للنظام
var
i:Integer;
begin
for i:=0 to 100 do
begin
  keybd_event($AE, MapVirtualKey($AE,0), 0, 0);
    keybd_event($AE, MapVirtualKey($AE,0), KEYEVENTF_KEYUP, 0);
السؤال  كيف اعدله لكي استطيع من خلاله التحكم بحجم الصوت من خلال trackbar

[Delphi4Us]

كود :

uses : mmsystem;   procedure TForm1.TrackBar1Change(Sender: TObject); var Count, i: integer; begin  Count := waveOutGetNumDevs;  for i := 0 to Count do  begin   waveOutSetVolume(i,longint(TrackBar1.Position*4369)*65536+longint(TrackBar1.Position*4369)); end; end;