|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Как заставить звучать спикер?
Как уже давно многим известно, микрософты убили beep.
Можно ли как нибудь извратится, дабы заставить спикер пикать? сразу скажу, спикер есть, он рабочий. при включении пк издается бип. Но при попытке бипнуть в delphi через спикер, звук идёт в наушники или колонки. винда 10 х64 delphi rio Последний раз редактировалось Gareth, 11.08.2019 в 21:46. |
#2
|
|||
|
|||
Цитата:
1. Установить или написать свой, дополнительный драйвер спикера и использовать его как в XP. Например, такой как beepxp.sys. 2. Либо, напрямую запрограммировать порты ввода/вывода. Например, через библиотеку inpout32.dll/inpout64.dll. |
Этот пользователь сказал Спасибо DenSarych за это полезное сообщение: | ||
Gareth (12.08.2019)
|
#3
|
||||
|
||||
Код:
procedure TForm1.mybeep(Tone: Word; Delay: 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(Delay); asm in al, 61H and al, 0fcH out 61H, al end; end; компоненты |