一难题请教~(100分)

yanyandt2 · 2003-04-21

当鼠标按下某一个程序的菜单时，我想得到该菜单上的文字， 请问如何实现？ 谢谢！ 我想的使用钩子，不过不知道该如何做。

tianjh007 · 2003-04-21

鼠标按下不知道，不过在WM_MENUSELECT消息中倒是可以捕捉到按下的菜单 在WH_CALLWNDPROCRET类型的HOOK中捕捉 下边是我以前学习写的一段代码，你参考一下 type   TGoData = record     TargetWnd : Hwnd;     AppHwnd : THandle;     ghHook : HHook;     HM_Selected: THandle;     Send: Boolean;     SLD_WM_SEND: Cardinal;     SLD_WM_NEW: Cardinal;     SLD_WM_OPEN: Cardinal;     SLD_WM_SAVE: Cardinal;     SLD_WM_QUIT: Cardinal;     HM_FILE: THandle;     HM_NEW: THandle;     HM_OPEN: THandle;     HM_SAVE: THandle;     HM_QUIT: THandle;   end;   PGoData = ^TGoData; var   GoData: PGoData;   MemFile : THandle;   aStr: String; procedure InitialMenu(HD_APP: THandle); var   hm,phm: THandle; begin   //注册系统消息   GoData^.SLD_WM_NEW :=RegisterWindowMessage('SLD_WM_NEW');   GoData^.SLD_WM_OPEN :=RegisterWindowMessage('SLD_WM_OPEN');   GoData^.SLD_WM_SAVE :=RegisterWindowMessage('SLD_WM_SAVE');   GoData^.SLD_WM_QUIT :=RegisterWindowMessage('SLD_WM_QUIT');   //添加菜单并获取各菜单标志   //文件菜单   phm :=CreateMenu;   GoData^.HM_FILE :=phm;   AppendMenu(phm,MF_STRING,phm+1,'新建          Ctrl+N');   GoData^.HM_NEW :=Lo(phm+1);   AppendMenu(phm,MF_STRING,phm+2,'打开          Ctrl+O');   GoData^.HM_OPEN :=Lo(phm+2);   AppendMenu(phm,MF_STRING,phm+3,'关闭');   GoData^.HM_SAVE :=Lo(phm+3);   AppendMenu(phm,MF_SEPARATOR,0,'-');   AppendMenu(phm,MF_STRING,phm+4,'退出');   GoData^.HM_QUIT :=Lo(phm+4);   hm :=GetMenu(HD_APP);   AppendMenu(hm,MF_POPUP,phm,'文件'); end; //内存映射 procedure IntoShare; stdcall;export; begin   MemFile := OpenFileMapping( FILE_MAP_WRITE, False, 'JJYY' );   if MemFile = 0 then     MemFile:=CreateFileMapping( $FFFFFFFF, nil,              PAGE_READWRITE, 0, SizeOf( TGoData ), 'JJYY');   GoData := MapViewOfFile( MemFile, FILE_MAP_WRITE, 0, 0, 0 );   if MemFile = 0 then   FillChar( GoData^, SizeOf( TGoData ),0);   SetLength(aStr,255); end; procedure DllParamSet(hw: Hwnd; hws: THandle);stdcall; export; var   phm,hm: Hmenu; begin   GoData^.AppHwnd :=hw;   GOData^.TargetWnd :=hws;   InitialMenu(hws); end; function MouseHookHandler(iCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; export; var  cpw: CWPRETSTRUCT;  i: Cardinal; begin   cpw :=PCWPRETSTRUCT(lparam)^;   Result := 0;   If iCode < 0 Then   begin     Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);     Exit;   end;   if (cpw.hwnd = GoData^.TargetWnd) or (IsChild(GoData^.TargetWnd,cpw.hwnd)) then   begin     Result :=1;     if cpw.message = WM_MENUSELECT then     begin       With GoData^ do       begin         Send :=False;         if cpw.lParam = 0 then Exit;         HM_Selected :=cpw.lParam; //        ShowMessage(IntToStr(cpw.lParam));         i :=Lo(cpw.wParam); //        if i=Lo(cpw.lParam) then Exit;         SLD_WM_SEND :=0;         if HM_FILE = cpw.lParam then         begin           if i in [HM_NEW,HM_OPEN,HM_SAVE,HM_QUIT] then           begin             SEND :=true;           end           else           begin             SEND :=false;           end;           if HM_NEW=i then             SLD_WM_SEND :=SLD_WM_NEW           else if HM_OPEN=i then             SLD_WM_SEND :=SLD_WM_OPEN           else if HM_SAVE=i then             SLD_WM_SEND :=SLD_WM_SAVE           else if HM_QUIT=i then             SLD_WM_SEND :=SLD_WM_QUIT;         end;       end;     end;     if cpw.message = WM_SYSCOMMAND then     begin       PostMessage(GoData^.AppHwnd,GoData^.SLD_WM_SEND,0,0);     end;   end; //  result :=callnexthookex(0,icode,wparam,lparam); end; function EnableMouseHook: BOOL; export; begin   Result := False;   if hNextHookProc <> 0 then Exit; // WH_CALLWNDPROCRET  WH_MOUSE  WH_KEYBOARD  WH_JOURNALRECORD WH_JOURNALPLAYBACK   hNextHookProc := SetWindowsHookEx(WH_CALLWNDPROCRET,     MouseHookHandler,     HInstance,     0);   Result := hNextHookProc <> 0; end; function DisableMouseHook: BOOL; export; begin   if hNextHookProc <> 0 then   begin     UnhookWindowsHookEx(hNextHookProc);     hNextHookProc := 0;     MessageBeep(0);   end;   Result := hNextHookProc = 0; end; procedure MouseHookExit; begin   if hNextHookProc <> 0 then DisableMouseHook;   ExitProc := procSaveExit; end;

yanyandt2 · 2003-04-21

谢谢，我实验了一下，这个问题想请教一下： function HookProc(iCode:Integer;wParam:wParam;lParam:lParam):LRESULT;stdcall; var HookStruct: CWPRETSTRUCT;// caption2:array [0..255] of char; begin Result:=1; HookStruct:=PCWPRETSTRUCT(lparam)^; if iCode < 0 then begin Result := CallNextHookEx(hHook,iCode,wParam,lParam); exit; end; if HookStruct.message = WM_MENUSELECT then begin getMenuString(HookStruct.lParam,lo(HookStruct.wParam),     caption2,255,hi(HookStruct.wParam)); form1.label1.Caption:=caption2; end;         end; 现在我一SetwindowsHookEx(WH_CALLWNDPROCRET,HookProc,HInstance,0); 程序就非法操作，请问该如何解决？

tianjh007 · 2003-04-21

你上边的代码不全，所以我也不知道 你要是愿意的话留个Email，我把写好的DLL源代码发给你，你看看 对了我看你上边的代码有Form1.这样的代码，不知你是不是在应用程序中用的SetwindowsHookEx 你要想获得其他程序的消息，必须在DLL中实现

yanyandt2 · 2003-04-21

我刚才是写到form里的。 正在实验dll中的。 我的email: realyanyan@sohu.com 非常感谢！！

yanyandt2 · 2003-04-21

我在dll中实现不会出现错误了。 可是我无法得到其他程序菜单的文字，请问是怎么回事？

tianjh007 · 2003-04-21

既然不出错了，那我就不发了 我没有试过取得菜单的文字，不过我想只要取得菜单的句柄那么就应该可以得到他的文字 你是一下用API函数GetMenuItemInfo，我刚刚看了一下觉得应该是可以的。 GetMenuItemInfo VB声明 Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long 说明 用一个MENUITEMINFO结构取得（接收）与一个菜单条目有关的特定信息 返回值 Long，TRUE（非零）表示成功，否则返回零。会设置GetLastError 参数表 参数类型及说明 hMenu Long，菜单的句柄 un Long，菜单条目的菜单ID或位置 b Boolean，如un指定的是条目位置，就为TRUE；如指定的是一个菜单ID，则为FALSE lpMenuItemInfo MENUITEMINFO，这个结构用于装载请求的信息 MENUITEMINFO 类型定义 Type MENUITEMINFO cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpChecked As Long hbmpUnchecked As Long dwItemData As Long dwTypeData As Long cch As Long End Type 说明 这个结构包含了菜单条目的信息，不支持win nt 3.51（原文：This structure contains information about a menu entry. Not supported on NT 3.51）   字段表 字段类型及说明 cbSize Long，结构大小，通常为44bytes（Size of this structure, currently at 44 bytes.） fMask Long，Specifies the information to set or get. Any combination of the following MIIM_CHECKMARKS Sets or gets the hbmpChecked and hbmpUnchecked fields MIIM_DATA Sets or gets the dwItemData field MIIM_ID ets or gets the wID field MIIM_STATE Sets or gets the fState field MIIM_SUBMENU Sets or gets the hSubMenu field MIIM_TYPE Sets or gets the fType and dwTypeData fields fType Long，Menu item type, any combination of the following with the exception that MFT_BITMAP, MFT_SEPARATOR, and MFT_STRING cannot be combined with one another:MFT_BITMAP: Displays the menu item using a bitmap. dwTypeData contains the bitmap handle.MFT_MENUBARBREAK: The menu item is placed on a new line for top level menus, a new column for popup menus. Places a line between the columns.MFT_MENUBREAK: Same as MFT_MENUBREAK without the vertical line.MFT_OWNERDRAW: The menu item is an owner-draw menu.MFT_RADIOCHECK: Uses a radio button (option button) bullet to indicate the checked state instead of a check mark. Applies if no custom bitmap is specified.MFT_RIGHTJUSTIFY: Right-justifies a top level menu item.MFT_SEPARATOR: The entry is a separator line in a pop-up menu.MFT_STRING: The entry contains a string. dwTypeData contains the address of the string, and the cch field contains the length of the string. fState Long，Current menu entry state or action to take. May be any combination of the following:MFS_CHECKED: Entry is checked.MFS_DEFAULT: The entry is a default item (appears in bold).MFS_DISABLED: Entry is disabled.MFS_ENABLED: Entry is enabled.MFS_GRAYED: Entry is grayed and disabled.MFS_HILITE: Entry is highlighted.MFS_UNCHECKED: Entry is unchecked.MFS_UNHILITE: Entry is unhighlighted. wID Long，Menu entry identifier. The high 16 bits are not used. hSubMenu Long，Handle to a pop-up menu if one is associated with the menu entry hbmpChecked Long，Handle to a bitmap to display for a menu entry when checked. Zero to use the default hbmpUnchecked Long，Handle to a bitmap to display for a menu entry when unchecked. Zero to use the default dwItemData Long，User-defined value associated with this entry. dwTypeData Long，Depends on the menu type cch Long，Length of the menu string when MFT_STRING is specified. Zero for other menu types.

yanyandt2 · 2003-04-21

我想我是得到文字的方法不对。 我不想用内存影射，想在得到菜单文字时给我的程序sendmessage过来， 可是用sendmessage如何发送字符串(菜单文字)？

tianjh007 · 2003-04-21

我想你可以把得到的菜单句柄发送过来然后再分析该句柄来获得菜单标题

yanyandt2 · 2003-04-21

我把菜单句柄发过来也得不到，不知道为什么。。。 tianjh007如果有时间帮我写一个好吗？谢谢了

tianjh007 · 2003-04-21

好的，我抽时间看看，要是做出来的话再给你回话

yanyandt2 · 2003-04-21

谢谢了！ 别人没有其他好办法吗？？

yanyandt2 · 2003-04-24

接受答案了.

一难题请教~(100分)

yanyandt2

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

yanyandt2

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

yanyandt2

Unregistered / Unconfirmed

yanyandt2

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

yanyandt2

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

yanyandt2

Unregistered / Unconfirmed

tianjh007

Unregistered / Unconfirmed

yanyandt2

Unregistered / Unconfirmed

yanyandt2

Unregistered / Unconfirmed

Similar threads