اصدار صوت عندما يتم الضغط علي زر

[houssem3110]

السلام عليكم
كيف يتم اصدار صوت عندما يتم الضغط علي زر.

[محمد عبد العزيز]

[COLOR="Navy"]
يمكن استعمال PlaySound
سبق ذكرها في هذا الموضوع
http://www.delphi4arab.net/forum/showthread.php?tid=42
ويمكنك استعمال :

كود :

SndPlaySound('C:\Windows\Media\Tada.wav', SND_NODEFAULT Or SND_ASYNC Or SND_LOOP);

يمكنك تغيير C:\Windows\Media\Tada.wav بمسار الملف الصوتي الذي تريده
ولاتنسى اضافة MMSystem في Uses
[/COLOR]

[houssem3110]

شكرا اخي...لكنني **** طريقة اخرى لانني استعملت هده الطريقة في وضع اغنية في النافدة الرئيسية و بالتالي عند اعادة استعمالها فأن الضغط علي زر يوقف الاغنية لسماع صوت الزر و انا **** الاتنان في نفس الوقت.

[bilgads]

طبعا يمكنك ذلك
قم بوضع mediaplayer وشغل الموسيقى
وباقي الاصوات تكون بالكود المذكور سابقا
وهذا المثال للتوضيح أكثر

[hinalyna]

السلام عليكم لقد قمت بتجريب الكود الذي وضعته صحيح الصوت يصدر لكن بطريقة متواصلة، لكن كيف عند النقر فقط على الزر إصدار نغمة بتردد واحد ؟

[karika2]

لكن كيف عند النقر فقط على الزر إصدار نغمة بتردد واحد ؟

فقط أحذف SND_LOOP

كود :

SndPlaySound('C:\Windows\Media\Tada.wav', SND_NODEFAULT Or SND_ASYNC);