блокировка клавиатуры и мыши

[Var17]

Такая ситуация : запускается программа и имитирует нажатие клавиш (идет ввод пароля). Необходимо, чтобы во время выполнения программы блокировалась клава и мышь, для того чтоб пользователь ничего левого не успел ввести.

[Stilet]

Ну дык хук поставь на клаву и не передавай ловленное им далее по очереди.
или

[Var17]

Сообщение от Stilet

Ну дык хук поставь на клаву и не передавай ловленное им далее по очереди.
или

Если можно хотелось бы по потробнее или дайте ссылку на литературу.

[Stilet]

Поиском по форуму и по DelphiWorld

[_Dmitry]

procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';
//..........
BlockInput(true); //заблокировать клаву и мышь
BlockInput(false); //снять блокировку

Ctrl+Alt+Delete тоже снимает блокировку

[Var17]

Сообщение от _Dmitry

procedure BlockInput(ABlockInput: boolean); stdcall; external 'USER32.DLL';
//..........
BlockInput(true); //заблокировать клаву и мышь
BlockInput(false); //снять блокировку

Ctrl+Alt+Delete тоже снимает блокировку

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

[Stilet]

Дык читай коментарии, там как раз обьяснения