Les*_*ess 4 delphi setwindowshookex
使用 Microsoft Spy++,当您打开/创建新文档时,我看到 Notepad++ 收到 WM_SETTEXT 消息。我需要在 Windows 上挂钩标题更改,因此我尝试执行 WH_GETMESSAGE 挂钩,并仅过滤 WM_SETTEXT。但到目前为止我还没有成功。这是我的 DLL:
uses
System.SysUtils,
Windows,
Messages,
System.Classes;
var
CurrentHook: HHOOK;
{$R *.res}
function GetMessageHookProc(Code: Integer; iWParam: WPARAM; iLParam: LPARAM): LRESULT; stdcall;
begin
Result:= CallNextHookEx(CurrentHook, Code, iWParam, iLParam);
if (Code = HC_ACTION) and (PMSG(iLParam).message = wm_settext) then
begin
MessageBox(0, 'WM_SETTEXT', 'WM_SETTEXT', MB_OK);
//this code below is just a prototype to what I will try when this works:
if IntToStr(PMSG(iLParam).lParam) = 'new - Notepad++' then
MessageBox(0, 'Notepad++', 'Notepad++', MB_OK);
end;
end;
procedure SetHook; stdcall;
begin
CurrentHook:= SetWindowsHookEx(WH_GETMESSAGE, @GetMessageHookProc, HInstance, 0);
if CurrentHook <> 0 then
MessageBox(0, 'HOOKED', 'HOOKED', MB_OK);
end;
procedure UnsetHook; stdcall;
begin
UnhookWindowsHookEx(CurrentHook);
end;
exports
SetHook,
UnsetHook;
begin
end.
Run Code Online (Sandbox Code Playgroud)
我收到“HOOKED”消息框,表明挂钩已解决,但我从未在回调过程的 if 中收到“WM_SETTEXT”消息框。如何只过滤这种消息,并检查消息的字符串?
谢谢你!
WM_SETTEXT是已发送的消息,而不是已发布的消息。挂钩只能看到发布WH_GETMESSAGE到目标线程的消息队列的消息,因此它永远不会看到消息。要挂钩直接发送到窗口而不通过消息队列的消息,您需要使用or挂钩。WM_SETTEXTWH_CALLWNDPROCWH_CALLWNDPROCRET
| 归档时间: |
|
| 查看次数: |
1653 次 |
| 最近记录: |