Как позволить или запретить выдачу звукового сигнала в динамик (Beep)

Главная страница сайта "Delphi Sources"

Раздел "Исходники"

Форум

Как позволить или запретить выдачу звукового сигнала в динамик (Beep)

С помощью функции Beep можно выводить звуковой сигнал. напишите это слово по событию OnTimer для компонента TTimer и вы услышите звуковые сигналы. Теперь вы сможете запрещать или разрешать подобные Beep'ы.

uses shellapi;

//выключить
systemparametersinfo(spi_setbeep, 0, nil, 0);
//включить
systemparametersinfo(spi_setbeep, 1, nil, 0);