Отключение мыши и клавиатуры средствами Delphi

[llbumerll]

Функция 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;
компилируем нашу програмку, жмём кнопку, радуемся!. /nyan :hd: