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

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Блокировка клавиатуры и мышки

Блокирует ВСЕ, и клавиатуру и мышь.

Зависимости: нет
Автор:       -=IVA=-, seriva@mail.ru, ICQ:23667711, Moscow
Copyright:   С приятелем наковыряли
Дата:        19 января 2004 г.
***************************************************** }

procedure
 BlockInput(ABlockInput: boolean); stdcall
; external
 'USER32.DLL';
  // Вызываем функцию из DLL'ки

Пример использования:

procedure
 TForm1.N1Click(Sender: TObject);
begin

  BlockInput(True);
  // Вот собственно этим мы и блокируем клаву и мышь
  // (для обратного исхода надо вместо True написать False)
end
;

Другое по теме:

• Определение системной информации
• Как передать при создании нити (Tthread) ей некоторое значение
• Частичная блокировка и разблокировка функций клавиатуры и мышки