Текущий архив: 2003.05.15;
Скачать: CL | DM;
Вниз
Банальный вопрос но..... Найти похожие ветки
← →
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()...должно получиться! :-)
Страницы: 1 вся ветка
Текущий архив: 2003.05.15;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.012 c
