Регистрация Главная Пользователи Все разделы прочитаны
Сообщения за день Справка Регистрация
Навигация
Zhyk.org LIVE! Реклама на Zhyk.org Правила Форума Награды и достижения Доска "почета"

Ответ
 
Опции темы
Старый 11.09.2013, 16:36   #1
 Разведчик
Аватар для llbumerll
 
llbumerll на правильном путиllbumerll на правильном пути
Регистрация: 10.07.2011
Сообщений: 8
Популярность: 141
Сказал(а) спасибо: 0
Поблагодарили 3 раз(а) в 2 сообщениях
Отправить сообщение для llbumerll с помощью Skype™
 
Post Отключение мыши и клавиатуры средствами Delphi

Функция WinAPI BlockInput блокирует события клавиатуры и мыши из вызывающих приложений.

Как только Вы щелкните кнопку, Ваша клавиатура и мышь будет блокирована в течении 5 секунд.

Помещаем кнопку Button1 на форму Form1 в обработчике события OnClick кнопк обьявляем переменную
BlockInput : function(Block: BOOL): BOOL; stdcall;
и дальше вставляем код.


Цитата:
if FuncAvail('USER32.DLL', 'BlockInput', @BlockInput) then
begin
ShowMessage('Ваша Мышь и Клавиатура будет заблокирована на 5 секунд!') ;
BlockInput(true) ;
Sleep(5000) ;
BlockInput(false) ;
end;
end;

а после кода
implementation

{$R *.dfm}

вставьте

Цитата:
function FuncAvail(dllName, funcName: string; var p: pointer): boolean;
var
lib: THandle;
begin
result := false;
p := nil;
if LoadLibrary(PChar(dllName)) = 0 then exit;
lib := GetModuleHandle(PChar(dllName)) ;
if lib <> 0 then
begin
p := GetProcAddress(lib, PChar(funcName)) ;
if p <> nil then Result := true;
end;

компилируем нашу програмку, жмём кнопку, радуемся!.
________________
[Ссылки могут видеть только зарегистрированные пользователи. ]
APB Trigger bot
  Ответить с цитированием
2 пользователя(ей) сказали cпасибо:
dred777 (22.02.2014), NebesaBag (24.09.2013)
Ответ

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
[Файл] Отправка email средствами Delphi TryCoder Pascal/Delphi 4 24.09.2016 11:44
[Программа] Программа которая запоминая действия мыши+клавиатуры Life1sGood Боты, скрипты и прочий софт для Aion 34 06.01.2015 14:20
Perfect world отключение пв протектора(отключил и забыл) konstantinqq Баги и читы Perfect World 7 06.01.2010 16:41

Заявление об ответственности / Список мошенников

Часовой пояс GMT +4, время: 19:33.

Пишите нам: [email protected]
Copyright © 2024 vBulletin Solutions, Inc.
Translate: zCarot. Webdesign by DevArt (Fox)
G-gaMe! Team production | Since 2008
Hosted by GShost.net