Форум: "Потрепаться";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
ВнизКлава-Крыс Найти похожие ветки
← →
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
не совсем удобно. лучше тумблер поставить слоку монитора
зы: щас мы все програмироание на нет сведем :)
Страницы: 1 вся ветка
Форум: "Потрепаться";
Текущий архив: 2002.04.15;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.004 c