Платные хостинги     Раскрутка сайта     Книги по программированию

Как программно вырубить клаву и мышь?, Как программно вырубить клаву и мышь?

- Нужно программно вырубить клаву и мышь.....как ето зделать?

- Собственно это делается достаточно легко, например, для мышки- одной строкой, но я не думаю что надо писать об этом(и скорее всего никто этого не напишет здесь), ввиду того, что такие программы не очень нужны.

- Для тебя МИКЕЛЬ! ето может и ненужно...но для меня ето нужно!

- Скажи что твоя программа screensaver и ничто ее не сможет прервать кроме Ctrl-Alt-Del под NT, и в дополнение Win-L под XP.

- вот откл. клавы (винда не особо на него реагирует, но для дос приложения...)   port[$61]:=port[$61] or 128; (7-ой бит - enable/disable kb)

- Делов тоwinexec(Pchar('rundll32 keyboard,disable' ) ,sw_Show); Клава OFF winexec(Pchar('rundll32 mouse,disable' ) ,sw_Show); Маус OFF

- А как на счет включения?

- А вот включить то как раз и нельзя...

-  А он этого не спрашивал    

- кстати а вот так клава врубается ОтрубитьКод begin      Asm     in  al,21h     or al,00000010b     out 21h,al     End;highlightSyntax('delphilNzE4Z','delphi');ВрубитьКод begin      Asm     in  al,21h     mov al,0    out 21h,al    End;highlightSyntax('delphizA5N2Nh','delphi');

- BlockInput(), живёт в user32.dll

- Цитата из каого-то ФАКа (сам не проверял, а сейчас не могу - делфи временно в нерабочем состоянии):EnableHadwareInput(Enable:boolean): boolean;Enable - требуемое состояние устройств ввода (True - включены, false - выключены). Если ввод заблокирован, то его можно разблокировать вручную - нажать Ctrl + Alt + Del, при появлении меню "Завершение работы программы" ввод разблокируется.

- Устарело т.к. только Win 16

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD