通过使用Delphi的UIAutomation获取基础菜单项列表

2023年11月1日 577次阅读

我一直在尝试使用作为TLB导入到Delphi中的UIAutomationCore库从标准
Windows应用程序中获取菜单子项列表 – 即

File -> New | Exit
Help -> About

我可以获取应用程序菜单,然后将顶级项目放入列表中(例如,在上面的示例中,“文件”和“帮助”,但我无法获得这些菜单项下的任何控件列表.我的代码是如下所示 – FElement代表我正在检查的实际菜单项.

FindAll返回的集合的长度始终为0.我尝试在此代码之前扩展menuitem,但它似乎没有任何效果.

 UIAuto.CreateTrueCondition(condition);

 FItems := TObjectList<TAutomationMenuItem>.create;

 self.Expand;
 sleep(3000);

 // Find the elements
 self.FElement.FindAll(TreeScope_Descendants, condition, collection);

 collection.Get_Length(length);

 for count := 0 to length -1 do
 begin
   collection.GetElement(count, itemElement);
   itemElement.Get_CurrentControlType(retVal);

   if (retVal = UIA_MenuItemControlTypeId) then
   begin
     item := TAutomationMenuItem.Create(itemElement);
     FItems.Add(item);
   end;
 end;

我可以在C#中看到这个例子,他们并没有真正做出与上面代码不同的事情(据我所见)

提前致谢

更新：它看起来非常类似于这个question

Update2：在这个例子中,它试图为另一个Delphi应用程序执行此操作.但是,如果我在记事本上尝试相同的事情(例如),则会出现同样的问题.

Update3：使用Inspect(然后使用UI Automation),我有以下结构……

名称=退出
祖先=文件(菜单)Form1(窗格)

我在扩展菜单(文件)之后也试过了,同样的事情正在发生(或者没有发生).

最佳答案 我认为你有以下两个问题：

>除非扩展菜单,否则菜单不会列出子菜单项
>如果您尝试自动化自己的应用程序,则必须在线程中执行此操作.

以下适用于我：

// Careful: the code might not be 100% threadsafe, but should work for the purpose of demonstration
const
  UIA_MenuItemControlTypeId =   50011;
  UIA_ControlTypePropertyId =   30003;
  UIA_NamePropertyId    =   30005;
  UIA_ExpandCollapsePatternId   =   10005;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TThread.CreateAnonymousThread(procedure begin CoInitializeEx(nil, 2); FindItems(true); CoUninitialize; end).Start;
end;

procedure TForm1.FindItems(Recurse: Boolean);
var
  UIAuto: TCUIAutomation;
  condition: IUIAutomationCondition;
  collection: IUIAutomationElementArray;
  Length: Integer;
  Count: Integer;
  itemElement: IUIAutomationElement;
  retVal: Integer;
  val: WideString;

  ExpandCollapsePattern: IUIAutomationExpandCollapsePattern;
  FElement: IUIAutomationElement;
begin
  UIAuto := TCUIAutomation.Create(nil);   

  UIAuto.CreateTrueCondition(condition);

  // Find the elements
  UIAuto.ElementFromHandle(Pointer(Handle), FElement);

  FElement.FindAll(TreeScope_Descendants, condition, collection);

  collection.Get_Length(length);

  for Count := 0 to length - 1 do
  begin
    collection.GetElement(Count, itemElement);
    itemElement.Get_CurrentControlType(retVal);

    if (retVal = UIA_MenuItemControlTypeId) then
    begin
      ItemElement.Get_CurrentName(val);
      TThread.Synchronize(nil,
        procedure
        begin
          memo1.lines.Add(val);
        end);

      itemElement.GetCurrentPattern(UIA_ExpandCollapsePatternId, IInterface(ExpandCollapsePattern));
      if Assigned(ExpandCollapsePattern) then
      begin
        ExpandCollapsePattern.Expand;
        if Recurse = True then
          FindItems(False);
      end;
    end;
  end;
  UIAuto.Free;
end;
点赞