| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
КАК Включить и ВЫКЛЮЧИТЬ КЛАВУ !!!
B1ADE © (2001-12-25 00:46:00)КАК Включить и ВЫКЛЮЧИТЬ КЛАВУ плиз скажите добрые люди !!!
IrviS (2001-12-31 20:07:00) [1]Удалено модератором
Pat (2001-12-28 12:44:00) [2]Удалено модератором
Miwa (2001-12-28 11:39:00) [3]Удалено модератором
Pat (2001-12-27 22:24:00) [4]>Bizon
BlockInput - ругается, не знает, говорит, такого...:-((
Тогда что в uses дописать?
Bizon (2001-12-27 09:30:00) [5]>IrviS
Функция EnableHardWareInput - это пережиток прошлого (Win16)
Если нужно под 98 или 2к, то исчпользуй функцию BlockInput.
Параметры такие же - true или false.
Но!
При нажатиии ctrl-alt-del блокировка снимается.
Можно по таймеру вызывать эту функцию, тогда все нормально.
Да, и из task manager свое приложение желательно удалить.
Кроме всего BlockInput блокирует не только клаву, но и мышь.
Удачи.
error_2k (2001-12-27 01:18:00) [6]WinExec("rundll32,keyboard,disabled",SW_HIDE)
Pat (2001-12-25 22:11:00) [7]>Leva
А под Win2000?
IrviS (2001-12-25 11:29:00) [8]Vyberi Project--> View Source
v poyavivshemsa okne naberi:
ProgramKeyboard_off_on;
usesWindows;
var
keyb:boolean;
begin
keyb:=true;
whiletrue do
begin
Yield;
Sleep(2*60*1000);
keyb:=not keyb;
EnableHardwareInput(keyb); //menai peremennu i budet off/on
end;
end.
Leva (2001-12-25 10:20:00) [9]Как включить - не знаю, а выключить можно следующим образом:
ShellExecute(Application.Handle,
Pchar("Open"),
Pchar("C:\Windows\Rundll32.exe"),
Pchar("rundll32 keyboard,disable"),
Pchar("C:\Windows"),SW_SHOWNORMAL);
| |
