Блог → Программирование

Beep в Windows 7

В Windows XP функция Beep пищала системным динамиком, но в «Семёрке» её поведение изменили, теперь звук перенаправляется на звуковую карту, что совсем не так весело.

Как выяснилось, пищать спикером всё ещё можно, но делать это придется напрямую (по ссылке пример на C#). Вот, если кому надо, то же самое, но на Delphi:

function Inp32(PortAdr: word): byte; stdcall; external 'inpout32.dll';
function Out32(PortAdr: word; Data: byte): byte; stdcall; external 'inpout32.dll';

procedure MyBeep(tone, duration: integer);
var
  n,m: integer;
begin
  if tone <> 0 then
  begin
    n := 1193180 div tone;
    Out32($43,182);
    Out32($42,n and $FF);
    Out32($42,(n shr 8) and $FF);
    m := Inp32($61);
    Out32($61,m or $03);
  end;
  Sleep(duration);
  m := Inp32($61);
  Out32($61,m and $FC);
end;

Теперь пара слов об inpout32.dll. Скачать её можно отсюда, это модифицированная версия, которая, несмотря на название, работает и в x32 и в x64 редакциях Windows. Для прямого доступа к портам устанавливается драйвер, что накладывает ограничения:

64-битная версия драйвера подписана, так что проблем с разрешением на установку не будет.

10 января 2013 21:06 

Комментарии


Роман
Роман — 2 года назад
спас меня, премного благодарен

DuMOHsmol
DuMOHsmol — 2 года назад anothersite.ru
Роман, приятно слышать :)

Ваше имя Сайт или блог (опционально) Аватар (опционально, e-mail для Gravatar или ссылка на картинку с ipic.su) Текст комментария

Справка по написанию комментария

  • Для вставки аватара зарегиструйтесь на сервисе Gravatar и укажите ваш e-mail. Вы также можете загрузить аватар на http://ipic.su и скопировать текст с поля «прямая ссылка». Другие сервисы или хостинги изображений не поддерживаются. Большие изображения будут уменьшены автоматически. Пример:

    http://ipic.su/img/img7/fs/user4.1358962896.png
  • Имя, адрес и аватар сохраняются, второй раз вводить не придётся
  • Кликните на аватар, чтобы вставить имя пользователя
  • Слово обрамлённое «звёздочками» становится *жирным*
  • Адрес ссылки автоматически становится ссылкой — http://anothersite.ru
  • Ссылки на текст с http://pastebin.com автоматически разворачиваются в тексте комментария
  • Цитату следует начинать со знака «больше»:
    > пример многострочной
    > цитаты