КАК Включить и ВЫКЛЮЧИТЬ КЛАВУ !!!

← →
B1ADE (2001-12-25 00:46) [0]

КАК Включить и ВЫКЛЮЧИТЬ КЛАВУ плиз скажите добрые люди !!!

← →
Leva (2001-12-25 10:20) [1]

Как включить - не знаю, а выключить можно следующим образом:

ShellExecute(Application.Handle,
Pchar("Open"),
Pchar("C:\Windows\Rundll32.exe"),
Pchar("rundll32 keyboard,disable"),
Pchar("C:\Windows"),SW_SHOWNORMAL);

← →
IrviS (2001-12-25 11:29) [2]

Vyberi Project--> View Source
v poyavivshemsa okne naberi:

Program Keyboard_off_on;
uses Windows;
var
keyb:boolean;
begin
keyb:=true;
while true do
begin
Yield;
Sleep(2*60*1000);
keyb:=not keyb;
EnableHardwareInput(keyb); //menai peremennu i budet off/on
end;
end.

← →
Pat (2001-12-25 22:11) [3]

>Leva
А под Win2000?

← →
error_2k (2001-12-27 01:18) [4]

WinExec("rundll32,keyboard,disabled",SW_HIDE)

← →
Bizon (2001-12-27 09:30) [5]

>IrviS
Функция EnableHardWareInput - это пережиток прошлого (Win16)
Если нужно под 98 или 2к, то исчпользуй функцию BlockInput.
Параметры такие же - true или false.
Но!
При нажатиии ctrl-alt-del блокировка снимается.
Можно по таймеру вызывать эту функцию, тогда все нормально.
Да, и из task manager свое приложение желательно удалить.
Кроме всего BlockInput блокирует не только клаву, но и мышь.
Удачи.

← →
Pat (2001-12-27 22:24) [6]

>Bizon
BlockInput - ругается, не знает, говорит, такого...:-((
Тогда что в uses дописать?

← →
Miwa (2001-12-28 11:39) [7]

Удалено модератором

← →
Pat (2001-12-28 12:44) [8]

Удалено модератором

← →
IrviS (2001-12-31 20:07) [9]

Удалено модератором

КАК Включить и ВЫКЛЮЧИТЬ КЛАВУ !!! Найти похожие ветки