تغییر Volume ویندوز

          

          
          
procedure TForm1.TrackBar1Change(Sender: TObject);
          
var
          
Count, i: integer;
          
begin
          

            

              

            
            
  for i := 0 to Count do
            
  b
          
          
  Count := waveOutGetNumDevs
          
;egin
          

            
eOutSetVolume(i,longint(TrackBar1.Position*4369)*65536+longint(TrackBar1.Position*4369));
            
end;
          
          
   wa
          
vend;