Блокировка клавиатуры и мышкиDelphi , ОС и Железо , КомпьютерБлокировка клавиатуры и мышки
Автор: IVA { **** 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; Блокировка клавиатуры и мышки - это процедура, которая позволяет временно заблокировать доступ к вводным устройствам, используя функцию из DLL'ки USER32.DLL. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |