冰
冰豹
Unregistered / Unconfirmed
GUEST, unregistred user!
我想利用资源管理器的菜单句柄,来控制资源管理器的操作
但以下语句得不到资源管理器的菜单句柄,原因可能是菜单的父窗口不是程序主窗口,
请高手给个解决办法,谢谢!
var
h,m,s,s1:hwnd;
begin
h:=FindWindow('ExploreWClass',nil);
if h<>0 then
begin
m:=GetMenu(h);
s:=GetSubMenu(m,1);
s1:=GetSubMenu(s,7);
SendMessage(h,WM_COMMAND,MakeLong(GetMenuItemId(s,7),0),s1);
end;
end;
但以下语句得不到资源管理器的菜单句柄,原因可能是菜单的父窗口不是程序主窗口,
请高手给个解决办法,谢谢!
var
h,m,s,s1:hwnd;
begin
h:=FindWindow('ExploreWClass',nil);
if h<>0 then
begin
m:=GetMenu(h);
s:=GetSubMenu(m,1);
s1:=GetSubMenu(s,7);
SendMessage(h,WM_COMMAND,MakeLong(GetMenuItemId(s,7),0),s1);
end;
end;