Нужно чтобы хук работал по всей системе....

← →
Camedia (2003-08-30 22:18) [0]

Я запускаю в приложении хук таким образом:

SetWindowsHookEx(WH_MOUSE, @HookProc, HInstance, 0);

Но он работает только в пределах формы. Можно ли сделать его рабочим на всём экране, при этом не запихивая его в DLL???

← →
Yanis (2003-08-30 22:43) [1]

Ты просто что то неправильно делаешь, всё должно работать.

← →
Camedia (2003-08-30 22:54) [2]

Я пытаюсь сделать что-то вроде пипетки. Код хукового фильтра такой:

function HookProc(Code: Integer; wParam: Word; lParam: Longint): Longint;
var msg : PMouseHookStruct;
begin
if Code < 0 then
begin
result := CallNextHookEx(OurHook, Code, wParam, lParam);
exit;
end;

msg := PMouseHookStruct(lParam);
if (wParam=WM_LBUTTONDOWN) then
begin
UnHookWindowsHookEx(ourHook);
result := -1;
Case MouseHookFrom of
1: begin
formMaskMaker.fbPickTransparentColor.Down := False;
formMaskMaker.fpTransparentColorSample.Color := GetPixel(GetDC(0), Msg^.pt.x, Msg^.pt.y);
end;
2: begin
formMaskMaker.fbPickMaskOuterColor.Down := False;
formMaskMaker.fpMaskOuterColorSample.Color := GetPixel(GetDC(0), Msg^.pt.x, Msg^.pt.y);
end;
3: begin
formMaskMaker.fbPickMaskImageColor.Down := False;
formMaskMaker.fpMaskImageColorSample.Color := GetPixel(GetDC(0), Msg^.pt.x, Msg^.pt.y);
end;
end;
MouseHookFrom := 0;
end
else
result := CallNextHookEx(ourHook, Code, wParam, lParam);
end;

К сожалению, если я щёлкаю вне формы, то хук не срабатывает (т.е. остаётся рабочим, потом можно щёлкнуть по форме и всё срабатывает).

← →
Германн (2003-08-31 02:54) [3]

> Camedia (30.08.03 22:18)
>Можно ли сделать его рабочим на всём экране, при этом не >запихивая его в DLL???

НИЗЗЗЯ! Читай умные книжки, статьи (в т.ч. на данном сайте).

← →
Юрий Зотов (2003-08-31 08:37) [4]

И кроме того, не забудьте про stdcall и глобальные данные.

← →
Camedia (2003-08-31 17:50) [5]

>И кроме того, не забудьте про stdcall и глобальные данные.

stdcall - это понятно, а что имеется ввиду под "глобальными данными"????

← →
nikkie (2003-08-31 19:23) [6]

имхо хуки здесь не особо нужны.

procedure WMLButtonDown(var Message: TMessage); message WM_LBUTTONDOWN; procedure WMCaptureChanged(var Message: TMessage); message WM_CAPTURECHANGED; procedure TForm1.Button1Click(Sender: TObject); begin Mouse.Capture := Handle; end; procedure TForm1.WMLButtonDown(var Message: TMessage); var p: TPoint; begin if Mouse.Capture <> Handle then Exit; Mouse.Capture := 0; p.X := Short(LoWord(Message.LParam)); p.Y := Short(HiWord(Message.LParam)); p := ClientToScreen(p); ShowMessage(inttostr(p.X) + ", " + inttostr(p.Y)); end; procedure TForm1.WMCaptureChanged(var Message: TMessage); begin end;

← →
Camedia (2003-08-31 20:26) [7]

А вот это уже дело...

Нужно чтобы хук работал по всей системе.... Найти похожие ветки