求API函数,难!! (300分)

ysai · 2003-02-10

已知Word或IE的句柄,怎么取得其菜单项的句柄? 例如我要取得打开... 菜单的句柄,和工具栏按钮的句柄 同样,如何取IE的菜单句柄 Word的菜单与众不同(我是Office XP) 工具栏上的菜单项,如文件菜单项的隶属关系是 OpusApp  (WORD应用程序) MsoCommandBarDock  (停靠的地方) MsoCommandBar  (工具栏菜单项) 而下拉的菜单竟然直接隶属于WORD应用程序???!!!!! OpusApp  (WORD应用程序) MsoCommandBarPopup  (弹出菜单项,如文件中的打开...) 而IE中的菜单(就是我的电脑)更牛了 主菜单的隶属关系是 CabinetWClass  (我的电脑) WorkerW  (未知,应是工具栏的停靠控件吧) ReBarWindow32  (工具栏) ToolBarWindow32  (主菜单,如文件) 文件中的新建菜单类名是 #32768 竟然没有父窗口???!!!晕倒 我该怎么取出来??? http://expert.csdn.net/Expert/topic/1413/1413913.xml?temp=.2750055

鲁小班 · 2003-02-10

我不知道，但是帮你up。

kingdeezj · 2003-02-11

关注此题。

sentiment · 2003-02-12

你为什么要它的菜单，如果是要填加项的话，直接调用它的COM接口好象就可以了。

ysai · 2003-02-12

我并不只想取得WORD和IE的菜单句柄,还有其它所有未知应用程序的菜单句柄 我用EnumChildWindow枚举所有子窗体,用GetMenu取得菜单,但像上面的情况, 我应该用什么方法取得句柄呢?不止菜单,像上面的ToolBarWindow32中的按钮 的句柄也取不到!不可能所有用ToolBarWindow32控件的应用程序都提供接口吧

dependmyself · 2003-02-13

lfpsoft · 2003-02-16

我已帮你做好了 到这里看看。 http://www.delphibbs.com/delphibbs/dispq.asp?lid=1435428

lfpsoft · 2003-02-16

还是贴出来吧 昨晚干到3点多，效果还是不是很理想。 主要是没有正确得到菜单中子菜单的句柄。高手们有没有好办法呢？ 现在公开源代码，和大家一起研究研究。 如果这个问题解决，我想将功能扩张到拖动窗体时也将窗体变为半透明。这个功能我试 了，基本一能实现了。到时我也会将代码献出来给大家！ 希望大家不会也UP一下！ 以下是代码，功能当然是使用钩子实现 library HookMenu; {*************************************************************} {*                                                           *} {*      HookMenu Library,Copyright lfpsoft 2002              *} {*             All rights reserverd.                         *} {*         Bug Report : lfpsoft@163.net                      *} {*         WEB : http://www.lkgarden.com/lfpsoft             *} {*                                                           *} {* 效果不是很好，因为到现在我还没有想出如何得到菜单中的子菜单*} {* 好方法，只能在WM_MENUSELECT这个消息里得到该子菜单的句柄   *} {* 现在发布源代码，希望高手们指点指点，或者大家共同研究      *} {* 还有手头上有基本实现当拖动窗体时就显示半透明的代码，过些天*} {* 整理好后我会再放出来大家研究研究                          *} {*************************************************************} uses   SysUtils,   Classes,   HookMenuProc in 'HooKMenuProc.pas'; {$R *.RES} exports   EnableMenuHook,   DisableMenuHook,   MenuHookExit,   SetAlpha,   SetTrayAlpha; begin   IntoShare; end. unit HooKMenuProc; {*************************************************************} {*                                                           *} {*      HookMenu Library,Copyright lfpsoft 2002              *} {*             All rights reserverd.                         *} {*         Bug Report : lfpsoft@163.net                      *} {*         WEB : http://www.lkgarden.com/lfpsoft             *} {*                                                           *} {* 效果不是很好，因为到现在我还没有想出如何得到菜单中的子菜单*} {* 好方法，只能在WM_MENUSELECT这个消息里得到该子菜单的句柄   *} {* 现在发布源代码，希望高手们指点指点，或者大家共同研究      *} {* 还有手头上有基本实现当拖动窗体时就显示半透明的代码，过些天*} {* 整理好后我会再放出来大家研究研究                          *} {*************************************************************} interface uses   Windows, Messages, SysUtils; var   hNextHookProc: HHook;   procSaveExit: Pointer;  function MenuHookHandler(iCode: Integer;   wParam: WPARAM;   lParam: LPARAM): LRESULT; stdcall; export;  function EnableMenuHook: BOOL; export;  function DisableMenuHook: BOOL; export;  procedure MenuHookExit; far;  procedure IntoShare; stdcall;export;  procedure SetAlpha( bAlpha: Byte );stdcall; export;  procedure SetTrayAlpha( bAlpha: Byte);stdcall; export; implementation type   TGoData = record //将设置半透明的值共享到内存中的数据结构     bAlpha: byte;   end;   PGoData = ^TGoData; const   user32        = 'user32.dll'; var   GoData : PGoData;   MemFile : THandle; procedure GetWindowsVersion(var Major : integer;var Minor : integer); var   l : longint; begin   l := GetVersion;   Major := LoByte(LoWord(l));   Minor := HiByte(LoWord(l)); end; procedure SetAlpha( bAlpha: Byte );stdcall; export;   //设置半透明值 begin   if bAlpha <10 then bAlpha :=10;   GoData^.bAlpha  := bAlpha; end; procedure SetWndAlpha(MenuHwnd:hwnd;const Alpha: Byte);  // 设置半透明 var   major, minor : integer;   User32: Cardinal;   l: Longint;   SetLayeredWindowAttributes: function (hwnd: LongInt; crKey: byte; bAlpha: byte; dwFlags: LongInt): LongInt; stdcall; begin      GetWindowsVersion(major, minor);      if ((major >= 5) and (minor >= 0)) then //判断是否是WIN2000以上的版本。      begin         User32 := LoadLibrary('user32');         if User32 <> 0 then         try            SetLayeredWindowAttributes := GetProcAddress(user32, 'SetLayeredWindowAttributes');            if @SetLayeredWindowAttributes <> nil then            begin              l := GetWindowLong(MenuHwnd, GWL_EXSTYLE);              l := l or WS_EX_LAYERED;              SetWindowLong(MenuHwnd, GWL_EXSTYLE, l);              SetLayeredWindowAttributes(MenuHwnd,0,Alpha,LWA_ALPHA);            end;         finally                 FreeLibrary(User32);         end;      end; end; //枚举所有窗体，如果是菜单或是历史菜单就设置半透明 function EnumWindowsProc(hWindow:hWnd;lParam:LongInt) : Bool {$IFDEF Win32} stdcall;{$ELSE}:Export;{$ENDIF} var   csCompare,csClassName:String;   szClassname:Array[0..128] of Char; begin   if ((lParam = 0) or (lParam = 2)) then csCompare := 'BaseBar' else if (lParam = 1) then csCompare := '#32768';   GetClassName(hWindow, szClassname, 128);   csClassName := Trim(szClassname); if csClassName = csCompare  then   begin if (lParam = 2) then SetWndAlpha(hWindow,255)     else      SetWndAlpha(hWindow,GoData^.bAlpha);   end; result :=true; end; //钩子程序 function MenuHookHandler(iCode: Integer;   wParam: WPARAM;   lParam: LPARAM): LRESULT; stdcall; export; var   szClassname:Array[0..128] of Char;   cwp: CWPRETSTRUCT;   hwndMenu:HWND;   csClassname:String; begin   Result := 0;   If iCode < 0 Then   begin     Result := CallNextHookEx(hNextHookProc, iCode, wParam, lParam);     Exit;  end; cwp := PCWPRETSTRUCT(lParam)^;   if((cwp.message = WM_CREATE) or (cwp.message = WM_INITMENUPOPUP) or   (cwp.message = WM_INITMENU) or (cwp.message = WM_MENUSELECT)) then   begin   if cwp.message = WM_CREATE then     begin  hwndMenu := cwp.hwnd; GetClassName(hwndMenu, szClassname, 128);//取得类名       csClassname := Trim(szClassname); if ((csClassname ='#32768') or (csClassname = 'BaseBar')) then begin    //如果是菜单或历史菜单就...         SetWndAlpha(hwndMenu,GoData^.bAlpha) ; end;     end else     begin EnumWindows(@EnumWindowsProc, 1);     end;   end;  Result := CallNextHookEx( hNextHookProc, iCode, wParam, lParam); end; //挂钩子 function EnableMenuHook: BOOL; export; begin   Result := False;   EnumWindows(@EnumWindowsProc, 0);   if hNextHookProc <> 0 then Exit;   hNextHookProc := SetWindowsHookEx(WH_CALLWNDPROCRET,     MenuHookHandler,     HInstance,     0);   Result := hNextHookProc <> 0; end; //取消钩子 function DisableMenuHook: BOOL; export; begin   if hNextHookProc <> 0 then   begin     SetWndAlpha(FindWindow('Shell_TrayWnd', nil),255);     EnumWindows(@EnumWindowsProc, 2);     UnhookWindowsHookEx(hNextHookProc);     hNextHookProc := 0;   end;   Result := hNextHookProc = 0; end; //退出钩子 procedure MenuHookExit; begin   SetWndAlpha(FindWindow('Shell_TrayWnd', nil),255);   if hNextHookProc <> 0 then DisableMenuHook;   ExitProc := procSaveExit; end; //将要设置半透明的值共享到内存中去 procedure IntoShare; stdcall;export; begin   MemFile := OpenFileMapping( FILE_MAP_WRITE, False, 'CCSOFT' );   if MemFile = 0 then     MemFile:=CreateFileMapping( $FFFFFFFF, nil,              PAGE_READWRITE, 0, SizeOf( TGoData ), 'CCSOFT');   GoData := MapViewOfFile( MemFile, FILE_MAP_WRITE, 0, 0, 0 );   if MemFile = 0 then   FillChar( GoData^, SizeOf( TGoData ),0); end; procedure SetTrayAlpha( bAlpha: Byte);stdcall;export; //设置任务栏半透明 begin    SetWndAlpha(FindWindow('Shell_TrayWnd', nil),bAlpha); end; end. //测试代码 unit main; interface uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, ComCtrls; type   TForm1 = class(TForm)     TrackBar1: TTrackBar;     CheckBox1: TCheckBox;     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);     procedure TrackBar1Change(Sender: TObject);     procedure CheckBox1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   //调用DLL   procedure EnableMenuHook; stdcall;external 'HookMenu.dll';   procedure MenuHookExit; stdcall;external 'HookMenu.dll';   procedure DisableMenuHook; stdcall;external 'HookMenu.dll';   procedure SetAlpha( bAlpha : Byte ); stdcall;external 'HookMenu.dll';   procedure SetTrayAlpha( bAlpha: Byte);stdcall; external 'HookMenu.dll'; var   Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin     setalpha(100);     SetTrayAlpha( 100);     EnableMenuHook; end; procedure TForm1.FormDestroy(Sender: TObject); begin     MenuHookExit; end; procedure TForm1.TrackBar1Change(Sender: TObject); begin     setalpha(trackbar1.Position);     SetTrayAlpha( trackbar1.Position); end; procedure TForm1.CheckBox1Click(Sender: TObject); begin     if CheckBox1.Checked then        EnableMenuHook     else DisableMenuHook; end; end.

ghosts · 2003-02-16

bigroute · 2003-02-16

wuan · 2003-02-17

var fm,cm:Hmenu; begin fm:=getmenu(hwnd);   //取得窗口菜单的句柄。 cm:=getsubmenu(fm，1);  //取得窗口菜单第一菜单项子菜单的句柄。 end;   获得句柄后可以调用removemenu（）、insertmenu（）等api函数操纵菜单。

lfpsoft · 2003-02-17

怎么还不给分呀？

ysai · 2003-02-18

to wuan:   请试试再说 to lfpsoft:   近段时间太忙,你的代码还没测试,不过看了一下,不符合我的要求,我是要根据应用程序或 窗体的句柄取得其菜单的句柄,而你的程序只是用hook把所有菜单设为半透明,而且相信你的 程序对WORD的菜单没有作用.   我的要求很简单,只要有个函数能像EnumChildWindow一样枚举出像WORD,IE这样的程序的 菜单和工具栏按钮的句柄,但有没有这样的函数很难说,因为连SPY++都无能为力.....

lfpsoft · 2003-02-18

很简单呀， 将如下代码变换下就不可以了吗？ if ((csClassname ='#32768') or (csClassname = 'BaseBar')) then 改成 ccClassname=你的程序程序的类名就可以啦。 不过如果要取得WORD的菜单就无能为力了。因为用正常的方法很难得到它的句柄。

ysai · 2003-02-18

楼上的老兄,我是要根据一个句柄枚举出所有菜单项!并不是用HOOK抓菜单. 我能得到WORD或IE的菜单句柄(工具栏按钮的得不到),但不是用我想要的方法. 如果谁有得到工具栏按钮的句柄的方法那就更好了(到底工具栏按钮有没有句柄?)

abencat · 2003-02-20

FindWindow(nil,'发送消息');

小雨哥 · 2003-02-22

关注。 = Microsoft Word 2000 = 菜单窗口: Class Name:MsoCommandBar Title:菜单栏 父窗口: Class Name:MsoCommandBarDock Title:MsoDockTop 父的父窗口: Class Name:OpusApp Title:文档 1 - Microsoft Word

plane822 · 2003-02-22

wndhandle:=findwindow(nil,mystr); //通过标题获得菜单句柄 mainmenu:=getmenu(wndhandle); //取得顶行菜单数 mainnum:=getmenuitemcount(mainmenu);

DarwinZhang · 2003-03-07

菜单哪里有什么父窗体啊？ 就是说工具栏句柄和菜单的句柄一点关系都没有！ 我们点击工具栏出现菜单，不过是调用代码将菜单显示一下而已。

ysai · 2003-03-07

菜单有父窗体!但并不是所有的都有.比如你在Delphi中放一个TMainMenu在一个Form里,并加 上几个菜单项,然后运行,我可以通过GetMenu函数通过主Form找出菜单的每一个项,但是,弹 出菜单无法找出来. 我没说工具栏按钮与菜单有关系,只是想得到它们的句柄.并不是根据工具栏按钮找到点击它 所弹出的菜单,这是两回事,要分别处理,而且都不容易

求API函数,难!! (300分)

ysai

Unregistered / Unconfirmed

鲁小班

Unregistered / Unconfirmed

kingdeezj

Unregistered / Unconfirmed

sentiment

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

dependmyself

Unregistered / Unconfirmed

lfpsoft

Unregistered / Unconfirmed

lfpsoft

Unregistered / Unconfirmed

ghosts

Unregistered / Unconfirmed

bigroute

Unregistered / Unconfirmed

wuan

Unregistered / Unconfirmed

lfpsoft

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

lfpsoft

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

abencat

Unregistered / Unconfirmed

小雨哥

Unregistered / Unconfirmed

plane822

Unregistered / Unconfirmed

DarwinZhang

Unregistered / Unconfirmed

ysai

Unregistered / Unconfirmed

Similar threads