Есть-ли в Delphi5 Функция sound как в Паскале ?

← →
DeMoN-777 (2002-04-21 19:04) [0]

Есть-ли в Delphi5 Функция sound как в Паскале ?
Например:
sound(5000);
Буду очень признателен за любую оказанную помощь.

← →
Anatoly Podgoretsky (2002-04-21 19:16) [1]

Нет

← →
cok (2002-04-21 21:55) [2]

Посмотри в хелпе описание функций Beep, PlaySound, может помогут.

← →
ShipilinSergey (2002-04-21 22:10) [3]

Вот тебе процедра ее реализации
procedure beeper(time:integer);
begin
asm
mov al, 0b6h
out 43h, al
mov ax,Tone
out 42h,al
ror ax,8
out 42h,al
in al,61h
or al,03h
out 61h,al
end;
sleep(time);
asm
in al,61h
and al,0fcH
out 61h,al
end;

end;

Если что непонятно спроси!

← →
Billy (2002-04-21 22:11) [4]

Еще можешь попробовать MessageBeep

← →
VEG (2002-04-22 01:04) [5]

>ShipilinSergey
Эта процедурка не работает на некоторых виндах, а вот эта ВЕЗДЕ!!!:
procedure Sound(Frequency, Duration: Integer);
asm
cmp Win32Platform, VER_PLATFORM_WIN32_NT
jne @@9X
push edx
push eax
call Windows.Beep
ret
@@9X:
push ebx
push edx
mov bx, ax
mov ax, 34DDh
mov dx, 0012h
cmp dx, bx
jnc @@2
div bx
mov bx, ax
in al, 61h
test al, 3
jnz @@1
or al, 3
out 61h, al
mov al, 0B6h
out 43h, al
@@1:
mov al, bl
out 42h, al
mov al, bh
out 42h, al
call Windows.Sleep
in al, 61h
and al, 0FCh
out 61h, al
@@2:
pop ebx
end;

Первый параметр-частота, второй параметр-длительность.

← →
DeMoN-777 (2002-04-22 01:38) [6]

Всем Спасибо

Есть-ли в Delphi5 Функция sound как в Паскале ? Найти похожие ветки