W jaki sposób zablokować mysz i klawiaturę na jakiś czas a potem je odblokować?
Wiem, że ablokować można kożystając z rundll23 ale później nie można tego odblokować
Widziałem w FAQ coś o HOOK'ach ale czy mógł by mi ktoś przetłumaczyć to na język polski [wstyd] bo coś mi nie wychodzi
Klawiatury to tak:
var MainHook : HHOOK;
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
A w Implementation:
function KeyHook(Code: Integer; wParam : WPARAM; lParam : LPARAM): Longint; stdcall;
var
Buffer: TEventMsg;
begin
result := 0 ;
Buffer := PEventMsg(lParam)^;
if Buffer.message = wm_KeyDown then
Form1.Memo1.Text := Form1.Memo1.Text + chr(Buffer.paraml);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MainHook := SetWindowsHookEx(wh_JournalRecord, KeyHook, HInstance, 0);
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
UnhookWindowsHookEx(MainHook);
end;
a myszki to niewiem!!.
do myszy analogicznie, wystarczy przestudiować MSDN o hookach
A mógł byś mi napisać to analogicznie :-)
http://www.msdn.microsoft.com/ poza tym przestudiuj uzywane w wym wypadku Windows.pas, szukaj stałych zaczynajacych się na wh, a gdzieś znajdziesz mouse (i to bedzie do myszy)
wiem, że się czepiam ;-) ale twój link do microsoftu niechce zaskoczyć, więc czego mam szukac w windows.pas
Możesz zblokować myszkę ograniczając jej położenie do pewynch wymiarów ekranu (na.: wymiarów formy). A procedure blokowania jest taka:
var
Obszar: TRect;
begin
Obszar.Left := <font color="blue">0</span>;
Obszar.Top := <font color="blue">0</span>;
Obszar.Right := <font color="blue">150</span>;
Obszar.Bottom := <font color="blue">150</span>;
ClipCursor(@Obszar);
end;
a odblokowywujesz tak:
var
Obszar: TRect;
begin
Obszar.Left := <font color="blue">0</span>;
Obszar.Top := <font color="blue">0</span>;
Obszar.Right := Screen.width;
Obszar.Bottom := Screen.Height;
ClipCursor(@Obszar);
end;
I po sprawie... :-)
Tak. Z tym że zablokuje to mysz na poziomie programu, a mi chodzi o to aby zablokować mysz np podczas grania w Quake