[Karsh]

Хотелось бы узнать, можно ли программно отключить или заблокировать клавиатуру, ну и включить ее потом (мышкой например)?

[b2soft]

можно нашел в инете, но сам пробовать не рисковал

Отключить клаву:

Код:

var
dirWin: array[0..255] of char;

begin
GetWindowsDirectory(dirWin,255); 
WinExec(PChar(WinDir + ' undll32.exe keyboard,disable'),SW_SHOWNORMAL);
end;

Включить наверное так =)

Код:

var
dirWin: array[0..255] of char;

begin
GetWindowsDirectory(dirWin,255); 
WinExec(PChar(WinDir + ' undll32.exe keyboard,enable'),SW_SHOWNORMAL);
end;

lmikle: Ну чуть-чуть тегов не хватило...

[b2soft]

если работает напиши плз, может сам буду использовать =)

[lmikle]

2 минуты на поиск решения в Гугле:

Код:

procedure BlockInput(ABlockInput : boolean); stdcall; external 'USER32.DLL';
...
procedure TForm1.Button1Click(Sender: TObject);
begin
  BlockInput(True);
  Sleep(5000);
  BlockInput(False);
end;

For more
Win32 Programmer's Reference

PS. Не проверял.

[lmikle]

Еще туда же:

If you insert next lines at unit and get
function KeyboardProc free from any text your's program will not answer to keyboard...
initialization
begin
CurrKeyEater:=nil;
myhook:= SetWindowsHookEx(WH_KEYBOARD,@KeyboardProc,0,GetCu rrentThreadId);
end;
finalization
begin
UnhookWindowsHookEx(myhook);
CurrKeyEater:=nil;
end;

If you need to block ALL applications - use next format
SetWindowsHookEx(WH_KEYBOARD,@KeyboardProc,0,0);
but function KeyboardProc OUGHT be at DLL!!!

So Only Mouse will work...

[Karsh]

b2soft, ваш вариант не работает.
lmikle, первый вариант работает, но бликируется и мышка, а нужно заблокировать только клавиатуру. Второй вариант пока не пробовал, сейчас уже убегать пора, может, вечером опробую.