beep

← →
I231 (2005-09-20 15:05) [0]

Здравствуйте.Кто ответит: почему не работает функция
(процедура) BEEP?

← →
Digitman © (2005-09-20 15:07) [1]

не выдумывай, все работает.

Windows.Beep(частота, длительность);

← →
Джо © (2005-09-20 15:08) [2]

> I231 (20.09.05 15:05)
> Здравствуйте.Кто ответит: почему не работает функция
> (процедура) BEEP?

У меня работает. А какая именно, кстати, их, собственно, как минимум 2: Windows.Beep и SysUtils.Beep?
И что значит "не работает"?

← →
RS232 (2005-09-20 15:11) [3]

Может не хочет ?

← →
Digitman © (2005-09-20 15:12) [4]

> RS232 (20.09.05 15:11) [3]
> Может не хочет ?

Хочет, но не может)

← →
evvcom © (2005-09-20 15:13) [5]

> I231

У тебя это... динамик сгорел. :)

← →
I231 (2005-09-20 15:15) [6]

MessageBeep(0)
Может есть еще какие-то способы извлечь звук из внутр.динамика?

← →
Antonn © (2005-09-20 15:16) [7]

у меня кстати, просто "beep" тоже не работает.
ну и ладно.

← →
Anatoly Podgoretsky © (2005-09-20 15:19) [8]

> Может есть еще какие-то способы извлечь звук из внутр.динамика?

Windows.Beep

← →
RS232 (2005-09-20 16:19) [10]

А может под "BEEP" имелась ввиду какаято другая функция - имени которой автор не называет из этичных соображений ?

procedure Beep(Frequency, Duration: Integer); asm push edx push eax mov eax, Win32Platform cmp eax, VER_PLATFORM_WIN32_NT jne @@9X call Windows.Beep ret @@9X: pop eax pop edx 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 jmp @@3 @@2: pop edx @@3: pop ebx end;

Писал не сам, но у меня работает...
Непомню кто дал мне этот код, но здесь же, на www.delphimaster.ru...

beep Найти похожие ветки