delphi - 什么是用于从外部应用程序访问菜单命令的发送 API

Question

关闭。这个问题不符合Stack Overflow guidelines .它目前不接受答案。












想改进这个问题？将问题更新为 on-topic对于堆栈溢出。

4年前关闭。




Improve this question




是否有发送 api 来访问另一个应用程序中的菜单命令？例如，我正在尝试访问记事本的查看菜单。我要怎么做？我已经使用 GetSystemMenu 获得了菜单，但我无法访问它。我认为这已经有一个 API，但我不知道。

Answer 1

Python 中的以下代码激活查看/状态栏菜单项。将它转换为 Delphi 应该没有问题，因为它看起来像伪代码。它选择第 4 个菜单项(“ View ”)和第 1 个菜单项(“状态栏”)。如果您愿意，您可以通过遍历项目并使用 GetMenuString 将其更改为通过文本搜索所需项目。 .有关详细信息，请参阅 MSDN。

请注意，它不会进行任何错误检查。另请注意，它希望记事本的标题为“无标题 - 记事本”。 (您可以将其更改为 None 以搜索任何内容；我猜在 Delphi 中将是 nil。)

from win32gui import *
from win32con import *
hwnd = FindWindow('Notepad', 'Untitled - Notepad') # use Winspector Spy to find window class name and title
hmenu = GetMenu(hwnd)
hviewmenu = GetSubMenu(hmenu, 3)                   # 3rd menu item across, starting from 0
id = GetMenuItemID(hviewmenu, 0)                   # 0th menu item down ("Status Bar")
PostMessage(hwnd, WM_COMMAND, id, 0)