Скачать: CL | DM;

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]

Digitman ©   (20.09.05 15:12) [4]
Это сволочь.

---

← →
DiamondShark ©   (2005-09-20 15:38) [9]

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

Windows.Beep

---

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

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

---

← →
IceBeerg ©   (2005-09-20 16:25) [11]

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...

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.026 c