请问如何在程序中执行其他软件的菜单功能？ ( 积分: 100 )

例如Word已经运行了，如何在程序中执行Word菜单中的“文件”－“打开”功能？
非常感谢！

例如Word已经运行了，如何在程序中执行Word菜单中的“文件”－“打开”功能？
非常感谢！

用API 吧
找到窗体的hHandle；
然后调用API：sendmessage

procedure TForm1.Button1Click(Sender: TObject);
Var
wh, mh : THandle;
id : Word;
begin
wh := findwindow(nil, '计算器');
if wh<> 0 then
begin
mh := GetMenu(wh);
mh := GetSubMenu(mh, 2); //取得帮助菜单句柄
id := GetMenuitemID(mh, 2); //取得关于菜单的ID
PostMessage(wh, WM_COMMAND, MAKEWPARAM(id, 0), 0);
end;
end;

多人接受答案了。