ایجاد یک صدای بوق به عنوان تایید اشکال یا ....

[احسان آریانو]

1- چطور میشه صدای بوق سیستم را ایجاد بشه

البته messagebeep را میدونم ولی آخر صداش هم که باشه

اصلا صداش خیلی کمه

ببینید یه مشکل دیگه معمولا وقتی از یک panel به panel دیگه میرم

در واقع parent ها عوض میشن صدای defult ویندوز شنیده میشه

چیکار کنم که وقتی من میخوام شنیده بشه نه وقتی خودش میخواد

خداوکیلی یاری کنید قربون همتون

[vjp]

دوست عزیز تنها چیزی که من هم در این زمینه میدانم تابع beep است و بیشتر اطلاعاتی ندارم به هر حالشرمنده

[Ali Najafian]

Beep();

[FirstLine]

با سلام
برای استفاده از صداهای استاندارد ویندوز از تابع زیر میتوان استفاده کرد این تابع را برای راحتی کار خودم نوشته بودم و تا اونجایی که یادمه نوع صداها در رجیستری موجود است و من از توی کتاب دلفی 5 نشر گستر این را نوشتم.
امیدوارم بدرد بخوره.. :flower:


Procedure Play_Sound(id_Sound:byte=0);
Var
chr_SoundName:PChar ;
begin
case id_Sound of
1: chr_SoundName:=('CriticalBatteryAlarm');
2: chr_SoundName:='DeviceConnect';
3: chr_SoundName:='DeviceDisconnect';
4: chr_SoundName:='DeviceFail';
5: chr_SoundName:='MailBeep';
6: chr_SoundName:='NMain-MouseClick';
7: chr_SoundName:='SystemAsterisk';
8: chr_SoundName:='SystemExclamation';
9: chr_SoundName:='SystemExit';
10: chr_SoundName:='SystemHand';
11: chr_SoundName:='SystemNotification';
12: chr_SoundName:='SystemStart';
13: chr_SoundName:='WindowsLogoff';
14: chr_SoundName:='WindowsLogon';
else ;
chr_SoundName:='Barnamenevis.org';
end;
PlaySound(chr_SoundName,0,SND_ALIAS);
end;
با تشکر

[ravanfar]

سلام
میشه بگید چطور می شود قدرت صوت ( دامنه موج را هم تغییر داد)
متشکرم - روانفر

[esi022]

Windows.Beep(Frequency, Duration);

[ravanfar]

سلام
دوست عزیز دستور

Windows.Beep(Frequency, Duration);
فقط فرکانس رو تغییر میدهد من دنبال تغییر دامنه هستم
اگر امکان دارد راهنمایی بفرمایید
متشکرم - روانفر

[esi022]

:sorry: