Заблокировать клавиатуру

[Son]

Доброго времени суток. Такой вопрос. Написа ловушку для блокировки клавиатуры по ресурсам интернета. Она блокирует только нажатие символьных клавиш. Как сделать блокировку остальных?
Вот код:

function KeyboardProc(code: integer; wParam: word; lParam: longint) : longint; stdcall;
var AppWnd:HWND;
Begin
if code < 0 then
Result:= CallNextHookEx(CurHook, Code, wParam, lParam)
else
begin
//if wParam = $20 then
// UnhookWindowsHookEx(CurHook)
//else
result:=1;
end;
end;

В закоментированной строке я потом надеюсь отслеживать комбинацию клавиш, по которой потом ловушку буду скидывать.

[rpy3uH]

читай! http://pblog.ru/?p=293
специально для тебя

[CyberGenus]

Еще можно попробовать через вызов библиотеки user32.dll:

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

procedure TForm1.FormCreate(Sender: TObject);
begin
Application.ShowMainForm:=false;
BlockInput(True);
end;

[Son]

Спасибо за ответы, но оба варианта не удовлетворяют. В первом случае не удается блокировать нажатие клавиш Windows или сочетаний клавиш, во втором есть только один способ разблокировки Cntr+Alt+Del и других сочетаний не отлавливается.

[|{ot]

Пробуй так:

DLL:

MouseHookStopSystem PROC nCode:DWORD,wParam:DWORD,lParam:DWORD
	mov eax,lParam
	assume eax:ptr MOUSEHOOKSTRUCT

	.if [eax].pt.x==0 && [eax].pt.y==0
		invoke FindWindow,;ищю свое окно
		invoke SendMessage,eax,WM_COMMAND,Start_WM,0
	.endif

 ret
MouseHookStopSystem ENDP

KeyHookStopSystem Proc nCode:DWORD,wParam:DWORD,lParam:DWORD

 ret
KeyHookStopSystem endp

Приложение:

;установка
invoke SetWindowsHookEx,WH_KEYBOARD,addr KeyHookStopSystem ,hDll,0
invoke SetWindowsHookEx,WH_MOUSE,addr MouseHookStopSystem ,hDll,0

;снятие(у меня по обработке сообщения WM_COMMAND):
	.elseif eax==Start_WM
		invoke UnhookWindowsHookEx,hStopHookMouse
		invoke UnhookWindowsHookEx,hStopHookKey

Ctrl+Alt+Del, Window, Win+L, Alt+Tab не блокирует, но сделать все равно ничего нельзя. Ну откроется диспетчер задач или окно пуск и че? Ни снять задачу ни что иное не получится..))
Диспетчер задач можно скрыть в этом случае тривиальным способом (запустить с параметром SW_HIDE)
А в функциях - фильтрах можно поставить свои условия снятия хуков...

[uberchel]

Cкачай блокиратор.exe
Ну, а по теме рули в user32!