غيير Volume ويندوز (دردلفی)

[shaabani]

يك 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;

و با TrackBar بازي كنيد ...
یادت نره

[Shahani]

با تشكر فاصله داشت
uses هم نوشته نشده بود

implementation

{$R *.dfm}
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;