Delphi: get URL from Edge ver 38+ (all windows 10 updates installed)

Question

This code (taken from another articles) worked well with older MS Edge versions, but after installing the latest windows10 updates, edge comes to version 38 and I get edgeElement = nil. How should we fix this?

procedure TForm1.Button1Click(Sender: TObject);
const
  propertyName                : integer = 30005; // UIA_NamePropertyId
  propertyAutomationId        : integer = 30011; // UIA_AutomationIdPropertyId
  propertyClassName           : integer = 30012; // UIA_ClassNamePropertyId
  propertyNativeWindowHandle  : integer = 30020; // UIA_NativeWindowHandlePropertyId
  edgeAutomationId            : WideString  = 'TitleBar';
  urlElementClassName         : WideString  = 'Internet Explorer_Server';
  tabsListAutomationId        : WideString  = 'TabsList';
  selectionPatternId          : integer = 10001; // UIA_SelectionPatternId
var
  uiAutomation                    : IUIAutomation;
  rootElement,edgeElement,urlElement,tabsListElement,titleElement   : IUIAutomationElement;
  hresult                         : longint;
  condition,conditionUrl,conditionTabsList     : IUIAutomationCondition;
  cacheRequestNativeWindowHandle,cacheRequest  : IUIAutomationCacheRequest;
  edgeWindowHandle                : Pointer;
  url                             : WideString;
  selectionPattern                : IUnknown; 
  elementArray                    : IUIAutomationElementArray;
  title                           : WideString;

  a,b: cardinal;
begin
//rootElement:=nil;

  a := gettickcount;

  try
  uiAutomation:= CoCUIAutomation.Create;
  except
    showmessage('not supported');
    exit;
  end;
  hresult:= uiAutomation.GetRootElement(rootElement);
  if hresult<>S_OK then begin showmessage('Error GetRootElement');exit;end;

  // Get the main Edge element, which is a direct child of the UIA root element.
  // For this test, assume that the Edge element is the only element with an
  // AutomationId of "TitleBar".
  hresult:= uiAutomation.CreatePropertyCondition(propertyAutomationId, edgeAutomationId, condition);

  if hresult<>S_OK then begin showmessage('Error CreatePropertyCondition');exit;end;

  // Have the window handle cached when we find the main Edge element.
  hresult:= uiAutomation.CreateCacheRequest(cacheRequestNativeWindowHandle);

  if hresult<>S_OK then begin showmessage('Error CreateCacheRequest');exit;end;

  hresult:=cacheRequestNativeWindowHandle.AddProperty(propertyNativeWindowHandle);

  if hresult<>S_OK then begin showmessage('Error cacheRequestNativeWindowHandle.AddProperty');exit;end;

  hresult:= rootElement.FindFirstBuildCache(TreeScope_Children, condition, cacheRequestNativeWindowHandle, edgeElement);

  if hresult<>S_OK then begin showmessage('Error rootElement.FindFirstBuildCache');exit;end;

   b := gettickcount;

  if edgeElement<>nil then
    begin
      hresult:= edgeElement.Get_CachedNativeWindowHandle(edgeWindowHandle);
      if hresult<>S_OK then begin showmessage('Error edgeElement.CachedNativeWindowHandle');exit;end;

      // Next find the element whose name is the url of the loaded page. And have
      // the name of the element related to the url cached when we find the element.
      hresult:= uiAutomation.CreateCacheRequest(cacheRequest);
      if hresult<>S_OK then begin showmessage('Error uiAutomation.CreateCacheRequest');exit;end;

      hresult:=cacheRequest.AddProperty(propertyName);
      if hresult<>S_OK then begin showmessage('Error cacheRequest.AddProperty');exit;end;

      // For this test, assume that the element with the url is the first descendant element
      // with a ClassName of "Internet Explorer_Server".
      hresult:= uiAutomation.CreatePropertyCondition(propertyClassName, urlElementClassName, conditionUrl);
      if hresult<>S_OK then begin showmessage('Error CreatePropertyCondition');exit;end;

      hresult:= edgeElement.FindFirstBuildCache(TreeScope_Descendants, conditionUrl, cacheRequest, urlElement);
      if hresult<>S_OK then begin showmessage('Error edgeElement.FindFirstBuildCache');exit;end;

      hresult:= urlElement.Get_CachedName(url);
      if hresult<>S_OK then begin showmessage('Error urlElement.Get_CachedName');exit;end;

      // Next find the title of the loaded page. First find the list of
      // tabs shown at the top of Edge.
      hresult:= uiAutomation.CreatePropertyCondition(propertyAutomationId, tabsListAutomationId, conditionTabsList);
      if hresult<>S_OK then begin showmessage('Error uiAutomation.CreatePropertyCondition');exit;end;

      hresult:= edgeElement.FindFirst(TreeScope_Descendants, conditionTabsList, tabsListElement);
      if hresult<>S_OK then begin showmessage('Error edgeElement.FindFirst');exit;end;

      // Find which of those tabs is selected. (It should be possible to
      // cache the Selection pattern with the above call, and that would
      // avoid one cross-process call here.)

      hresult:= tabsListElement.GetCurrentPattern(selectionPatternId, selectionPattern);
      if hresult<>S_OK then begin showmessage('Error tabsListElement.GetCurrentPattern');exit;end;

      // For this test, assume there's always one selected item in the list.
      hresult:= (selectionPattern as IUIAutomationSelectionPattern).GetCurrentSelection(elementArray);
      if hresult<>S_OK then begin showmessage('Error selectionPattern.GetCurrentSelection');exit;end;

      hresult:= elementArray.GetElement(0, titleElement);
      if hresult<>S_OK then begin showmessage('Error elementArray.GetElement');exit;end;

      hresult:= titleElement.Get_CurrentName(title);
      if hresult<>S_OK then begin showmessage('Error titleElement.Get_CurrentName');exit;end;

      b := gettickcount;

      showmessage('Page title: ' + title+#13#10+
                  'URL: '+url+#13#10+
                  'hwnd: '+IntToStr( Integer(edgeWindowHandle) ) +#13#10+
                  'time: ' + inttostr(b-a));
    end
    else showmessage('edgeElement = nil' + ', time: ' + inttostr(b-a));

    b := gettickcount;
    caption := inttostr(b-a)
end;

Answer 1

Looks like they changed window hierarchy. Your can check current hierarchy by running

C:\Program Files (x86)\Windows Kits\10\bin\x64\inspect.exe 

Following code should work on latest Windows 10 Anniversary edition, with all updates.

Updated to Edge v40

function GetElement(AuiAutomation: IUIAutomation; AParentElement: IUIAutomationElement;
  out AElement: IUIAutomationElement; const AClassName: string;
  const AAutomationID: string = ''; const AName: string = ''): Boolean;
const
  UIA_NamePropertyId          : integer = 30005;
  UIA_AutomationIdPropertyId  : integer = 30011;
  UIA_ClassNamePropertyId     : integer = 30012;
  UIA_NativeWindowHandlePropertyId  : integer = 30020;
var
  hresult       : longint;
  condition     : IUIAutomationCondition;
  cacheRequest  : IUIAutomationCacheRequest;
begin
  Result := False;
  if AName <> '' then
  begin
    hresult := AuiAutomation.CreatePropertyCondition(UIA_NamePropertyId, AName, condition);
  end
  else if AAutomationID = '' then
  begin
    hresult := AuiAutomation.CreatePropertyCondition(UIA_ClassNamePropertyId, AClassName, condition);
  end
  else
  begin
    hresult := AuiAutomation.CreatePropertyCondition(UIA_AutomationIdPropertyId, AAutomationID, condition);
  end;

  if hresult<>S_OK then begin showmessage('Error CreatePropertyCondition');exit;end;

  hresult:= AuiAutomation.CreateCacheRequest(cacheRequest);
  if hresult<>S_OK then begin showmessage('Error CreateCacheRequest');exit;end;

  cacheRequest.Set_TreeScope(TreeScope_Element or TreeScope_Children);

  hresult:=cacheRequest.AddProperty(UIA_NativeWindowHandlePropertyId);
  if hresult<>S_OK then begin showmessage('Error AddProperty');exit;end;

  hresult := cacheRequest.AddProperty(UIA_NamePropertyId);
  if hresult<>S_OK then begin showmessage('Error AddProperty');exit;end;

  hresult := AParentElement.FindFirstBuildCache(TreeScope_Children, condition, cacheRequest, AElement);
  result := (hresult = S_OK) and Assigned(AElement);
  if hresult<>S_OK then begin showmessage('Error FindFirstBuildCache');exit;end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  uiAutomation                    : IUIAutomation;
  rootElement   : IUIAutomationElement;
  hresult                         : longint;
  edgeWindowHandle                : Pointer;
  url                             : WideString;
  a,b: cardinal;
var
  ApplicationFrameWindowElement: IUIAutomationElement;
  WindowsUICOreElement: IUIAutomationElement;
  LandmarkTargetElement: IUIAutomationElement;
  ScrollViewerElement: IUIAutomationElement;
  IEServerElement: IUIAutomationElement;
  TabContentElement: IUIAutomationElement;
begin
  a := gettickcount;

  try
  uiAutomation:= CoCUIAutomation.Create;
  except
    showmessage('not supported');
    exit;
  end;
  hresult:= uiAutomation.GetRootElement(rootElement);
  if hresult<>S_OK then begin showmessage('Error GetRootElement');exit;end;

  if GetElement(uiAutomation, rootElement, ApplicationFrameWindowElement, 'ApplicationFrameWindow') then
  begin
    if GetElement(uiAutomation, ApplicationFrameWindowElement, WindowsUICoreElement, 'Windows.UI.Core.CoreWindow') then
    begin
      if GetElement(uiAutomation, WindowsUICoreElement, LandmarkTargetElement, 'LandmarkTarget') then
      begin
        if GetElement(uiAutomation, LandmarkTargetElement, ScrollViewerElement, 'ScrollViewer') then
        begin
          if GetElement(uiAutomation, ScrollViewerElement, TabContentElement, '', 'm_tabContentDCompVisualElement') then
          begin
            if GetElement(uiAutomation, TabContentElement, IEServerElement, 'Internet Explorer_Server') then
            begin
              begin
                IEServerElement.Get_CurrentName(url);
                hresult:= ApplicationFrameWindowElement.Get_CachedNativeWindowHandle(edgeWindowHandle);
                if hresult<>S_OK then begin showmessage('Error ApplicationFrameWindowElemen.CachedNativeWindowHandle');exit;end;
                b := gettickcount;

                showmessage('URL: '+url+#13#10+
                            'hwnd: '+IntToStr( Integer(edgeWindowHandle) ) +#13#10+
                            'time: ' + inttostr(b-a));
              end;
            end;
          end;
        end;
      end;
    end;
  end;
end;