{ **** UBPFD *********** by delphibase.endimus.com **** >> Блокировка клавиатуры и мышки Блокирует ВСЕ, и клавиатуру и мышь. Зависимости: нет Автор: -=IVA=-, seriva@mail.ru, ICQ:23667711, Moscow Copyright: С приятелем наковыряли Дата: 19 января 2004 г. ***************************************************** } procedureBlockInput(ABlockInput: boolean); stdcall
; external
'USER32.DLL'; // Вызываем функцию из DLL'ки
Пример использования:
procedureTForm1.N1Click(Sender: TObject); begin
BlockInput(True); // Вот собственно этим мы и блокируем клаву и мышь // (для обратного исхода надо вместо True написать False) end
;