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

 

يك  TrackBar در فرم خود قرار دهيد و  Max value را به  15  تغيير دهيد و در رويداد  OnChange آن كد زير را قرار دهيد:

كد:

 

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;

موضوع :