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

Советы » Компьютер » Блокировка клавиатуры и мышки

{ **** 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

;

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

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com