| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Нужно чтобы хук работал по всей системе.... [D5, Win95/98]

Camedia ©   (2003-08-30 22:18:00) 

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

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

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

---

Camedia   (2003-08-31 20:26:00) [1]

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

---

nikkie   (2003-08-31 19:23:00) [2]

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

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 17:50:00) [3]

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

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

---

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

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

---

Германн   (2003-08-31 02:54:00) [5]

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

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

---

Camedia   (2003-08-30 22:54:00) [6]

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

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;

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

---

Yanis   (2003-08-30 22:43:00) [7]

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

---

Наверх