Windows API functions

[kia1349]

موضوعات مربوط به توابع api را در این قسمت مطرح کنید

[binyaz2003]

نمی دونم این برنامه رو تا حالا امتحان کردین یا نه
http://www.xs4all.nl/~foxite/downloads/vfpapi.zip
یک برنامه توپ و عالی برای نگه داری و بایگانی توابع API و با سورسش حتی می تونستید کدهای جدیدی که می نویسید رو آپلود یا از یک ftp دریافت کنید
البته مال سال 2001 هست و من که خواستم دانلود کنم پیغام داد که سایت موجود نیست
بطور خیلی اتفاقی تونستم با سازنده برنامه چت کنم و سوالام رو ازش بپرسم که متوجه شدم بنده خدا به خاطر نبود استقبال عمومی و اینکه هیچ کس حتی یک تابع رو آپلود نکرده بی خیالش شده حالا حالا هم خیالی نداره کاری بکنه.حالا شما این رو دانلود و امتحان کنید اگر خوشتون اومد چندتایی با هم ازش بخوایم سایت ftp ش رو مجدد راه اندازی کنه . مخصوصا حالا که news2new پولی.
امتحانش ضرر نداره :sunglass:

[javad_hosseiny]

در مورد کنترل ولوم صوت و MUTE کردن صدا از چه کد API باید استفاده کرد؟

[binyaz2003]

www.nwes2news.com
اگر پیدا نکردین بگید براتون پیدا می کنم

[binyaz2003]

http://www.news2news.com/vfp/?group=102&function=675

[kia1349]

یه مثال کوچولو براتون فرستادم به ایمیلتون البته چون کدش کمه برای استفاده همه اینجا هم میزارم


#define MAX_VOLUME 0xFFFF &&is full volume
#define MIN_VOLUME 0x0000 &&is silence

DECLARE Integer auxGetNumDevs IN WINMM.DLL
DECLARE Integer waveOutSetVolume IN WINMM.DLL Integer uDeviceID, Integer dwVolume

uDeviceID = auxGetNumDevs()
waveOutSetVolume(uDeviceID,MIN_VOLUME)
MESSAGEBOX("Sound OFF")
waveOutSetVolume(uDeviceID,MAX_VOLUME)
MESSAGEBOX("Left speaker ON")

nVolume = 7 && range of 1-10
nLeft = INT(nVolume * MAX_VOLUME / 10)
nRight = BITLSHIFT(nLeft, 16)
waveOutSetVolume(uDeviceID, nLeft + nRight)
MESSAGEBOX("Both speakers ON")

[rezaTavak]

سلام

تک کد شما جالب است!

با این حساب میتوانیم در فاکس یک برنامه مولتی مدیا هم بنویسیم.

[علی کلاهدوزان]

من api ها رو درست تعریف میکنم ولی بعدش توی تعریف ورودی تابع api بهم ایراد می گیره چکار کنم

[rezaTavak]

سلام

چه ایرادی؟؟

[علی کلاهدوزان]

can not find the entry point in dll