Kako da dobijem zvuk na sistemskom zvucniku? Da li je to neka funkcija ili moram da ukjlucujem i neke dodatne biblioteke?
zvuk sa sistemskog zvucnika
Zaključano
Zakačeno
Code:
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 100 to 120 do
//this plays the sound
Windows.Beep(i, 1 );
//first param is the number of hertzs
//second param is the duration in ms
for i:= 120 downto 100 do
//this plays the sound
Windows.Beep(i, 1 );
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
for i:= 100 to 120 do
//this plays the sound
Windows.Beep(i, 1 );
//first param is the number of hertzs
//second param is the duration in ms
for i:= 120 downto 100 do
//this plays the sound
Windows.Beep(i, 1 );
end;
Mada ne znam cemu
Koliko se sećam, na www.torry.net imaš nekoliko komponenti ( besplatnih ) na tu temu...
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
Ok. Hvala!