خوش آمدید. در این سایت می توانید ابزارهای دلفی و نرم افزارها را دریافت کنید.
صفحه اصلی | مقالات | سوال و جواب | Downloads | Beeper help | جستجو | تصاویر برنامه ها | تبلیغات | تماس با ما | وبلاگ شخصی
تغییر 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.
آخرين به روز رسانی: آمار بازدید: