Клава-Крыс

← →
BAHO (2002-02-21 05:51) [0]

Подскажите пожалуйста как выключить клаву с крысой...?
Чтобы можно было включить в любой момент...

← →
Dok_3D (2002-02-21 08:49) [1]

Есть верный способ:
1. Выключение - подлазишь сзади к компу и дергаешь нужные штекера.
2. Включение - в любой момент подлазишь сзади к компу и вставляешь нужные штекера.

На WinXP и в Delphi5 работает.

← →
SerVS - S (2002-02-21 09:45) [2]

BlockInput(b: boolean);
True - блокировать
False - разблокировать, функция в user32.dll, экспортируй ее оттуда. Но есть ПРОБЛЕМКА, блокировка смимается по Ctrl+Alt+Del

← →
savva (2002-02-21 09:56) [3]

>SerVS - S (21.02.02 09:45)
ага.. 2 раза подряд нажимаешь и на все вопросы отвечаешь "ДА" :))

← →
VID (2002-02-21 11:13) [4]

Хотя можно и CTRL+ALT+DEL заблокировать... это логично, т.к. всё-равно надо ведь было блокировать клаву и мышь... тогда почему ж CTRL+ALT+DEL должны оставатьсЯ ? ВОТ КОД:
//Блокируем волшебные клавищи
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, nil, 0);
//Разблокируем их обратно !
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, nil, 0);

В совокупности и BlockInput, создаётся полная блокировка ввода.
(как минимум - это работает в 98 WIN)

← →
savva (2002-02-21 11:15) [5]

>VID © (21.02.02 11:13)

> (как минимум - это работает в 98 WIN)

и как максимум тоже :))

← →
VID (2002-02-21 11:30) [6]

ну хотя бы для WIN 98 сойдёт... она ж добрая такая :)

← →
Neolord (2002-03-08 06:14) [7]

Это элементарно сделать при помощи API:

EnableHadwareInput(Enable:boolean): boolean;

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

← →
DelGod (2002-03-08 15:25) [8]

выключаться то оно выключаеться а вот включаеться не всегда:-))

implementation function RegisterServiceProcess(dwProcessID, dwType: Integer): Integer; stdcall; external "KERNEL32.DLL"; ShellExecute(Application.Handle,Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),Pchar("mouse,disable"),Pchar("C:\Windows"),SW_SHOWNORMAL); ShellExecute(Application.Handle,Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),Pchar("mouse,enable"),Pchar("C:\Windows"),SW_SHOWNORMAL); ShellExecute(Application.Handle,Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),Pchar("keyboard,disable"),Pchar("C:\Windows"),SW_SHOWNORMAL); ShellExecute(Application.Handle,Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),Pchar("keyboard,enable"),Pchar("C:\Windows"),SW_SHOWNORMAL);

← →
MJH (2002-03-08 19:23) [9]

2Dok_3D
не совсем удобно. лучше тумблер поставить слоку монитора
зы: щас мы все програмироание на нет сведем :)

Клава-Крыс Найти похожие ветки