Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Вниз

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


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]

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




Форум: "Система";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.01;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.027 c
1-102             Толик                 2002-03-17 22:15  2002.04.01  
Глюки TCHART


3-31              KMM                   2002-03-05 11:07  2002.04.01  
Уважаемые Мастера, помогите с


14-304            Виктор55              2002-02-17 22:20  2002.04.01  
Быстродействие компьютера при обычном использовании


14-302            Алексей Петров (M)    2002-02-15 11:56  2002.04.01  
2 Merlin: Убери, Please, от меня большую синию (M)


6-257             Fred                  2002-01-19 03:04  2002.04.01  
Как получить подтверждение доставки письма?