Блокировка клавиатуры

[Raivolo]

Подскажите код для блокирования клавиатуры полностью. Нужно чтобы при запуске программы клавиатура отключалась.

[EducatedFool]

Выполните команду rundll32 keyboard,disable
Правда, включить её аналогичным способом не выйдет...

Здесь есть ещё примеры использования функций rundll32

[Raivolo]

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

Выполните команду rundll32 keyboard,disable
Правда, включить её аналогичным способом не выйдет...

Здесь есть ещё примеры использования функций rundll32

Извеняюсь за тупость
Если нетрудно напишите пример кода, то у меня

procedure TForm1.Button1Click(Sender: TObject);
begin
rundll32 keyboard,disable;
end;

end.

чото неработает

[r9m]

Выполните команду rundll32 keyboard,disable
Правда, включить её аналогичным способом не выйдет...

Давно, давно в далёкой далёкой Win95/9x )))

TC, делай так:

while true do BlockInput(1);