(两年无解之题?)怎样获取TEdit的默认右键菜单(ContextMenu)的句柄 (200分)

kaithink · 2003-09-24

晕，看了半天你的代码都没想出怎么搞 楼上，我以为你说不行呢 怎么试法，钩子我不会啊，我就想要句柄，你帮我写出来吧 42753005我的QQ号 kaithink@msn.com我的MSN 大家都加我啊，谈论问题直接些，结果我会贴在这里结贴，分数绝不含糊!

coolmoon007 · 2003-09-24

先收藏一下，

bottom · 2003-09-24

直接了当最好谁能给一个可以运行原代码来？

bluebridge · 2003-09-24

在VCL中是不可能做到的，因为原始的Windows中的edit就有这个菜单。

RenWang · 2003-09-24

我也收藏一下了!

DeityFox · 2003-09-24

{ 单元名称: MenuSubClass.pas   功能简介: 通过Hook拦截菜单句柄,包括Tedit的右键菜单         作者: Deityfox          QQ : 58193693         MSN: Deityfox@hotmail.com } unit MenuSubClass; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms; const WM_SPECIAL=$01E2; //SPECIAL menu MENU_CLASS = '#32768'; EDIT_CLASS='TEdit'; type   TCallbackThunk = packed record     POPEDX: Byte;     MOVEAX: Byte;     SelfPtr: Pointer;     PUSHEAX: Byte;     PUSHEDX: Byte;     JMP: Byte;     JmpOffset: Integer;   end;   TMenuHookCallback =       procedure(code: Integer; wparam: WPARAM; lparam: LPARAM) of object;   TOSType=( Win32s,WinNT3,Win95,Win98,WinME,WinNT4,Win2000,WinXP,Win2003);   TMenuSubClass = class(TComponent)   private     { Private declarations }     log:tstringlist;     FHook                 : HHOOK;     FThunk,FThunk1        : TCallbackThunk;     bSysMenu              : Boolean;     NewProc               : Pointer;     OldProc               : Longint;     HookProc              : Pointer;     function MenuCallBack(code: Integer; wparam: WPARAM; lparam: LPARAM): LRESULT;stdcall;   protected     { Protected declarations }   public     { Public declarations }     constructor Create(AOwner: TComponent); override;     destructor Destroy; override;   published     { Published declarations }   end; procedure Register; implementation procedure Register; begin   RegisterComponents('foxVCL', [TMenuSubClass]); end; { TMenuSubClass } //hook CallBack Procedure function TMenuSubClass.MenuCallBack(code: Integer; wparam: WPARAM;   lparam: LPARAM): LRESULT; var   cwps: TCWPStruct;   lRet: Longint;   szClass: array[0..8] of char;   MenuHwnd:Hwnd; begin if (Code = HC_ACTION) then begin   CopyMemory(@cwps, Pointer(lParam), SizeOf(CWPSTRUCT));   case cwps.message of     WM_CONTEXTMENU:     begin       //判断是否Tedit       GetClassName(cwps.wParam, szClass, Length(szClass)-1);       if (lstrcmpi(szClass,EDIT_CLASS) = 0) then       begin        //Tedit 的句柄         log.add('TEdit Handle: '+inttostr(cwps.wParam));       end;     end;     WM_INITMENUPOPUP:     begin     log.add('WM_INITMENUPOPUP ');     //判断是否系统菜单     if (getSystemmenu(cwps.hwnd,false)=cwps.wParam) or (hiword(cwps.lParam)<>0) then       bSysMenu:=true     else       bSysMenu:=false;     end;     //特殊的菜单??如果没有这个消息好像在9x有些菜单钩不住     WM_SPECIAL: //$01E2 SPECIAL Menu???     begin       log.add('WM_SPECIAL '+inttostr(CWPs.hwnd));       GetClassName(cwps.hwnd, szClass, Length(szClass)-1);        // Window name for menu is #32768        if (lstrcmpi(szClass, MENU_CLASS) = 0) and (not bSysMenu) then        begin           log.add('WM_SPECIAL '+inttostr(CWPs.hwnd));            //cwps.hwnd就是菜单的句柄                ////           //可以对菜单进行子类化          end;        end;     end;     WM_CREATE:     begin       GetClassName(cwps.hwnd, szClass, Length(szClass)-1);        // Window name for menu is #32768        if (lstrcmpi(szClass, MENU_CLASS) = 0) and (not bSysMenu) then        begin           log.add('WM_CREATE '+inttostr(CWPs.hwnd));            //cwps.hwnd就是菜单的句柄                ////            //可以对菜单进行子类化          end;        end;     end;     WM_UNINITMENUPOPUP:bSysMenu:=false;   end;   Result:=0; end; // Call the next hook in the chain Result := CallNextHookEx(WH_CALLWNDPROC, Code, wParam, lParam); end; constructor TMenuSubClass.Create(AOwner: TComponent); begin   inherited Create(AOwner);   log:=tstringlist.Create;   if not (csDesigning in ComponentState) then   begin     FThunk.POPEDX:= $5A;     FThunk.MOVEAX:= $B8;     FThunk.SelfPtr:= Self;     FThunk.PUSHEAX:= $50;     FThunk.PUSHEDX:= $52;     FThunk.JMP:= $E9;     FThunk.JmpOffset:= Integer(@TMenuSubClass.MenuCallBack)-Integer(@FThunk.JMP)-5;     FHook:= SetWindowsHookEx(WH_CALLWNDPROC, TFNHookProc(@FThunk), 0, MainThreadID);   end; end; destructor TMenuSubClass.Destroy; begin   log.SaveToFile('e:/log.txt');   log.Free;   if not (csDesigning in ComponentState) then     UnhookWindowsHookEx(FHook);   inherited Destroy; end; end.

kaithink · 2003-09-24

楼上 正在试验中。。。

kaithink · 2003-09-24

谁再帮我加一个加菜单项 我试了几次不得其法，加不进，否则无法知道那个句柄到底是不是右键菜单的句柄。

DouZheng · 2003-09-24

问题要有人来回答， 那就得经常顶～ 就向做广告一样，收视率最重要呀～ 我顶，我顶，我帮你顶～ 自已也要顶呀～ 而且，会号召别人帮你顶，那才行～

kaithink · 2003-09-24

楼上正解，我顶

328xy · 2003-09-24

to kaithink:   DeityFox已给出方法，如果你还不太清楚就看看《DELPHI下深入WINDOWS核心编程》，上面对钩子介绍的相当详细。

kaithink · 2003-09-24

谢谢楼上推荐，书我会找来看的 我不是偷懒光等别人的答案 这个问题在提出后我问遍了跟前所有认识的程序员（还有一个搞VC图形图像搞了好些年的） 没有人答得上来 自己也瞎试了几个下午而不可得 也难怪 大家长时间都在做数据库应用 弱是肯定的 每个我问到的人都会问我要干什么 我一开始说要加一个菜单项进去 于是每个人都说何必那么麻烦 弄个TPOPMENU把剪切粘贴删除一搞不是随便你整 这种回答我认为是现实的可取的 但是又有点无可奈何的感觉 用google，能想到的能组合的关键词全都试了，未有所获 偶尔有一两个和我一样钻了牛角尖的贴子也大都无果而终 这个问题的意义倒底在哪里 我自己已经搞不清楚了 上面用钩子找到的是否是右键菜单的句柄 我现时的水平（在未看书之前）暂时是不知道了 不过我还是谢谢所有关注这个贴子的朋友 如果后面我加入菜单成功（我想所有提这个问题的朋友基本就是这个目的） 我会把完整方案贴上来（只要大富翁不提示灌水） 以便有钻了这个牛角尖的朋友不会空手而回 这就把分散了

wlmmlw · 2003-09-27

请问菜单的柄是叫HMENU 窗口的柄是叫HWND，这两者有什么关系？？？？ 参考WM_ENTERIDLE可知道弹出式菜单(PopupMenu)其实还有一个关联(我还没弄清楚这两者的关系)着的窗口。 我们可以得到这个窗口柄TMessage(Message).LParam 但是如何从这个窗口上弄到HMENU.... Type   TMyEdit = class(TEdit)   public     procedure DefaultHandler(var Message); override;     procedure WndProc(var Message: TMessage); override;   end; procedure TMyEdit.DefaultHandler(var Message); begin //  inherited DefaultHandler(Message);   with TMessage(Message) do   begin     case Msg of       WM_ContextMenu: begin         (Owner as TFrmTest).MmTest.Lines.Add('DefaultHandler WM_ContextMenu');         inherited DefaultHandler(Message);         //(Owner as TFrmTest).Caption := 'After DefaultHandler';       end;       WM_ENTERMENULOOP:         (Owner as TFrmTest).MmTest.Lines.Add('DefaultHandler WM_ENTERMENULOOP');       WM_INITMENUPOPUP:         (Owner as TFrmTest).MmTest.Lines.Add('DefaultHandler WM_INITMENUPOPUP');       else         inherited DefaultHandler(Message);     end;   end; end; procedure EnumChildProc(var wnd: HWND; lParam: LongInt); begin   FrmTest.MmTest.Lines.Add(format('0x%x', [wnd])); end; procedure TMyEdit.WndProc(var Message: TMessage); var   lpEnumFunc: Pointer; begin //  inherited;   case Message.Msg of     WM_ENTERMENULOOP:       (Owner as TFrmTest).MmTest.Lines.Add('WndProc WM_ENTERMENULOOP');     WM_INITMENUPOPUP:       (Owner as TFrmTest).MmTest.Lines.Add('WndProc WM_INITMENUPOPUP');     WM_ENTERIDLE: begin       //(Owner as TFrmTest).MmTest.Lines.Add('WndProc WM_ENTERIDLE');       if (Message.wParam = MSGF_MENU) then         //if (Message.lParam = Handle) then         (Owner as TFrmTest).MmTest.Lines.Add(             format('WndProc Menu Found MSGF_MENU 0x%x', [Message.LParam]));         //ShowWindow(Message.LParam, SW_HIDE);         //SetWindowPos(Message.LParam, 0, 10, 10, 20, 20, SWP_SHOWWINDOW);         //ShowWindow(Message.LParam, SW_SHOW);         lpEnumFunc := @EnumChildProc;         if EnumChildWindows(Message.LParam, lpEnumFunc, 0) = false then          (Owner as TFrmTest).MmTest.Lines.Add('EnumChildWindows Error');         if (IsMenu(GetMenu(Message.LParam))) then           (Owner as TFrmTest).Caption := 'Found MENU Handle'         else (Owner as TFrmTest).Caption := 'No Menu Handle Found';     end;     //else     //  (Owner as TFrmTest).MmTest.Lines.Add('WndProc Msg else');   end;   inherited; end;

(两年无解之题?)怎样获取TEdit的默认右键菜单(ContextMenu)的句柄 (200分)

kaithink

Unregistered / Unconfirmed

coolmoon007

Unregistered / Unconfirmed

bottom

Unregistered / Unconfirmed

bluebridge

Unregistered / Unconfirmed

RenWang

Unregistered / Unconfirmed

DeityFox

Unregistered / Unconfirmed

kaithink

Unregistered / Unconfirmed

kaithink

Unregistered / Unconfirmed

DouZheng

Unregistered / Unconfirmed

kaithink

Unregistered / Unconfirmed

328xy

Unregistered / Unconfirmed

kaithink

Unregistered / Unconfirmed

wlmmlw

Unregistered / Unconfirmed

Similar threads