اصدار صوت

السلام عليكم ... ضع في uses

MMSystem

ضع الكود التالي في حدث click لأي زر أوامر

var

s2:array[0..100] of char;

s:string;

begin

s:=extractfilepath(application.exename)+'ben.wav';

strpcopy(s2,s);

sndplaysound(s2,3);

end;

وممكن تختصر الامر كالتالي :-

sndplaysound(pchar('ben.wav'),3);

أو

var

s:string;

begin

s:=extractfilepath(application.exename)+'ben.wav';

sndplaysound(pchar(s),3);

end;

لإيقاف الصوت

sndplaysound(nil,0);