Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.016 c