Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Аналог функций Sound и NoSound под WinNT

Оформил: DeeCo

Автор: Рябухин Александр

файлы к статье: ntbeep.zip

Вступление, или Для чего я все это затеял.

  Те, кто работал с Паскалем, помнят, что там были функции Sound() и NoSound() для работы со спикером. Переход на Delphi повлек за собой утрату этих функций. Необходимость работы со спикером не часто, но возникает. Недавно мой друг попросил меня написать программу для тренировки реакции: аналог таймера в брейн-ринге. Принцип ее прост: пользователь нажимает кнопку, запускается таймер с задержкой равной 3000 + random(5000) миллисекунд. После этой задержки звучит звуковой сигнал (в течение одной секунды). С момента начала звукового сигнала идет отсчет времени и пользователь может нажать клавишу для остановки таймера. Отрезок времени между началом звукового сигнала и нажатием клавиши представляет собой время реакции. При этом, если время реакции меньше одной секунды (трудно не успеть нажать клавишу за секунду), то звуковой сигнал должен прекратится. Обязательным условием было возможность работы со спикером.

  Вроде бы все просто. На самом деле реализовать все это под Windows 9x/ME не составило труда. Работа со спикером на ассемблере описана чуть ли не на каждом форуме по программированию. А вот под NT/2k/XP возникла проблема: апишная функция Beep() позволяет пищать заранее определенное время. Использование ассемблера не проходит: спикер это устройство, к которому программы в user-mode не имеют доступа. Начинаю поиски

  Не знаю, почему, но первое, что пришло мне в голову, это создать нить, которая вызывает Beep(dwFrequency, 1000) и, как только пользователь остановит таймер, грохнуть ее. Такой метод работал и не плохо. Но я подозревал, что это есть не хорошо (это вообще не едят :)), так как закрытие нити может оставить за повлечь за собой утечку памяти или незакрывание каких-либо хендлов. Просмотрев процесс с помощью Process Explorer, я заметил, что после каждого закрытия нити появляется незакрытый хендл файла-устройства "\Device\Beep\". Я полез в Форум на Мастерах Дельфи. Ничего того, что могло бы мне помочь, среди ответов предложено не было. Было одно предложение, о котором я тоже думал: крутить в цикле Beep(dwFrequncy, 1) до тех пор пока не кончится секунда или пользователь не остановит таймер. Но этот прием довольно плохо сказывается на производительности, да и на медленных машинках звук получался прерывистым. Посему, лезу в Kernel32.dll, в которой находится функция Beep(). В дебрях Kernel32.dll

  Воспользовавшись дизассемблером, например W32Dasm, мы можем посмотреть листинг функции Beep (). Изучение нескольких строк в начале листинга дает понять, что динамически грузится какая-то библиотека и вызывается функция _WinStationBeepOpen():

* Reference To: KERNEL32.LoadLibraryW
                                  |
:77EAA54A E89047FEFF              call 77E8ECDF
:77EAA54F 3BC6                    cmp eax, esi
:77EAA551 7410                    je 77EAA563

* Possible StringData Ref from Code Obj ->"_WinStationBeepOpen"
                                  |
:77EAA553 682C28EA77              push 77EA282C
:77EAA558 50                      push eax
* Reference To: KERNEL32.GetProcAddress
                                  |
:77EAA559 E8EDB0FEFF              call 77E9564B
:77EAA55E A39409EE77              mov dword ptr [77EE0994], eax

  Описание этой функции я так нигде и не нашел. Но, рассматривая листинг далее

:77EAA56F 6AFF                    push FFFFFFFF
:77EAA571 FFD0                    call eax
решил, что эта функция принимает всего один параметр, и тот равен 0xFFFFFFFF.

  Далее можно найти обращение к функции RtlInitUnicodeString(). Это документированная функция и она нужна для того, чтобы заполнить структуру UNICODE_STRING, которая будет использоваться в NtCreateFile(). NtCreateFile() - тоже документирована (DDK). Она создает/открывает файлы, драйвера, устройства, пайпы и еще кучу всякой ерунды. Хендл устройсва, полученного в результате данной функции используется в NtDeviceIoControlFile(), которая используется для управления устройствами. Далее устройство закрывается с помощью NtClose(). Я не стал разбирать листинг далее, так как работа с устройством не этом заканчивалась, а начиналась установка системных параметров (таких как код ошибки и еще чего-то). Не знаю, зачем используется GetConsoleDysplayMode(), NtCreateKey(), и не представляю, что выполняет CsrClientCallServer(). Собственно, для меня это было не важно. Начинаем писать

  Сразу хочу сказать, что все примеры привожу на Си. Этому есть несколько причин и одна из них то, что описания вех функций и структур сделано на Си. Перед написанием я просмотрел NTDDK, в котором нашел файл ntddkbeep.h. Он был очень полезен. Я не стал подключать различные модули из NTDDK, так как тот же ntddk.h плохо удивается с windows.h, который я использовал, да и просто не хотелось, ведь все равно функции NtXxxx там не описаны. Я подключил лишь ntddkbeep.h и написал main.h, в который скопировал все необходимые описания и константы. После этого пишу консольное приложение, в котором грузятся библиотеки winsta.dll (в ней находится _WinStationBeepOpen) и NTDLL.dll (все NtXxx и RtlInitUnicodeString). После этого узнаем адреса всех необходимых функций. Сначала делаем _WinStationBeepOpen(0xFFFFFFFF) - не знаю зачем, без нее все равно все работает, но раз в Beep() есть, то пусть и у нас будет. Потом заполняем необходимые структуры: для UNICODE_STRING uniName используем RtlInitUnicodeString(). Далее вызываем NtCreateFile(). После чего NtDeviceIoControlFile(). Вот в этот момент используется один, как говорят математики, искусственный прием: длительность сигнала ставим 0xFFFFFFFF, то есть он будет пищать более 8 лет. Как только мы вызовем NtCose() драйвер выгрузится и, если написан не криво, освободит все используемые ресурсы, а звук прекратиться. Этого я и добивался. Надо не забыть выгрузить библиотеки.

  Вроде бы все. Вопрос закрыт. Описания функций можно найти в MSDN.

P.S. Не знаю, где будут лежать исходники. Я их переслал модератору сайта, с просьбой вставить в самое начало статьи ссылку на них, но если что, то пишите на мыло r_a_vic@rambler.ru

P.P.S.: Ночь уже, через два дня экзамен, а я ерундой занимаюсь.

Проект Delphi World © Выпуск 2002 - 2024
Автор проекта: USU Software
Вы можете выкупить этот проект.