تغییر 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;
 

 صفحه اصلی | مقالات | سوال و جواب | Downloads | Beeper help | جستجو | تصاویر برنامه ها | تبلیغات | تماس با ما | وبلاگ شخصی
در صورت بروز هر گونه مشكل در استفاده از نرم افزار هاي اين سايت, مشكل را با مدير اين سايت در ميان بگذاريد.

This work is licensed under a Creative Commons Attribution 2.5 License.

آخرين به روز رسانی: آمار بازدید: