а чего он пищит?

← →
tippa © (2010-03-29 08:50) [0]

включаю-выключаю системный динамик, на форме 3 кнопки
procedure TForm1.Button3Click(Sender: TObject); begin windows.Beep(1000,1000);//проверка end; procedure TForm1.Button1Click(Sender: TObject); begin SyStemParametersInfo(SPI_SETBEEP,0,nil,SPIF_UPDATEINIFILE);//выключить end; procedure TForm1.Button2Click(Sender: TObject); begin SyStemParametersInfo(SPI_SETBEEP,1,nil,SPIF_UPDATEINIFILE);//включить end;
вроде работает, так как системные пикалки отключаются-включаются, а вот своя пикалка (beep) пищит в любом случае, почему так?

← →
oldman © (2010-03-29 08:58) [1]

Видимо windows.beep глубоко по барабану твои потуги...

← →
12 © (2010-03-29 11:27) [2]

тоже была такая ерунда - не нашел почему и как
отрезал провода :)

← →
brother © (2010-03-29 11:41) [3]

> отрезал провода :)

особенно круто, когда спикер впаян в мамку ;)

← →
brother © (2010-03-29 11:43) [4]

конечно не в, а на мамку)

← →
oldman © (2010-03-29 12:02) [5]

> brother © (29.03.10 11:41) [3]
> особенно круто, когда спикер впаян

вырывается пассатижами :)))

← →
brother © (2010-03-29 12:03) [6]

> вырывается пассатижами :)))

ога! вместе с дорожками))))

← →
oldman © (2010-03-29 12:14) [7]

> brother © (29.03.10 12:03) [6]

Ну... Ответкой расковырять, сверлом рассверлить, вывести из строя одним словом.
:)

← →
brother © (2010-03-29 12:16) [8]

собственно, приходим опять к физическому уровню отключения )))

← →
Омлет © (2010-03-29 12:38) [9]

Выпаять легко.

Хороший ответ на вопрос "как отключить спикер" - "вырвать/выпаять".
:)

> Хороший ответ на вопрос "как отключить спикер" - "вырвать/выпаять".

> а чего он пищит?

))))))))))))

← →
QAZ (2010-03-29 14:10) [12]

> вроде работает, так как системные пикалки отключаются-включаются,
> а вот своя пикалка (beep) пищит в любом случае, почему
> так?

потому что имено для отключения системных пиков SPI_SETBEEP и задуман

подумалось, как вариант, поправить kernel32 name "Beep";

а чего он пищит? Найти похожие ветки