| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

beep [D7, Win2k]

I231 ©   (2005-09-20 15:05:00) 

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

---

IceBeerg   (2005-09-20 16:25:00) [1]

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

---

RS232   (2005-09-20 16:19:00) [2]

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

---

DiamondShark   (2005-09-20 15:38:00) [3]

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

Windows.Beep

---

Anatoly Podgoretsky   (2005-09-20 15:19:00) [4]

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

---

Antonn   (2005-09-20 15:16:00) [5]

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

---

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

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

---

evvcom   (2005-09-20 15:13:00) [7]

> I231

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

---

Digitman   (2005-09-20 15:12:00) [8]

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


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

---

RS232   (2005-09-20 15:11:00) [9]

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

---

Джо   (2005-09-20 15:08:00) [10]

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

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

---

Digitman   (2005-09-20 15:07:00) [11]

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

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

---

Наверх