Форум: "Система";
Поиск по всему сайту: 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.019 c
1-100             Maybe                 2002-03-20 15:58  2002.04.01  
экземпляры различных классов в одной коллекции


1-142             Zool                  2002-03-21 22:53  2002.04.01  
Ошибка


3-18              andreik               2002-03-06 11:28  2002.04.01  
что писать в UpdateSQL?


1-157             Alex Dobrushin        2002-03-18 14:57  2002.04.01  
Как показать и распечатать PDF файл?


1-199             vlad451               2002-03-20 10:30  2002.04.01  
DLL