تغییر Volume ویندوز
type tvolRange=1..15;Procedure ChangeVolume(value:tvolRange);var Count, i: integer; begin Count := waveOutGetNumDevs; for i := 0 to Count do begin waveOutSetVolume(i,longint(value*4369)*65536+longint(value*4369)); end;end;
برای دانلود از راپید شر و تورنت تا سقف 20 مگابایت رایگان از لینک زیر استفاده کنید.
اینجا را کلیک کنید