Вниз
Скачать: CL | DM;

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

 
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]

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


 
oldman ©   (2010-03-29 12:40) [10]

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


 
brother ©   (2010-03-29 12:40) [11]

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


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

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


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


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

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


 
12 ©   (2010-03-29 15:59) [13]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.044 c
2-1266086179
Interesting
2010-02-13 21:36
2010.08.27
Иконка в SysTray и форма


15-1273726474
Дмитрий С
2010-05-13 08:54
2010.08.27
Откуда береться точка?


15-1271410495
vajo
2010-04-16 13:34
2010.08.27
Outlook. Отказано в доступе


2-1270634702
Sairex
2010-04-07 14:05
2010.08.27
Как программно скопировать строку Excel


3-1242203480
Int23
2009-05-13 12:31
2010.08.27
Как получить список полей в ХП в МС СКЛ 2005




   Наверх