Platforms to show: All Mac Windows Linux Cross-Platform
FAQ.How to get the current window title?
Function CurrentWindowTitle() As string // your application needs permissions for accessibility to make this work! dim SystemWideElement,FocusedApplicationElement,FocusedWindowElement as AXUIElementMBS dim FocusedApplication,FocusedWindow,Title as AXValueMBS dim s as String dim cs as CFStringMBS SystemWideElement=AccessibilityMBS.SystemWideAXUIElement if SystemWideElement<>nil then FocusedApplication=SystemWideElement.AttributeValue(AccessibilityMBS.kAXFocusedApplicationAttribute) if FocusedApplication.Type=AccessibilityMBS.kAXUIElementMBSTypeID then FocusedApplicationElement=new AXUIElementMBS FocusedApplicationElement.Handle=FocusedApplication.Handle FocusedApplicationElement.RetainObject FocusedWindow=FocusedApplicationElement.AttributeValue(AccessibilityMBS.kAXFocusedWindowAttribute) if FocusedWindow<>nil and AccessibilityMBS.kAXUIElementMBSTypeID=FocusedWindow.Type then FocusedWindowElement=new AXUIElementMBS FocusedWindowElement.Handle=FocusedWindow.Handle FocusedWindowElement.RetainObject Title=FocusedWindowElement.AttributeValue(AccessibilityMBS.kAXTitleAttribute) if Title<>nil and Title.Type=kCFStringMBSTypeID then cs=new CFStringMBS cs.handle=Title.Handle cs.RetainObject Return cs.str end if end if end if end ifEnd Function