Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

Блокировать клавиатуру   Найти похожие ветки 

 
Фредди   (2002-03-30 20:56) [0]

Как блокировать клавиатуру в NT?


 
VuDZ ©   (2002-03-30 21:59) [1]

а поискать слабо?


 
Neox ©   (2002-03-31 16:45) [2]

если аппаратно, то разницы нет - NT, 9x или даже Linux


 
Dimaond Cat ©   (2002-04-01 23:20) [3]

во-во аппаратно надо, перегрызть шнур и дело сконцом


 
AFROLOV   (2002-04-02 10:24) [4]

Делается это так:
1. Устанавливсем глобальный Hook на клавиатуру. (пример имеется на этом сайте)
2. В функции фильтре изымеем все сообщения с помощью GetMessage.



 
komarov ©   (2002-04-03 09:27) [5]

procedure BlockInput(ABlockInput:boolean); stdcall; external "USER32.DLL";


В Windows 9x для Delphi существует следующая штука:

Напри мер, выход из Windows без любых сообщений/вопросов:
ShellExecute(Application.Handle,
Pchar("Open"),Pchar("C:\Windows\Rundll32.exe"),
Pchar("krnl386.exe,exitkernel"),
Pchar("C:\Windows"),SW_SHOWNORMAL);

"rundll32 shell32,Control_RunDLL" - Выводит "Панель управления"
"rundll32 shell32,OpenAs_RunDLL" - Выводит окошко - "Открыть с помощью.."
"rundll32 shell32,ShellAboutA Info-Box" - Покозать окно "About Windows"
"rundll32 shell32,Control_RunDLL desk.cpl" - Открыть "Свойства Экрана"
"rundll32 user,cascadechildwindows" - Сортировка окон "Каскадом" (Как в Win 3.x)
"rundll32 user,tilechildwindows" - Сместить Окна в низ
"rundll32 user,repaintscreen" - Обновить рабочий стол
"rundll32 shell,shellexecute Explorer" - Запустить проводник Windows.
"rundll32 keyboard,disable" - Вырубить Клавиатуру! (Вот Это я понимаю Заподло!)
"rundll32 mouse,disable" - Вырубить Мышь! (У Шефа Будет припадок:)))
"rundll32 user,swapmousebutton" - Поменять Местами клавиши Мыша! (Во мля! и этого Дядя Билли не забыл!)
"rundll32 user,setcursorpos" - Сместить курсор крысы в левый верхний угол
"rundll32 user,wnetconnectdialog" - Вызвать окно "Подключение сетевого диска"
"rundll32 user,wnetdisconnectdialog" - Вызвать окно "Отключение сетевого диска"
"rundll32 user,disableoemlayer" - Спровоцировать сбой!!! (Знаю, сам сразу не поверил, но это FUсKт...)
"rundll32 diskcopy,DiskCopyRunDll" - Показать окно "Copy Disk"
"rundll32 rnaui.dll,RnaWizard" - Вывод окна "Установка Связи", с ключем "/1" - без окна
"rundll32 shell32,SHFormatDrive" - Окно "Форматирование: Диск3,5(А)" вызвать
"rundll32 shell32,SHExitWindowsEx -1" - Перегрузить Explorer"rundll32 shell32,SHExitWindowsEx 1" - Выключение Компутера.
"rundll32 shell32,SHExitWindowsEx 0" - Завершить Работу Текущего Пользователя
"rundll32 shell32,SHExitWindowsEx 2" Windows-98-PC boot
"rundll32 krnl386.exe,exitkernel" - выход из Windows без любых сообщений/вопросов
"rundll rnaui.dll,RnaDial "MyConnect" - Вызвать окошко "Установка связи" с соединением "MyConnect"
"rundll32 msprint2.dll,RUNDLL_PrintTestPage" - выбрать в появившемся меню принтер и послать, а него тест
"rundll32 user,setcaretblinktime" - установить новую частоту мигания курсора
"rundll32 user,setdoubleclicktime" - установить новую скорость двойного нажатия
"rundll32 sysdm.cpl,InstallDevice_Rundll" - установить non-Plugamp&Play оборудование





Страницы: 1 вся ветка

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.017 c
3-918
agrig
2002-06-06 19:18
2002.07.01
как с помощью Install Shield создать алиас моей базы в BDE?


1-1042
finger
2002-06-17 12:38
2002.07.01
Диалоговые окна


1-1088
volph
2002-06-19 12:15
2002.07.01
как в ReachEdit разукрасить строки, сделать жирным?


7-1235
Ziv
2002-04-03 17:20
2002.07.01
Нужно послать факс по модему


1-1027
d_oleg
2002-06-18 10:45
2002.07.01
TBitMap - в dll