Банальный вопрос но.....

← →
pok (2003-03-13 12:49) [0]

Уважаемые мастера!
Мне нужно заблокировать клавиатуру и мыш, нашол такой пример но под Win2k не работает...
помогите пожалуйста!

var
Dummy : integer=0;
OldKbHook : HHook=0;

function KbHook( code: Integer; wparam: Word; lparam: LongInt ): LongInt; stdcall;
begin

if code<0 then Result:=CallNextHookEx( oldKbHook, code, wparam, lparam )
else Result:=1;
end;

procedure TForm1.KeyBoardOn(Sender: TObject);
begin

if OldKbHook <> 0 then begin
UnHookWindowshookEx( OldKbHook );
OldKbHook := 0;
end;
SystemParametersInfo( SPI_SETFASTTASKSWITCH, 0, 0, 0);
SystemParametersInfo( SPI_SCREENSAVERRUNNING, 0, 0, 0);
end;

//

← →
Nimbus © (2003-03-19 17:34) [1]

Попробуйте BlockInput() ...должно получиться! :-)

Банальный вопрос но..... Найти похожие ветки