Форум: "Система";
Текущий архив: 2003.05.15;
Скачать: [xml.tar.bz2];
Вниз
Банальный вопрос но..... Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c
