Hook на wm_settext ???

← →
GanibalLector © (2004-05-31 16:27) [0]

Необходимо поставить ХУК на изменения Caption некоторого приложения(даже не приложения,а кнопки...ну это не важно).Понятно,что это wm_settext в CallNextHookEx,а вот с первым параметром SetWindowsHookEx затрудняюсь.Что ставить,WH_CBT???
З.Ы. Да,знаю...сейчас Вы скажите читай.Пробовал...дык там все на английском.Проблемы у меня с английским.

← →
GanibalLector © (2004-05-31 18:51) [1]

ну и ???

← →
GanibalLector © (2004-06-01 01:02) [2]

Упростим задачу в учебных целях.
Предположим делаю следующее :

procedure TForm1.FormCreate(Sender: TObject); begin Form1.FormStyle := fsStayOnTop; CheckBox1.Enabled := false; CheckBox1.Caption := "left button"; CheckBox2.Enabled := false; CheckBox2.Caption := "right button"; CheckBox3.Enabled := false; CheckBox3.Caption := "keyboard"; CheckBox4.Enabled:=false; CheckBox4.Caption:="wm_settext"; HookHandle := SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0); end; function HookProc(Code: integer; WParam: word; LParam: Longint): Longint; stdcall; var msg: PEVENTMSG; key:Integer; begin if Code >= 0 then begin result := 0; msg := Pointer(LParam); with Form1 do case msg.message of WM_MOUSEMOVE: Caption := IntToStr(msg.ParamL) + #32 + IntToStr(msg.ParamH); WM_LBUTTONDOWN: CheckBox1.Checked := true; WM_LBUTTONUP: CheckBox1.Checked := false; WM_RBUTTONDOWN: CheckBox2.Checked := true; WM_RBUTTONUP: CheckBox2.Checked := false; WM_KEYUP: CheckBox3.Checked := false; WM_KEYDOWN: begin CheckBox3.Checked := true; if GetForegroundWindow=Form1.Handle then begin key := msg.paramL and 255; if key in [48..57, 65..90] then Edit1.Text := Edit1.Text + chr(key);end; end; // вот это все работает,НО ПОЧЕМУ,КОГДА Я СТАВЛЮ wm_move или // wm_settext или WM_ACTIVATE то ничего не происходит??? end; end else result := CallNextHookEx(HookHandle, code, WParam, LParam); end; procedure TForm1.FormDestroy(Sender: TObject); begin if HookHandle <> 0 then UnhookWindowsHookEx(HookHandle); end;

Да...

Hook на wm_settext ??? Найти похожие ветки