Банальный вопрос но..... [D6, Win2k]
pok © (2003-03-13 12:49:00)
Уважаемые мастера!
Мне нужно заблокировать клавиатуру и мыш, нашол такой пример
но под 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:00) [1]
Попробуйте
BlockInput() ...должно получиться! :-)
Наверх 
ЧАТ |
Орешник |
|
