unit UIAutomationClient_TLB; // ************************************************************************ // // WARNING // ------- // The types declared in this file were generated from data read from a // Type Library. If this type library is explicitly or indirectly (via // another type library referring to this type library) re-imported, or the // 'Refresh' command of the Type Library Editor activated while editing the // Type Library, the contents of this file will be regenerated and all // manual modifications will be lost. // ************************************************************************ // // $Rev: 52393 $ // File generated on 21/04/2015 11:24:22 from Type Library described below. // ************************************************************************ // // Type Lib: C:\Windows\SysWOW64\UIAutomationCore.dll (1) // LIBID: {944DE083-8FB8-45CF-BCB7-C477ACB2F897} // LCID: 0 // Helpfile: // HelpString: // DepndLst: // (1) v2.0 stdole, (C:\Windows\SysWOW64\stdole2.tlb) // SYS_KIND: SYS_WIN32 // Errors: // Hint: Parameter 'unit' of IUIAutomationTextRange.Move changed to 'unit_' // Hint: Parameter 'unit' of IUIAutomationTextRange.MoveEndpointByUnit changed to 'unit_' // Hint: Symbol 'ClassName' renamed to '_className' // Hint: Parameter 'array' of IUIAutomation.IntNativeArrayToSafeArray changed to 'array_' // Hint: Parameter 'array' of IUIAutomation.IntSafeArrayToNativeArray changed to 'array_' // Hint: Parameter 'var' of IUIAutomation.RectToVariant changed to 'var_' // Hint: Parameter 'var' of IUIAutomation.VariantToRect changed to 'var_' // Hint: Parameter 'property' of IUIAutomation.GetPropertyProgrammaticName changed to 'property_' // Error creating palette bitmap of (TCUIAutomation) : Server C:\Windows\SysWOW64\uiautomationcore.dll contains no icons // Error creating palette bitmap of (TCUIAutomation8) : Server C:\Windows\SysWOW64\uiautomationcore.dll contains no icons // ************************************************************************ // {$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers. {$WARN SYMBOL_PLATFORM OFF} {$WRITEABLECONST ON} {$VARPROPSETTER ON} {$ALIGN 4} interface uses Winapi.Windows, System.Classes, System.Variants, System.Win.StdVCL, Vcl.Graphics, Vcl.OleServer, Winapi.ActiveX; // *********************************************************************// // GUIDS declared in the TypeLibrary. Following prefixes are used: // Type Libraries : LIBID_xxxx // CoClasses : CLASS_xxxx // DISPInterfaces : DIID_xxxx // Non-DISP interfaces: IID_xxxx // *********************************************************************// const // TypeLibrary Major and minor versions UIAutomationClientMajorVersion = 1; UIAutomationClientMinorVersion = 0; LIBID_UIAutomationClient: TGUID = '{944DE083-8FB8-45CF-BCB7-C477ACB2F897}'; IID_IUIAutomationElement: TGUID = '{D22108AA-8AC5-49A5-837B-37BBB3D7591E}'; IID_IUIAutomationCondition: TGUID = '{352FFBA8-0973-437C-A61F-F64CAFD81DF9}'; IID_IUIAutomationElementArray: TGUID = '{14314595-B4BC-4055-95F2-58F2E42C9855}'; IID_IUIAutomationCacheRequest: TGUID = '{B32A92B5-BC25-4078-9C08-D7EE95C48E03}'; IID_IUIAutomationBoolCondition: TGUID = '{1B4E1F2E-75EB-4D0B-8952-5A69988E2307}'; IID_IUIAutomationPropertyCondition: TGUID = '{99EBF2CB-5578-4267-9AD4-AFD6EA77E94B}'; IID_IUIAutomationAndCondition: TGUID = '{A7D0AF36-B912-45FE-9855-091DDC174AEC}'; IID_IUIAutomationOrCondition: TGUID = '{8753F032-3DB1-47B5-A1FC-6E34A266C712}'; IID_IUIAutomationNotCondition: TGUID = '{F528B657-847B-498C-8896-D52B565407A1}'; IID_IUIAutomationTreeWalker: TGUID = '{4042C624-389C-4AFC-A630-9DF854A541FC}'; IID_IUIAutomationEventHandler: TGUID = '{146C3C17-F12E-4E22-8C27-F894B9B79C69}'; IID_IUIAutomationPropertyChangedEventHandler: TGUID = '{40CD37D4-C756-4B0C-8C6F-BDDFEEB13B50}'; IID_IUIAutomationStructureChangedEventHandler: TGUID = '{E81D1B4E-11C5-42F8-9754-E7036C79F054}'; IID_IUIAutomationFocusChangedEventHandler: TGUID = '{C270F6B5-5C69-4290-9745-7A7F97169468}'; IID_IUIAutomationTextEditTextChangedEventHandler: TGUID = '{92FAA680-E704-4156-931A-E32D5BB38F3F}'; IID_IUIAutomationInvokePattern: TGUID = '{FB377FBE-8EA6-46D5-9C73-6499642D3059}'; IID_IUIAutomationDockPattern: TGUID = '{FDE5EF97-1464-48F6-90BF-43D0948E86EC}'; IID_IUIAutomationExpandCollapsePattern: TGUID = '{619BE086-1F4E-4EE4-BAFA-210128738730}'; IID_IUIAutomationGridPattern: TGUID = '{414C3CDC-856B-4F5B-8538-3131C6302550}'; IID_IUIAutomationGridItemPattern: TGUID = '{78F8EF57-66C3-4E09-BD7C-E79B2004894D}'; IID_IUIAutomationMultipleViewPattern: TGUID = '{8D253C91-1DC5-4BB5-B18F-ADE16FA495E8}'; IID_IUIAutomationObjectModelPattern: TGUID = '{71C284B3-C14D-4D14-981E-19751B0D756D}'; IID_IUIAutomationRangeValuePattern: TGUID = '{59213F4F-7346-49E5-B120-80555987A148}'; IID_IUIAutomationScrollPattern: TGUID = '{88F4D42A-E881-459D-A77C-73BBBB7E02DC}'; IID_IUIAutomationScrollItemPattern: TGUID = '{B488300F-D015-4F19-9C29-BB595E3645EF}'; IID_IUIAutomationSelectionPattern: TGUID = '{5ED5202E-B2AC-47A6-B638-4B0BF140D78E}'; IID_IUIAutomationSelectionItemPattern: TGUID = '{A8EFA66A-0FDA-421A-9194-38021F3578EA}'; IID_IUIAutomationSynchronizedInputPattern: TGUID = '{2233BE0B-AFB7-448B-9FDA-3B378AA5EAE1}'; IID_IUIAutomationTablePattern: TGUID = '{620E691C-EA96-4710-A850-754B24CE2417}'; IID_IUIAutomationTableItemPattern: TGUID = '{0B964EB3-EF2E-4464-9C79-61D61737A27E}'; IID_IUIAutomationTogglePattern: TGUID = '{94CF8058-9B8D-4AB9-8BFD-4CD0A33C8C70}'; IID_IUIAutomationTransformPattern: TGUID = '{A9B55844-A55D-4EF0-926D-569C16FF89BB}'; IID_IUIAutomationValuePattern: TGUID = '{A94CD8B1-0844-4CD6-9D2D-640537AB39E9}'; IID_IUIAutomationWindowPattern: TGUID = '{0FAEF453-9208-43EF-BBB2-3B485177864F}'; IID_IUIAutomationTextRange: TGUID = '{A543CC6A-F4AE-494B-8239-C814481187A8}'; IID_IUIAutomationTextRange2: TGUID = '{BB9B40E0-5E04-46BD-9BE0-4B601B9AFAD4}'; IID_IUIAutomationTextRangeArray: TGUID = '{CE4AE76A-E717-4C98-81EA-47371D028EB6}'; IID_IUIAutomationTextPattern: TGUID = '{32EBA289-3583-42C9-9C59-3B6D9A1E9B6A}'; IID_IUIAutomationTextPattern2: TGUID = '{506A921A-FCC9-409F-B23B-37EB74106872}'; IID_IUIAutomationTextEditPattern: TGUID = '{17E21576-996C-4870-99D9-BFF323380C06}'; IID_IUIAutomationLegacyIAccessiblePattern: TGUID = '{828055AD-355B-4435-86D5-3B51C14A9B1B}'; IID_IAccessible: TGUID = '{618736E0-3C3D-11CF-810C-00AA00389B71}'; IID_IUIAutomationItemContainerPattern: TGUID = '{C690FDB2-27A8-423C-812D-429773C9084E}'; IID_IUIAutomationVirtualizedItemPattern: TGUID = '{6BA3D7A6-04CF-4F11-8793-A8D1CDE9969F}'; IID_IUIAutomationAnnotationPattern: TGUID = '{9A175B21-339E-41B1-8E8B-623F6B681098}'; IID_IUIAutomationStylesPattern: TGUID = '{85B5F0A2-BD79-484A-AD2B-388C9838D5FB}'; IID_IUIAutomationSpreadsheetPattern: TGUID = '{7517A7C8-FAAE-4DE9-9F08-29B91E8595C1}'; IID_IUIAutomationSpreadsheetItemPattern: TGUID = '{7D4FB86C-8D34-40E1-8E83-62C15204E335}'; IID_IUIAutomationTransformPattern2: TGUID = '{6D74D017-6ECB-4381-B38B-3C17A48FF1C2}'; IID_IUIAutomationTextChildPattern: TGUID = '{6552B038-AE05-40C8-ABFD-AA08352AAB86}'; IID_IUIAutomationDragPattern: TGUID = '{1DC7B570-1F54-4BAD-BCDA-D36A722FB7BD}'; IID_IUIAutomationDropTargetPattern: TGUID = '{69A095F7-EEE4-430E-A46B-FB73B1AE39A5}'; IID_IUIAutomationElement2: TGUID = '{6749C683-F70D-4487-A698-5F79D55290D6}'; IID_IUIAutomationElement3: TGUID = '{8471DF34-AEE0-4A01-A7DE-7DB9AF12C296}'; IID_IUIAutomationProxyFactory: TGUID = '{85B94ECD-849D-42B6-B94D-D6DB23FDF5A4}'; IID_IRawElementProviderSimple: TGUID = '{D6DD68D1-86FD-4332-8666-9ABEDEA2D24C}'; IID_IUIAutomationProxyFactoryEntry: TGUID = '{D50E472E-B64B-490C-BCA1-D30696F9F289}'; IID_IUIAutomationProxyFactoryMapping: TGUID = '{09E31E18-872D-4873-93D1-1E541EC133FD}'; IID_IUIAutomation: TGUID = '{30CBE57D-D9D0-452A-AB13-7AC5AC4825EE}'; IID_IUIAutomation2: TGUID = '{34723AFF-0C9D-49D0-9896-7AB52DF8CD8A}'; IID_IUIAutomation3: TGUID = '{73D768DA-9B51-4B89-936E-C209290973E7}'; CLASS_CUIAutomation: TGUID = '{FF48DBA4-60EF-4201-AA87-54103EEF594E}'; CLASS_CUIAutomation8: TGUID = '{E22AD333-B25F-460C-83D0-0581107395C9}'; // *********************************************************************// // Declaration of Enumerations defined in Type Library // *********************************************************************// // Constants for enum TreeScope type TreeScope = TOleEnum; const TreeScope_Element = $00000001; TreeScope_Children = $00000002; TreeScope_Descendants = $00000004; TreeScope_Parent = $00000008; TreeScope_Ancestors = $00000010; TreeScope_Subtree = $00000007; // Constants for enum AutomationElementMode type AutomationElementMode = TOleEnum; const AutomationElementMode_None = $00000000; AutomationElementMode_Full = $00000001; // Constants for enum OrientationType type OrientationType = TOleEnum; const OrientationType_None = $00000000; OrientationType_Horizontal = $00000001; OrientationType_Vertical = $00000002; // Constants for enum PropertyConditionFlags type PropertyConditionFlags = TOleEnum; const PropertyConditionFlags_None = $00000000; PropertyConditionFlags_IgnoreCase = $00000001; // Constants for enum StructureChangeType type StructureChangeType = TOleEnum; const StructureChangeType_ChildAdded = $00000000; StructureChangeType_ChildRemoved = $00000001; StructureChangeType_ChildrenInvalidated = $00000002; StructureChangeType_ChildrenBulkAdded = $00000003; StructureChangeType_ChildrenBulkRemoved = $00000004; StructureChangeType_ChildrenReordered = $00000005; // Constants for enum TextEditChangeType type TextEditChangeType = TOleEnum; const TextEditChangeType_None = $00000000; TextEditChangeType_AutoCorrect = $00000001; TextEditChangeType_Composition = $00000002; TextEditChangeType_CompositionFinalized = $00000003; // Constants for enum DockPosition type DockPosition = TOleEnum; const DockPosition_Top = $00000000; DockPosition_Left = $00000001; DockPosition_Bottom = $00000002; DockPosition_Right = $00000003; DockPosition_Fill = $00000004; DockPosition_None = $00000005; // Constants for enum ExpandCollapseState type ExpandCollapseState = TOleEnum; const ExpandCollapseState_Collapsed = $00000000; ExpandCollapseState_Expanded = $00000001; ExpandCollapseState_PartiallyExpanded = $00000002; ExpandCollapseState_LeafNode = $00000003; // Constants for enum ScrollAmount type ScrollAmount = TOleEnum; const ScrollAmount_LargeDecrement = $00000000; ScrollAmount_SmallDecrement = $00000001; ScrollAmount_NoAmount = $00000002; ScrollAmount_LargeIncrement = $00000003; ScrollAmount_SmallIncrement = $00000004; // Constants for enum SynchronizedInputType type SynchronizedInputType = TOleEnum; const SynchronizedInputType_KeyUp = $00000001; SynchronizedInputType_KeyDown = $00000002; SynchronizedInputType_LeftMouseUp = $00000004; SynchronizedInputType_LeftMouseDown = $00000008; SynchronizedInputType_RightMouseUp = $00000010; SynchronizedInputType_RightMouseDown = $00000020; // Constants for enum RowOrColumnMajor type RowOrColumnMajor = TOleEnum; const RowOrColumnMajor_RowMajor = $00000000; RowOrColumnMajor_ColumnMajor = $00000001; RowOrColumnMajor_Indeterminate = $00000002; // Constants for enum ToggleState type ToggleState = TOleEnum; const ToggleState_Off = $00000000; ToggleState_On = $00000001; ToggleState_Indeterminate = $00000002; // Constants for enum WindowVisualState type WindowVisualState = TOleEnum; const WindowVisualState_Normal = $00000000; WindowVisualState_Maximized = $00000001; WindowVisualState_Minimized = $00000002; // Constants for enum WindowInteractionState type WindowInteractionState = TOleEnum; const WindowInteractionState_Running = $00000000; WindowInteractionState_Closing = $00000001; WindowInteractionState_ReadyForUserInteraction = $00000002; WindowInteractionState_BlockedByModalWindow = $00000003; WindowInteractionState_NotResponding = $00000004; // Constants for enum TextPatternRangeEndpoint type TextPatternRangeEndpoint = TOleEnum; const TextPatternRangeEndpoint_Start = $00000000; TextPatternRangeEndpoint_End = $00000001; // Constants for enum TextUnit type TextUnit = TOleEnum; const TextUnit_Character = $00000000; TextUnit_Format = $00000001; TextUnit_Word = $00000002; TextUnit_Line = $00000003; TextUnit_Paragraph = $00000004; TextUnit_Page = $00000005; TextUnit_Document = $00000006; // Constants for enum SupportedTextSelection type SupportedTextSelection = TOleEnum; const SupportedTextSelection_None = $00000000; SupportedTextSelection_Single = $00000001; SupportedTextSelection_Multiple = $00000002; // Constants for enum ZoomUnit type ZoomUnit = TOleEnum; const ZoomUnit_NoAmount = $00000000; ZoomUnit_LargeDecrement = $00000001; ZoomUnit_SmallDecrement = $00000002; ZoomUnit_LargeIncrement = $00000003; ZoomUnit_SmallIncrement = $00000004; // Constants for enum LiveSetting type LiveSetting = TOleEnum; const Off = $00000000; Polite = $00000001; Assertive = $00000002; // Constants for enum ProviderOptions type ProviderOptions = TOleEnum; const ProviderOptions_ClientSideProvider = $00000001; ProviderOptions_ServerSideProvider = $00000002; ProviderOptions_NonClientAreaProvider = $00000004; ProviderOptions_OverrideProvider = $00000008; ProviderOptions_ProviderOwnsSetFocus = $00000010; ProviderOptions_UseComThreading = $00000020; ProviderOptions_RefuseNonClientSupport = $00000040; ProviderOptions_HasNativeIAccessible = $00000080; ProviderOptions_UseClientCoordinates = $00000100; type // *********************************************************************// // Forward declaration of types defined in TypeLibrary // *********************************************************************// IUIAutomationElement = interface; IUIAutomationCondition = interface; IUIAutomationElementArray = interface; IUIAutomationCacheRequest = interface; IUIAutomationBoolCondition = interface; IUIAutomationPropertyCondition = interface; IUIAutomationAndCondition = interface; IUIAutomationOrCondition = interface; IUIAutomationNotCondition = interface; IUIAutomationTreeWalker = interface; IUIAutomationEventHandler = interface; IUIAutomationPropertyChangedEventHandler = interface; IUIAutomationStructureChangedEventHandler = interface; IUIAutomationFocusChangedEventHandler = interface; IUIAutomationTextEditTextChangedEventHandler = interface; IUIAutomationInvokePattern = interface; IUIAutomationDockPattern = interface; IUIAutomationExpandCollapsePattern = interface; IUIAutomationGridPattern = interface; IUIAutomationGridItemPattern = interface; IUIAutomationMultipleViewPattern = interface; IUIAutomationObjectModelPattern = interface; IUIAutomationRangeValuePattern = interface; IUIAutomationScrollPattern = interface; IUIAutomationScrollItemPattern = interface; IUIAutomationSelectionPattern = interface; IUIAutomationSelectionItemPattern = interface; IUIAutomationSynchronizedInputPattern = interface; IUIAutomationTablePattern = interface; IUIAutomationTableItemPattern = interface; IUIAutomationTogglePattern = interface; IUIAutomationTransformPattern = interface; IUIAutomationValuePattern = interface; IUIAutomationWindowPattern = interface; IUIAutomationTextRange = interface; IUIAutomationTextRange2 = interface; IUIAutomationTextRangeArray = interface; IUIAutomationTextPattern = interface; IUIAutomationTextPattern2 = interface; IUIAutomationTextEditPattern = interface; IUIAutomationLegacyIAccessiblePattern = interface; IAccessible = interface; IAccessibleDisp = dispinterface; IUIAutomationItemContainerPattern = interface; IUIAutomationVirtualizedItemPattern = interface; IUIAutomationAnnotationPattern = interface; IUIAutomationStylesPattern = interface; IUIAutomationSpreadsheetPattern = interface; IUIAutomationSpreadsheetItemPattern = interface; IUIAutomationTransformPattern2 = interface; IUIAutomationTextChildPattern = interface; IUIAutomationDragPattern = interface; IUIAutomationDropTargetPattern = interface; IUIAutomationElement2 = interface; IUIAutomationElement3 = interface; IUIAutomationProxyFactory = interface; IRawElementProviderSimple = interface; IUIAutomationProxyFactoryEntry = interface; IUIAutomationProxyFactoryMapping = interface; IUIAutomation = interface; IUIAutomation2 = interface; IUIAutomation3 = interface; // *********************************************************************// // Declaration of CoClasses defined in Type Library // (NOTE: Here we map each CoClass to its Default Interface) // *********************************************************************// CUIAutomation = IUIAutomation; CUIAutomation8 = IUIAutomation2; // *********************************************************************// // Declaration of structures, unions and aliases. // *********************************************************************// PUserType1 = ^TGUID; {*} PPUserType1 = ^IUIAutomationCondition; {*} PUserType2 = ^ExtendedProperty; {*} PSYSINT1 = ^SYSINT; {*} PUserType3 = ^tagRECT; {*} tagRECT = record left: Integer; top: Integer; right: Integer; bottom: Integer; end; tagPOINT = record x: Integer; y: Integer; end; ExtendedProperty = record PropertyName: WideString; PropertyValue: WideString; end; // *********************************************************************// // Interface: IUIAutomationElement // Flags: (0) // GUID: {D22108AA-8AC5-49A5-837B-37BBB3D7591E} // *********************************************************************// IUIAutomationElement = interface(IUnknown) ['{D22108AA-8AC5-49A5-837B-37BBB3D7591E}'] function SetFocus: HResult; stdcall; function GetRuntimeId(out runtimeId: PSafeArray): HResult; stdcall; function FindFirst(scope: TreeScope; const condition: IUIAutomationCondition; out found: IUIAutomationElement): HResult; stdcall; function FindAll(scope: TreeScope; const condition: IUIAutomationCondition; out found: IUIAutomationElementArray): HResult; stdcall; function FindFirstBuildCache(scope: TreeScope; const condition: IUIAutomationCondition; const cacheRequest: IUIAutomationCacheRequest; out found: IUIAutomationElement): HResult; stdcall; function FindAllBuildCache(scope: TreeScope; const condition: IUIAutomationCondition; const cacheRequest: IUIAutomationCacheRequest; out found: IUIAutomationElementArray): HResult; stdcall; function BuildUpdatedCache(const cacheRequest: IUIAutomationCacheRequest; out updatedElement: IUIAutomationElement): HResult; stdcall; function GetCurrentPropertyValue(propertyId: SYSINT; out retVal: OleVariant): HResult; stdcall; function GetCurrentPropertyValueEx(propertyId: SYSINT; ignoreDefaultValue: Integer; out retVal: OleVariant): HResult; stdcall; function GetCachedPropertyValue(propertyId: SYSINT; out retVal: OleVariant): HResult; stdcall; function GetCachedPropertyValueEx(propertyId: SYSINT; ignoreDefaultValue: Integer; out retVal: OleVariant): HResult; stdcall; function GetCurrentPatternAs(patternId: SYSINT; var riid: TGUID; out patternObject: Pointer): HResult; stdcall; function GetCachedPatternAs(patternId: SYSINT; var riid: TGUID; out patternObject: Pointer): HResult; stdcall; function GetCurrentPattern(patternId: SYSINT; out patternObject: IUnknown): HResult; stdcall; function GetCachedPattern(patternId: SYSINT; out patternObject: IUnknown): HResult; stdcall; function GetCachedParent(out parent: IUIAutomationElement): HResult; stdcall; function GetCachedChildren(out children: IUIAutomationElementArray): HResult; stdcall; function Get_CurrentProcessId(out retVal: SYSINT): HResult; stdcall; function Get_CurrentControlType(out retVal: SYSINT): HResult; stdcall; function Get_CurrentLocalizedControlType(out retVal: WideString): HResult; stdcall; function Get_CurrentName(out retVal: WideString): HResult; stdcall; function Get_CurrentAcceleratorKey(out retVal: WideString): HResult; stdcall; function Get_CurrentAccessKey(out retVal: WideString): HResult; stdcall; function Get_CurrentHasKeyboardFocus(out retVal: Integer): HResult; stdcall; function Get_CurrentIsKeyboardFocusable(out retVal: Integer): HResult; stdcall; function Get_CurrentIsEnabled(out retVal: Integer): HResult; stdcall; function Get_CurrentAutomationId(out retVal: WideString): HResult; stdcall; function Get_CurrentClassName(out retVal: WideString): HResult; stdcall; function Get_CurrentHelpText(out retVal: WideString): HResult; stdcall; function Get_CurrentCulture(out retVal: SYSINT): HResult; stdcall; function Get_CurrentIsControlElement(out retVal: Integer): HResult; stdcall; function Get_CurrentIsContentElement(out retVal: Integer): HResult; stdcall; function Get_CurrentIsPassword(out retVal: Integer): HResult; stdcall; function Get_CurrentNativeWindowHandle(out retVal: Pointer): HResult; stdcall; function Get_CurrentItemType(out retVal: WideString): HResult; stdcall; function Get_CurrentIsOffscreen(out retVal: Integer): HResult; stdcall; function Get_CurrentOrientation(out retVal: OrientationType): HResult; stdcall; function Get_CurrentFrameworkId(out retVal: WideString): HResult; stdcall; function Get_CurrentIsRequiredForForm(out retVal: Integer): HResult; stdcall; function Get_CurrentItemStatus(out retVal: WideString): HResult; stdcall; function Get_CurrentBoundingRectangle(out retVal: tagRECT): HResult; stdcall; function Get_CurrentLabeledBy(out retVal: IUIAutomationElement): HResult; stdcall; function Get_CurrentAriaRole(out retVal: WideString): HResult; stdcall; function Get_CurrentAriaProperties(out retVal: WideString): HResult; stdcall; function Get_CurrentIsDataValidForForm(out retVal: Integer): HResult; stdcall; function Get_CurrentControllerFor(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CurrentDescribedBy(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CurrentFlowsTo(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CurrentProviderDescription(out retVal: WideString): HResult; stdcall; function Get_CachedProcessId(out retVal: SYSINT): HResult; stdcall; function Get_CachedControlType(out retVal: SYSINT): HResult; stdcall; function Get_CachedLocalizedControlType(out retVal: WideString): HResult; stdcall; function Get_CachedName(out retVal: WideString): HResult; stdcall; function Get_CachedAcceleratorKey(out retVal: WideString): HResult; stdcall; function Get_CachedAccessKey(out retVal: WideString): HResult; stdcall; function Get_CachedHasKeyboardFocus(out retVal: Integer): HResult; stdcall; function Get_CachedIsKeyboardFocusable(out retVal: Integer): HResult; stdcall; function Get_CachedIsEnabled(out retVal: Integer): HResult; stdcall; function Get_CachedAutomationId(out retVal: WideString): HResult; stdcall; function Get_CachedClassName(out retVal: WideString): HResult; stdcall; function Get_CachedHelpText(out retVal: WideString): HResult; stdcall; function Get_CachedCulture(out retVal: SYSINT): HResult; stdcall; function Get_CachedIsControlElement(out retVal: Integer): HResult; stdcall; function Get_CachedIsContentElement(out retVal: Integer): HResult; stdcall; function Get_CachedIsPassword(out retVal: Integer): HResult; stdcall; function Get_CachedNativeWindowHandle(out retVal: Pointer): HResult; stdcall; function Get_CachedItemType(out retVal: WideString): HResult; stdcall; function Get_CachedIsOffscreen(out retVal: Integer): HResult; stdcall; function Get_CachedOrientation(out retVal: OrientationType): HResult; stdcall; function Get_CachedFrameworkId(out retVal: WideString): HResult; stdcall; function Get_CachedIsRequiredForForm(out retVal: Integer): HResult; stdcall; function Get_CachedItemStatus(out retVal: WideString): HResult; stdcall; function Get_CachedBoundingRectangle(out retVal: tagRECT): HResult; stdcall; function Get_CachedLabeledBy(out retVal: IUIAutomationElement): HResult; stdcall; function Get_CachedAriaRole(out retVal: WideString): HResult; stdcall; function Get_CachedAriaProperties(out retVal: WideString): HResult; stdcall; function Get_CachedIsDataValidForForm(out retVal: Integer): HResult; stdcall; function Get_CachedControllerFor(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CachedDescribedBy(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CachedFlowsTo(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CachedProviderDescription(out retVal: WideString): HResult; stdcall; function GetClickablePoint(out clickable: tagPOINT; out gotClickable: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationCondition // Flags: (0) // GUID: {352FFBA8-0973-437C-A61F-F64CAFD81DF9} // *********************************************************************// IUIAutomationCondition = interface(IUnknown) ['{352FFBA8-0973-437C-A61F-F64CAFD81DF9}'] end; // *********************************************************************// // Interface: IUIAutomationElementArray // Flags: (0) // GUID: {14314595-B4BC-4055-95F2-58F2E42C9855} // *********************************************************************// IUIAutomationElementArray = interface(IUnknown) ['{14314595-B4BC-4055-95F2-58F2E42C9855}'] function Get_Length(out Length: SYSINT): HResult; stdcall; function GetElement(index: SYSINT; out element: IUIAutomationElement): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationCacheRequest // Flags: (0) // GUID: {B32A92B5-BC25-4078-9C08-D7EE95C48E03} // *********************************************************************// IUIAutomationCacheRequest = interface(IUnknown) ['{B32A92B5-BC25-4078-9C08-D7EE95C48E03}'] function AddProperty(propertyId: SYSINT): HResult; stdcall; function AddPattern(patternId: SYSINT): HResult; stdcall; function Clone(out clonedRequest: IUIAutomationCacheRequest): HResult; stdcall; function Get_TreeScope(out scope: TreeScope): HResult; stdcall; function Set_TreeScope(scope: TreeScope): HResult; stdcall; function Get_TreeFilter(out filter: IUIAutomationCondition): HResult; stdcall; function Set_TreeFilter(const filter: IUIAutomationCondition): HResult; stdcall; function Get_AutomationElementMode(out mode: AutomationElementMode): HResult; stdcall; function Set_AutomationElementMode(mode: AutomationElementMode): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationBoolCondition // Flags: (0) // GUID: {1B4E1F2E-75EB-4D0B-8952-5A69988E2307} // *********************************************************************// IUIAutomationBoolCondition = interface(IUIAutomationCondition) ['{1B4E1F2E-75EB-4D0B-8952-5A69988E2307}'] function Get_BooleanValue(out boolVal: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationPropertyCondition // Flags: (0) // GUID: {99EBF2CB-5578-4267-9AD4-AFD6EA77E94B} // *********************************************************************// IUIAutomationPropertyCondition = interface(IUIAutomationCondition) ['{99EBF2CB-5578-4267-9AD4-AFD6EA77E94B}'] function Get_propertyId(out propertyId: SYSINT): HResult; stdcall; function Get_PropertyValue(out PropertyValue: OleVariant): HResult; stdcall; function Get_PropertyConditionFlags(out flags: PropertyConditionFlags): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationAndCondition // Flags: (0) // GUID: {A7D0AF36-B912-45FE-9855-091DDC174AEC} // *********************************************************************// IUIAutomationAndCondition = interface(IUIAutomationCondition) ['{A7D0AF36-B912-45FE-9855-091DDC174AEC}'] function Get_ChildCount(out ChildCount: SYSINT): HResult; stdcall; function GetChildrenAsNativeArray(out childArray: PPUserType1; out childArrayCount: SYSINT): HResult; stdcall; function GetChildren(out childArray: PSafeArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationOrCondition // Flags: (0) // GUID: {8753F032-3DB1-47B5-A1FC-6E34A266C712} // *********************************************************************// IUIAutomationOrCondition = interface(IUIAutomationCondition) ['{8753F032-3DB1-47B5-A1FC-6E34A266C712}'] function Get_ChildCount(out ChildCount: SYSINT): HResult; stdcall; function GetChildrenAsNativeArray(out childArray: PPUserType1; out childArrayCount: SYSINT): HResult; stdcall; function GetChildren(out childArray: PSafeArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationNotCondition // Flags: (0) // GUID: {F528B657-847B-498C-8896-D52B565407A1} // *********************************************************************// IUIAutomationNotCondition = interface(IUIAutomationCondition) ['{F528B657-847B-498C-8896-D52B565407A1}'] function GetChild(out condition: IUIAutomationCondition): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTreeWalker // Flags: (0) // GUID: {4042C624-389C-4AFC-A630-9DF854A541FC} // *********************************************************************// IUIAutomationTreeWalker = interface(IUnknown) ['{4042C624-389C-4AFC-A630-9DF854A541FC}'] function GetParentElement(const element: IUIAutomationElement; out parent: IUIAutomationElement): HResult; stdcall; function GetFirstChildElement(const element: IUIAutomationElement; out first: IUIAutomationElement): HResult; stdcall; function GetLastChildElement(const element: IUIAutomationElement; out last: IUIAutomationElement): HResult; stdcall; function GetNextSiblingElement(const element: IUIAutomationElement; out next: IUIAutomationElement): HResult; stdcall; function GetPreviousSiblingElement(const element: IUIAutomationElement; out previous: IUIAutomationElement): HResult; stdcall; function NormalizeElement(const element: IUIAutomationElement; out normalized: IUIAutomationElement): HResult; stdcall; function GetParentElementBuildCache(const element: IUIAutomationElement; const cacheRequest: IUIAutomationCacheRequest; out parent: IUIAutomationElement): HResult; stdcall; function GetFirstChildElementBuildCache(const element: IUIAutomationElement; const cacheRequest: IUIAutomationCacheRequest; out first: IUIAutomationElement): HResult; stdcall; function GetLastChildElementBuildCache(const element: IUIAutomationElement; const cacheRequest: IUIAutomationCacheRequest; out last: IUIAutomationElement): HResult; stdcall; function GetNextSiblingElementBuildCache(const element: IUIAutomationElement; const cacheRequest: IUIAutomationCacheRequest; out next: IUIAutomationElement): HResult; stdcall; function GetPreviousSiblingElementBuildCache(const element: IUIAutomationElement; const cacheRequest: IUIAutomationCacheRequest; out previous: IUIAutomationElement): HResult; stdcall; function NormalizeElementBuildCache(const element: IUIAutomationElement; const cacheRequest: IUIAutomationCacheRequest; out normalized: IUIAutomationElement): HResult; stdcall; function Get_condition(out condition: IUIAutomationCondition): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationEventHandler // Flags: (256) OleAutomation // GUID: {146C3C17-F12E-4E22-8C27-F894B9B79C69} // *********************************************************************// IUIAutomationEventHandler = interface(IUnknown) ['{146C3C17-F12E-4E22-8C27-F894B9B79C69}'] function HandleAutomationEvent(const sender: IUIAutomationElement; eventId: SYSINT): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationPropertyChangedEventHandler // Flags: (256) OleAutomation // GUID: {40CD37D4-C756-4B0C-8C6F-BDDFEEB13B50} // *********************************************************************// IUIAutomationPropertyChangedEventHandler = interface(IUnknown) ['{40CD37D4-C756-4B0C-8C6F-BDDFEEB13B50}'] function HandlePropertyChangedEvent(const sender: IUIAutomationElement; propertyId: SYSINT; newValue: OleVariant): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationStructureChangedEventHandler // Flags: (256) OleAutomation // GUID: {E81D1B4E-11C5-42F8-9754-E7036C79F054} // *********************************************************************// IUIAutomationStructureChangedEventHandler = interface(IUnknown) ['{E81D1B4E-11C5-42F8-9754-E7036C79F054}'] function HandleStructureChangedEvent(const sender: IUIAutomationElement; changeType: StructureChangeType; runtimeId: PSafeArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationFocusChangedEventHandler // Flags: (256) OleAutomation // GUID: {C270F6B5-5C69-4290-9745-7A7F97169468} // *********************************************************************// IUIAutomationFocusChangedEventHandler = interface(IUnknown) ['{C270F6B5-5C69-4290-9745-7A7F97169468}'] function HandleFocusChangedEvent(const sender: IUIAutomationElement): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTextEditTextChangedEventHandler // Flags: (256) OleAutomation // GUID: {92FAA680-E704-4156-931A-E32D5BB38F3F} // *********************************************************************// IUIAutomationTextEditTextChangedEventHandler = interface(IUnknown) ['{92FAA680-E704-4156-931A-E32D5BB38F3F}'] function HandleTextEditTextChangedEvent(const sender: IUIAutomationElement; TextEditChangeType: TextEditChangeType; eventStrings: PSafeArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationInvokePattern // Flags: (0) // GUID: {FB377FBE-8EA6-46D5-9C73-6499642D3059} // *********************************************************************// IUIAutomationInvokePattern = interface(IUnknown) ['{FB377FBE-8EA6-46D5-9C73-6499642D3059}'] function Invoke: HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationDockPattern // Flags: (0) // GUID: {FDE5EF97-1464-48F6-90BF-43D0948E86EC} // *********************************************************************// IUIAutomationDockPattern = interface(IUnknown) ['{FDE5EF97-1464-48F6-90BF-43D0948E86EC}'] function SetDockPosition(dockPos: DockPosition): HResult; stdcall; function Get_CurrentDockPosition(out retVal: DockPosition): HResult; stdcall; function Get_CachedDockPosition(out retVal: DockPosition): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationExpandCollapsePattern // Flags: (0) // GUID: {619BE086-1F4E-4EE4-BAFA-210128738730} // *********************************************************************// IUIAutomationExpandCollapsePattern = interface(IUnknown) ['{619BE086-1F4E-4EE4-BAFA-210128738730}'] function Expand: HResult; stdcall; function Collapse: HResult; stdcall; function Get_CurrentExpandCollapseState(out retVal: ExpandCollapseState): HResult; stdcall; function Get_CachedExpandCollapseState(out retVal: ExpandCollapseState): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationGridPattern // Flags: (0) // GUID: {414C3CDC-856B-4F5B-8538-3131C6302550} // *********************************************************************// IUIAutomationGridPattern = interface(IUnknown) ['{414C3CDC-856B-4F5B-8538-3131C6302550}'] function GetItem(row: SYSINT; column: SYSINT; out element: IUIAutomationElement): HResult; stdcall; function Get_CurrentRowCount(out retVal: SYSINT): HResult; stdcall; function Get_CurrentColumnCount(out retVal: SYSINT): HResult; stdcall; function Get_CachedRowCount(out retVal: SYSINT): HResult; stdcall; function Get_CachedColumnCount(out retVal: SYSINT): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationGridItemPattern // Flags: (0) // GUID: {78F8EF57-66C3-4E09-BD7C-E79B2004894D} // *********************************************************************// IUIAutomationGridItemPattern = interface(IUnknown) ['{78F8EF57-66C3-4E09-BD7C-E79B2004894D}'] function Get_CurrentContainingGrid(out retVal: IUIAutomationElement): HResult; stdcall; function Get_CurrentRow(out retVal: SYSINT): HResult; stdcall; function Get_CurrentColumn(out retVal: SYSINT): HResult; stdcall; function Get_CurrentRowSpan(out retVal: SYSINT): HResult; stdcall; function Get_CurrentColumnSpan(out retVal: SYSINT): HResult; stdcall; function Get_CachedContainingGrid(out retVal: IUIAutomationElement): HResult; stdcall; function Get_CachedRow(out retVal: SYSINT): HResult; stdcall; function Get_CachedColumn(out retVal: SYSINT): HResult; stdcall; function Get_CachedRowSpan(out retVal: SYSINT): HResult; stdcall; function Get_CachedColumnSpan(out retVal: SYSINT): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationMultipleViewPattern // Flags: (0) // GUID: {8D253C91-1DC5-4BB5-B18F-ADE16FA495E8} // *********************************************************************// IUIAutomationMultipleViewPattern = interface(IUnknown) ['{8D253C91-1DC5-4BB5-B18F-ADE16FA495E8}'] function GetViewName(view: SYSINT; out name: WideString): HResult; stdcall; function SetCurrentView(view: SYSINT): HResult; stdcall; function Get_CurrentCurrentView(out retVal: SYSINT): HResult; stdcall; function GetCurrentSupportedViews(out retVal: PSafeArray): HResult; stdcall; function Get_CachedCurrentView(out retVal: SYSINT): HResult; stdcall; function GetCachedSupportedViews(out retVal: PSafeArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationObjectModelPattern // Flags: (0) // GUID: {71C284B3-C14D-4D14-981E-19751B0D756D} // *********************************************************************// IUIAutomationObjectModelPattern = interface(IUnknown) ['{71C284B3-C14D-4D14-981E-19751B0D756D}'] function GetUnderlyingObjectModel(out retVal: IUnknown): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationRangeValuePattern // Flags: (0) // GUID: {59213F4F-7346-49E5-B120-80555987A148} // *********************************************************************// IUIAutomationRangeValuePattern = interface(IUnknown) ['{59213F4F-7346-49E5-B120-80555987A148}'] function SetValue(val: Double): HResult; stdcall; function Get_CurrentValue(out retVal: Double): HResult; stdcall; function Get_CurrentIsReadOnly(out retVal: Integer): HResult; stdcall; function Get_CurrentMaximum(out retVal: Double): HResult; stdcall; function Get_CurrentMinimum(out retVal: Double): HResult; stdcall; function Get_CurrentLargeChange(out retVal: Double): HResult; stdcall; function Get_CurrentSmallChange(out retVal: Double): HResult; stdcall; function Get_CachedValue(out retVal: Double): HResult; stdcall; function Get_CachedIsReadOnly(out retVal: Integer): HResult; stdcall; function Get_CachedMaximum(out retVal: Double): HResult; stdcall; function Get_CachedMinimum(out retVal: Double): HResult; stdcall; function Get_CachedLargeChange(out retVal: Double): HResult; stdcall; function Get_CachedSmallChange(out retVal: Double): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationScrollPattern // Flags: (0) // GUID: {88F4D42A-E881-459D-A77C-73BBBB7E02DC} // *********************************************************************// IUIAutomationScrollPattern = interface(IUnknown) ['{88F4D42A-E881-459D-A77C-73BBBB7E02DC}'] function Scroll(horizontalAmount: ScrollAmount; verticalAmount: ScrollAmount): HResult; stdcall; function SetScrollPercent(horizontalPercent: Double; verticalPercent: Double): HResult; stdcall; function Get_CurrentHorizontalScrollPercent(out retVal: Double): HResult; stdcall; function Get_CurrentVerticalScrollPercent(out retVal: Double): HResult; stdcall; function Get_CurrentHorizontalViewSize(out retVal: Double): HResult; stdcall; function Get_CurrentVerticalViewSize(out retVal: Double): HResult; stdcall; function Get_CurrentHorizontallyScrollable(out retVal: Integer): HResult; stdcall; function Get_CurrentVerticallyScrollable(out retVal: Integer): HResult; stdcall; function Get_CachedHorizontalScrollPercent(out retVal: Double): HResult; stdcall; function Get_CachedVerticalScrollPercent(out retVal: Double): HResult; stdcall; function Get_CachedHorizontalViewSize(out retVal: Double): HResult; stdcall; function Get_CachedVerticalViewSize(out retVal: Double): HResult; stdcall; function Get_CachedHorizontallyScrollable(out retVal: Integer): HResult; stdcall; function Get_CachedVerticallyScrollable(out retVal: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationScrollItemPattern // Flags: (0) // GUID: {B488300F-D015-4F19-9C29-BB595E3645EF} // *********************************************************************// IUIAutomationScrollItemPattern = interface(IUnknown) ['{B488300F-D015-4F19-9C29-BB595E3645EF}'] function ScrollIntoView: HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationSelectionPattern // Flags: (0) // GUID: {5ED5202E-B2AC-47A6-B638-4B0BF140D78E} // *********************************************************************// IUIAutomationSelectionPattern = interface(IUnknown) ['{5ED5202E-B2AC-47A6-B638-4B0BF140D78E}'] function GetCurrentSelection(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CurrentCanSelectMultiple(out retVal: Integer): HResult; stdcall; function Get_CurrentIsSelectionRequired(out retVal: Integer): HResult; stdcall; function GetCachedSelection(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CachedCanSelectMultiple(out retVal: Integer): HResult; stdcall; function Get_CachedIsSelectionRequired(out retVal: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationSelectionItemPattern // Flags: (0) // GUID: {A8EFA66A-0FDA-421A-9194-38021F3578EA} // *********************************************************************// IUIAutomationSelectionItemPattern = interface(IUnknown) ['{A8EFA66A-0FDA-421A-9194-38021F3578EA}'] function Select: HResult; stdcall; function AddToSelection: HResult; stdcall; function RemoveFromSelection: HResult; stdcall; function Get_CurrentIsSelected(out retVal: Integer): HResult; stdcall; function Get_CurrentSelectionContainer(out retVal: IUIAutomationElement): HResult; stdcall; function Get_CachedIsSelected(out retVal: Integer): HResult; stdcall; function Get_CachedSelectionContainer(out retVal: IUIAutomationElement): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationSynchronizedInputPattern // Flags: (0) // GUID: {2233BE0B-AFB7-448B-9FDA-3B378AA5EAE1} // *********************************************************************// IUIAutomationSynchronizedInputPattern = interface(IUnknown) ['{2233BE0B-AFB7-448B-9FDA-3B378AA5EAE1}'] function StartListening(inputType: SynchronizedInputType): HResult; stdcall; function Cancel: HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTablePattern // Flags: (0) // GUID: {620E691C-EA96-4710-A850-754B24CE2417} // *********************************************************************// IUIAutomationTablePattern = interface(IUnknown) ['{620E691C-EA96-4710-A850-754B24CE2417}'] function GetCurrentRowHeaders(out retVal: IUIAutomationElementArray): HResult; stdcall; function GetCurrentColumnHeaders(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CurrentRowOrColumnMajor(out retVal: RowOrColumnMajor): HResult; stdcall; function GetCachedRowHeaders(out retVal: IUIAutomationElementArray): HResult; stdcall; function GetCachedColumnHeaders(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CachedRowOrColumnMajor(out retVal: RowOrColumnMajor): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTableItemPattern // Flags: (0) // GUID: {0B964EB3-EF2E-4464-9C79-61D61737A27E} // *********************************************************************// IUIAutomationTableItemPattern = interface(IUnknown) ['{0B964EB3-EF2E-4464-9C79-61D61737A27E}'] function GetCurrentRowHeaderItems(out retVal: IUIAutomationElementArray): HResult; stdcall; function GetCurrentColumnHeaderItems(out retVal: IUIAutomationElementArray): HResult; stdcall; function GetCachedRowHeaderItems(out retVal: IUIAutomationElementArray): HResult; stdcall; function GetCachedColumnHeaderItems(out retVal: IUIAutomationElementArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTogglePattern // Flags: (0) // GUID: {94CF8058-9B8D-4AB9-8BFD-4CD0A33C8C70} // *********************************************************************// IUIAutomationTogglePattern = interface(IUnknown) ['{94CF8058-9B8D-4AB9-8BFD-4CD0A33C8C70}'] function Toggle: HResult; stdcall; function Get_CurrentToggleState(out retVal: ToggleState): HResult; stdcall; function Get_CachedToggleState(out retVal: ToggleState): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTransformPattern // Flags: (0) // GUID: {A9B55844-A55D-4EF0-926D-569C16FF89BB} // *********************************************************************// IUIAutomationTransformPattern = interface(IUnknown) ['{A9B55844-A55D-4EF0-926D-569C16FF89BB}'] function Move(x: Double; y: Double): HResult; stdcall; function Resize(width: Double; height: Double): HResult; stdcall; function Rotate(degrees: Double): HResult; stdcall; function Get_CurrentCanMove(out retVal: Integer): HResult; stdcall; function Get_CurrentCanResize(out retVal: Integer): HResult; stdcall; function Get_CurrentCanRotate(out retVal: Integer): HResult; stdcall; function Get_CachedCanMove(out retVal: Integer): HResult; stdcall; function Get_CachedCanResize(out retVal: Integer): HResult; stdcall; function Get_CachedCanRotate(out retVal: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationValuePattern // Flags: (0) // GUID: {A94CD8B1-0844-4CD6-9D2D-640537AB39E9} // *********************************************************************// IUIAutomationValuePattern = interface(IUnknown) ['{A94CD8B1-0844-4CD6-9D2D-640537AB39E9}'] function SetValue(const val: WideString): HResult; stdcall; function Get_CurrentValue(out retVal: WideString): HResult; stdcall; function Get_CurrentIsReadOnly(out retVal: Integer): HResult; stdcall; function Get_CachedValue(out retVal: WideString): HResult; stdcall; function Get_CachedIsReadOnly(out retVal: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationWindowPattern // Flags: (0) // GUID: {0FAEF453-9208-43EF-BBB2-3B485177864F} // *********************************************************************// IUIAutomationWindowPattern = interface(IUnknown) ['{0FAEF453-9208-43EF-BBB2-3B485177864F}'] function Close: HResult; stdcall; function WaitForInputIdle(milliseconds: SYSINT; out success: Integer): HResult; stdcall; function SetWindowVisualState(state: WindowVisualState): HResult; stdcall; function Get_CurrentCanMaximize(out retVal: Integer): HResult; stdcall; function Get_CurrentCanMinimize(out retVal: Integer): HResult; stdcall; function Get_CurrentIsModal(out retVal: Integer): HResult; stdcall; function Get_CurrentIsTopmost(out retVal: Integer): HResult; stdcall; function Get_CurrentWindowVisualState(out retVal: WindowVisualState): HResult; stdcall; function Get_CurrentWindowInteractionState(out retVal: WindowInteractionState): HResult; stdcall; function Get_CachedCanMaximize(out retVal: Integer): HResult; stdcall; function Get_CachedCanMinimize(out retVal: Integer): HResult; stdcall; function Get_CachedIsModal(out retVal: Integer): HResult; stdcall; function Get_CachedIsTopmost(out retVal: Integer): HResult; stdcall; function Get_CachedWindowVisualState(out retVal: WindowVisualState): HResult; stdcall; function Get_CachedWindowInteractionState(out retVal: WindowInteractionState): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTextRange // Flags: (0) // GUID: {A543CC6A-F4AE-494B-8239-C814481187A8} // *********************************************************************// IUIAutomationTextRange = interface(IUnknown) ['{A543CC6A-F4AE-494B-8239-C814481187A8}'] function Clone(out clonedRange: IUIAutomationTextRange): HResult; stdcall; function Compare(const range: IUIAutomationTextRange; out areSame: Integer): HResult; stdcall; function CompareEndpoints(srcEndPoint: TextPatternRangeEndpoint; const range: IUIAutomationTextRange; targetEndPoint: TextPatternRangeEndpoint; out compValue: SYSINT): HResult; stdcall; function ExpandToEnclosingUnit(TextUnit: TextUnit): HResult; stdcall; function FindAttribute(attr: SYSINT; val: OleVariant; backward: Integer; out found: IUIAutomationTextRange): HResult; stdcall; function FindText(const text: WideString; backward: Integer; ignoreCase: Integer; out found: IUIAutomationTextRange): HResult; stdcall; function GetAttributeValue(attr: SYSINT; out value: OleVariant): HResult; stdcall; function GetBoundingRectangles(out boundingRects: PSafeArray): HResult; stdcall; function GetEnclosingElement(out enclosingElement: IUIAutomationElement): HResult; stdcall; function GetText(maxLength: SYSINT; out text: WideString): HResult; stdcall; function Move(unit_: TextUnit; count: SYSINT; out moved: SYSINT): HResult; stdcall; function MoveEndpointByUnit(endpoint: TextPatternRangeEndpoint; unit_: TextUnit; count: SYSINT; out moved: SYSINT): HResult; stdcall; function MoveEndpointByRange(srcEndPoint: TextPatternRangeEndpoint; const range: IUIAutomationTextRange; targetEndPoint: TextPatternRangeEndpoint): HResult; stdcall; function Select: HResult; stdcall; function AddToSelection: HResult; stdcall; function RemoveFromSelection: HResult; stdcall; function ScrollIntoView(alignToTop: Integer): HResult; stdcall; function GetChildren(out children: IUIAutomationElementArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTextRange2 // Flags: (0) // GUID: {BB9B40E0-5E04-46BD-9BE0-4B601B9AFAD4} // *********************************************************************// IUIAutomationTextRange2 = interface(IUIAutomationTextRange) ['{BB9B40E0-5E04-46BD-9BE0-4B601B9AFAD4}'] function ShowContextMenu: HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTextRangeArray // Flags: (0) // GUID: {CE4AE76A-E717-4C98-81EA-47371D028EB6} // *********************************************************************// IUIAutomationTextRangeArray = interface(IUnknown) ['{CE4AE76A-E717-4C98-81EA-47371D028EB6}'] function Get_Length(out Length: SYSINT): HResult; stdcall; function GetElement(index: SYSINT; out element: IUIAutomationTextRange): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTextPattern // Flags: (0) // GUID: {32EBA289-3583-42C9-9C59-3B6D9A1E9B6A} // *********************************************************************// IUIAutomationTextPattern = interface(IUnknown) ['{32EBA289-3583-42C9-9C59-3B6D9A1E9B6A}'] function RangeFromPoint(pt: tagPOINT; out range: IUIAutomationTextRange): HResult; stdcall; function RangeFromChild(const child: IUIAutomationElement; out range: IUIAutomationTextRange): HResult; stdcall; function GetSelection(out ranges: IUIAutomationTextRangeArray): HResult; stdcall; function GetVisibleRanges(out ranges: IUIAutomationTextRangeArray): HResult; stdcall; function Get_DocumentRange(out range: IUIAutomationTextRange): HResult; stdcall; function Get_SupportedTextSelection(out SupportedTextSelection: SupportedTextSelection): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTextPattern2 // Flags: (0) // GUID: {506A921A-FCC9-409F-B23B-37EB74106872} // *********************************************************************// IUIAutomationTextPattern2 = interface(IUIAutomationTextPattern) ['{506A921A-FCC9-409F-B23B-37EB74106872}'] function RangeFromAnnotation(const annotation: IUIAutomationElement; out range: IUIAutomationTextRange): HResult; stdcall; function GetCaretRange(out isActive: Integer; out range: IUIAutomationTextRange): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTextEditPattern // Flags: (0) // GUID: {17E21576-996C-4870-99D9-BFF323380C06} // *********************************************************************// IUIAutomationTextEditPattern = interface(IUIAutomationTextPattern) ['{17E21576-996C-4870-99D9-BFF323380C06}'] function GetActiveComposition(out range: IUIAutomationTextRange): HResult; stdcall; function GetConversionTarget(out range: IUIAutomationTextRange): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationLegacyIAccessiblePattern // Flags: (0) // GUID: {828055AD-355B-4435-86D5-3B51C14A9B1B} // *********************************************************************// IUIAutomationLegacyIAccessiblePattern = interface(IUnknown) ['{828055AD-355B-4435-86D5-3B51C14A9B1B}'] function Select(flagsSelect: Integer): HResult; stdcall; function DoDefaultAction: HResult; stdcall; function SetValue(szValue: PWideChar): HResult; stdcall; function Get_CurrentChildId(out pRetVal: SYSINT): HResult; stdcall; function Get_CurrentName(out pszName: WideString): HResult; stdcall; function Get_CurrentValue(out pszValue: WideString): HResult; stdcall; function Get_CurrentDescription(out pszDescription: WideString): HResult; stdcall; function Get_CurrentRole(out pdwRole: LongWord): HResult; stdcall; function Get_CurrentState(out pdwState: LongWord): HResult; stdcall; function Get_CurrentHelp(out pszHelp: WideString): HResult; stdcall; function Get_CurrentKeyboardShortcut(out pszKeyboardShortcut: WideString): HResult; stdcall; function GetCurrentSelection(out pvarSelectedChildren: IUIAutomationElementArray): HResult; stdcall; function Get_CurrentDefaultAction(out pszDefaultAction: WideString): HResult; stdcall; function Get_CachedChildId(out pRetVal: SYSINT): HResult; stdcall; function Get_CachedName(out pszName: WideString): HResult; stdcall; function Get_CachedValue(out pszValue: WideString): HResult; stdcall; function Get_CachedDescription(out pszDescription: WideString): HResult; stdcall; function Get_CachedRole(out pdwRole: LongWord): HResult; stdcall; function Get_CachedState(out pdwState: LongWord): HResult; stdcall; function Get_CachedHelp(out pszHelp: WideString): HResult; stdcall; function Get_CachedKeyboardShortcut(out pszKeyboardShortcut: WideString): HResult; stdcall; function GetCachedSelection(out pvarSelectedChildren: IUIAutomationElementArray): HResult; stdcall; function Get_CachedDefaultAction(out pszDefaultAction: WideString): HResult; stdcall; function GetIAccessible(out ppAccessible: IAccessible): HResult; stdcall; end; // *********************************************************************// // Interface: IAccessible // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {618736E0-3C3D-11CF-810C-00AA00389B71} // *********************************************************************// IAccessible = interface(IDispatch) ['{618736E0-3C3D-11CF-810C-00AA00389B71}'] function Get_accParent: IDispatch; safecall; function Get_accChildCount: Integer; safecall; function Get_accChild(varChild: OleVariant): IDispatch; safecall; function Get_accName(varChild: OleVariant): WideString; safecall; function Get_accValue(varChild: OleVariant): WideString; safecall; function Get_accDescription(varChild: OleVariant): WideString; safecall; function Get_accRole(varChild: OleVariant): OleVariant; safecall; function Get_accState(varChild: OleVariant): OleVariant; safecall; function Get_accHelp(varChild: OleVariant): WideString; safecall; function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall; function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall; function Get_accFocus: OleVariant; safecall; function Get_accSelection: OleVariant; safecall; function Get_accDefaultAction(varChild: OleVariant): WideString; safecall; procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall; procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; out pcyHeight: Integer; varChild: OleVariant); safecall; function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall; function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall; procedure accDoDefaultAction(varChild: OleVariant); safecall; procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall; procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall; property accParent: IDispatch read Get_accParent; property accChildCount: Integer read Get_accChildCount; property accChild[varChild: OleVariant]: IDispatch read Get_accChild; property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName; property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue; property accDescription[varChild: OleVariant]: WideString read Get_accDescription; property accRole[varChild: OleVariant]: OleVariant read Get_accRole; property accState[varChild: OleVariant]: OleVariant read Get_accState; property accHelp[varChild: OleVariant]: WideString read Get_accHelp; property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic; property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut; property accFocus: OleVariant read Get_accFocus; property accSelection: OleVariant read Get_accSelection; property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction; end; // *********************************************************************// // DispIntf: IAccessibleDisp // Flags: (4432) Hidden Dual OleAutomation Dispatchable // GUID: {618736E0-3C3D-11CF-810C-00AA00389B71} // *********************************************************************// IAccessibleDisp = dispinterface ['{618736E0-3C3D-11CF-810C-00AA00389B71}'] property accParent: IDispatch readonly dispid -5000; property accChildCount: Integer readonly dispid -5001; property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002; property accName[varChild: OleVariant]: WideString dispid -5003; property accValue[varChild: OleVariant]: WideString dispid -5004; property accDescription[varChild: OleVariant]: WideString readonly dispid -5005; property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006; property accState[varChild: OleVariant]: OleVariant readonly dispid -5007; property accHelp[varChild: OleVariant]: WideString readonly dispid -5008; property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009; property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010; property accFocus: OleVariant readonly dispid -5011; property accSelection: OleVariant readonly dispid -5012; property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013; procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014; procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer; out pcyHeight: Integer; varChild: OleVariant); dispid -5015; function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016; function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017; procedure accDoDefaultAction(varChild: OleVariant); dispid -5018; end; // *********************************************************************// // Interface: IUIAutomationItemContainerPattern // Flags: (0) // GUID: {C690FDB2-27A8-423C-812D-429773C9084E} // *********************************************************************// IUIAutomationItemContainerPattern = interface(IUnknown) ['{C690FDB2-27A8-423C-812D-429773C9084E}'] function FindItemByProperty(const pStartAfter: IUIAutomationElement; propertyId: SYSINT; value: OleVariant; out pFound: IUIAutomationElement): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationVirtualizedItemPattern // Flags: (0) // GUID: {6BA3D7A6-04CF-4F11-8793-A8D1CDE9969F} // *********************************************************************// IUIAutomationVirtualizedItemPattern = interface(IUnknown) ['{6BA3D7A6-04CF-4F11-8793-A8D1CDE9969F}'] function Realize: HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationAnnotationPattern // Flags: (0) // GUID: {9A175B21-339E-41B1-8E8B-623F6B681098} // *********************************************************************// IUIAutomationAnnotationPattern = interface(IUnknown) ['{9A175B21-339E-41B1-8E8B-623F6B681098}'] function Get_CurrentAnnotationTypeId(out retVal: SYSINT): HResult; stdcall; function Get_CurrentAnnotationTypeName(out retVal: WideString): HResult; stdcall; function Get_CurrentAuthor(out retVal: WideString): HResult; stdcall; function Get_CurrentDateTime(out retVal: WideString): HResult; stdcall; function Get_CurrentTarget(out retVal: IUIAutomationElement): HResult; stdcall; function Get_CachedAnnotationTypeId(out retVal: SYSINT): HResult; stdcall; function Get_CachedAnnotationTypeName(out retVal: WideString): HResult; stdcall; function Get_CachedAuthor(out retVal: WideString): HResult; stdcall; function Get_CachedDateTime(out retVal: WideString): HResult; stdcall; function Get_CachedTarget(out retVal: IUIAutomationElement): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationStylesPattern // Flags: (0) // GUID: {85B5F0A2-BD79-484A-AD2B-388C9838D5FB} // *********************************************************************// IUIAutomationStylesPattern = interface(IUnknown) ['{85B5F0A2-BD79-484A-AD2B-388C9838D5FB}'] function Get_CurrentStyleId(out retVal: SYSINT): HResult; stdcall; function Get_CurrentStyleName(out retVal: WideString): HResult; stdcall; function Get_CurrentFillColor(out retVal: SYSINT): HResult; stdcall; function Get_CurrentFillPatternStyle(out retVal: WideString): HResult; stdcall; function Get_CurrentShape(out retVal: WideString): HResult; stdcall; function Get_CurrentFillPatternColor(out retVal: SYSINT): HResult; stdcall; function Get_CurrentExtendedProperties(out retVal: WideString): HResult; stdcall; function GetCurrentExtendedPropertiesAsArray(out propertyArray: PUserType2; out propertyCount: SYSINT): HResult; stdcall; function Get_CachedStyleId(out retVal: SYSINT): HResult; stdcall; function Get_CachedStyleName(out retVal: WideString): HResult; stdcall; function Get_CachedFillColor(out retVal: SYSINT): HResult; stdcall; function Get_CachedFillPatternStyle(out retVal: WideString): HResult; stdcall; function Get_CachedShape(out retVal: WideString): HResult; stdcall; function Get_CachedFillPatternColor(out retVal: SYSINT): HResult; stdcall; function Get_CachedExtendedProperties(out retVal: WideString): HResult; stdcall; function GetCachedExtendedPropertiesAsArray(out propertyArray: PUserType2; out propertyCount: SYSINT): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationSpreadsheetPattern // Flags: (0) // GUID: {7517A7C8-FAAE-4DE9-9F08-29B91E8595C1} // *********************************************************************// IUIAutomationSpreadsheetPattern = interface(IUnknown) ['{7517A7C8-FAAE-4DE9-9F08-29B91E8595C1}'] function GetItemByName(const name: WideString; out element: IUIAutomationElement): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationSpreadsheetItemPattern // Flags: (0) // GUID: {7D4FB86C-8D34-40E1-8E83-62C15204E335} // *********************************************************************// IUIAutomationSpreadsheetItemPattern = interface(IUnknown) ['{7D4FB86C-8D34-40E1-8E83-62C15204E335}'] function Get_CurrentFormula(out retVal: WideString): HResult; stdcall; function GetCurrentAnnotationObjects(out retVal: IUIAutomationElementArray): HResult; stdcall; function GetCurrentAnnotationTypes(out retVal: PSafeArray): HResult; stdcall; function Get_CachedFormula(out retVal: WideString): HResult; stdcall; function GetCachedAnnotationObjects(out retVal: IUIAutomationElementArray): HResult; stdcall; function GetCachedAnnotationTypes(out retVal: PSafeArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTransformPattern2 // Flags: (0) // GUID: {6D74D017-6ECB-4381-B38B-3C17A48FF1C2} // *********************************************************************// IUIAutomationTransformPattern2 = interface(IUIAutomationTransformPattern) ['{6D74D017-6ECB-4381-B38B-3C17A48FF1C2}'] function Zoom(Zoom: Double): HResult; stdcall; function ZoomByUnit(ZoomUnit: ZoomUnit): HResult; stdcall; function Get_CurrentCanZoom(out retVal: Integer): HResult; stdcall; function Get_CachedCanZoom(out retVal: Integer): HResult; stdcall; function Get_CurrentZoomLevel(out retVal: Double): HResult; stdcall; function Get_CachedZoomLevel(out retVal: Double): HResult; stdcall; function Get_CurrentZoomMinimum(out retVal: Double): HResult; stdcall; function Get_CachedZoomMinimum(out retVal: Double): HResult; stdcall; function Get_CurrentZoomMaximum(out retVal: Double): HResult; stdcall; function Get_CachedZoomMaximum(out retVal: Double): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationTextChildPattern // Flags: (0) // GUID: {6552B038-AE05-40C8-ABFD-AA08352AAB86} // *********************************************************************// IUIAutomationTextChildPattern = interface(IUnknown) ['{6552B038-AE05-40C8-ABFD-AA08352AAB86}'] function Get_TextContainer(out container: IUIAutomationElement): HResult; stdcall; function Get_TextRange(out range: IUIAutomationTextRange): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationDragPattern // Flags: (0) // GUID: {1DC7B570-1F54-4BAD-BCDA-D36A722FB7BD} // *********************************************************************// IUIAutomationDragPattern = interface(IUnknown) ['{1DC7B570-1F54-4BAD-BCDA-D36A722FB7BD}'] function Get_CurrentIsGrabbed(out retVal: Integer): HResult; stdcall; function Get_CachedIsGrabbed(out retVal: Integer): HResult; stdcall; function Get_CurrentDropEffect(out retVal: WideString): HResult; stdcall; function Get_CachedDropEffect(out retVal: WideString): HResult; stdcall; function Get_CurrentDropEffects(out retVal: PSafeArray): HResult; stdcall; function Get_CachedDropEffects(out retVal: PSafeArray): HResult; stdcall; function GetCurrentGrabbedItems(out retVal: IUIAutomationElementArray): HResult; stdcall; function GetCachedGrabbedItems(out retVal: IUIAutomationElementArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationDropTargetPattern // Flags: (0) // GUID: {69A095F7-EEE4-430E-A46B-FB73B1AE39A5} // *********************************************************************// IUIAutomationDropTargetPattern = interface(IUnknown) ['{69A095F7-EEE4-430E-A46B-FB73B1AE39A5}'] function Get_CurrentDropTargetEffect(out retVal: WideString): HResult; stdcall; function Get_CachedDropTargetEffect(out retVal: WideString): HResult; stdcall; function Get_CurrentDropTargetEffects(out retVal: PSafeArray): HResult; stdcall; function Get_CachedDropTargetEffects(out retVal: PSafeArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationElement2 // Flags: (0) // GUID: {6749C683-F70D-4487-A698-5F79D55290D6} // *********************************************************************// IUIAutomationElement2 = interface(IUIAutomationElement) ['{6749C683-F70D-4487-A698-5F79D55290D6}'] function Get_CurrentOptimizeForVisualContent(out retVal: Integer): HResult; stdcall; function Get_CachedOptimizeForVisualContent(out retVal: Integer): HResult; stdcall; function Get_CurrentLiveSetting(out retVal: LiveSetting): HResult; stdcall; function Get_CachedLiveSetting(out retVal: LiveSetting): HResult; stdcall; function Get_CurrentFlowsFrom(out retVal: IUIAutomationElementArray): HResult; stdcall; function Get_CachedFlowsFrom(out retVal: IUIAutomationElementArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationElement3 // Flags: (0) // GUID: {8471DF34-AEE0-4A01-A7DE-7DB9AF12C296} // *********************************************************************// IUIAutomationElement3 = interface(IUIAutomationElement2) ['{8471DF34-AEE0-4A01-A7DE-7DB9AF12C296}'] function ShowContextMenu: HResult; stdcall; function Get_CurrentIsPeripheral(out retVal: Integer): HResult; stdcall; function Get_CachedIsPeripheral(out retVal: Integer): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationProxyFactory // Flags: (0) // GUID: {85B94ECD-849D-42B6-B94D-D6DB23FDF5A4} // *********************************************************************// IUIAutomationProxyFactory = interface(IUnknown) ['{85B94ECD-849D-42B6-B94D-D6DB23FDF5A4}'] function CreateProvider(hwnd: Pointer; idObject: Integer; idChild: Integer; out provider: IRawElementProviderSimple): HResult; stdcall; function Get_ProxyFactoryId(out factoryId: WideString): HResult; stdcall; end; // *********************************************************************// // Interface: IRawElementProviderSimple // Flags: (0) // GUID: {D6DD68D1-86FD-4332-8666-9ABEDEA2D24C} // *********************************************************************// IRawElementProviderSimple = interface(IUnknown) ['{D6DD68D1-86FD-4332-8666-9ABEDEA2D24C}'] function Get_ProviderOptions(out pRetVal: ProviderOptions): HResult; stdcall; function GetPatternProvider(patternId: SYSINT; out pRetVal: IUnknown): HResult; stdcall; function GetPropertyValue(propertyId: SYSINT; out pRetVal: OleVariant): HResult; stdcall; function Get_HostRawElementProvider(out pRetVal: IRawElementProviderSimple): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationProxyFactoryEntry // Flags: (0) // GUID: {D50E472E-B64B-490C-BCA1-D30696F9F289} // *********************************************************************// IUIAutomationProxyFactoryEntry = interface(IUnknown) ['{D50E472E-B64B-490C-BCA1-D30696F9F289}'] function Get_ProxyFactory(out factory: IUIAutomationProxyFactory): HResult; stdcall; function Get__className(out ClassName: WideString): HResult; stdcall; function Get_ImageName(out ImageName: WideString): HResult; stdcall; function Get_AllowSubstringMatch(out AllowSubstringMatch: Integer): HResult; stdcall; function Get_CanCheckBaseClass(out CanCheckBaseClass: Integer): HResult; stdcall; function Get_NeedsAdviseEvents(out adviseEvents: Integer): HResult; stdcall; function Set__className(ClassName: PWideChar): HResult; stdcall; function Set_ImageName(ImageName: PWideChar): HResult; stdcall; function Set_AllowSubstringMatch(AllowSubstringMatch: Integer): HResult; stdcall; function Set_CanCheckBaseClass(CanCheckBaseClass: Integer): HResult; stdcall; function Set_NeedsAdviseEvents(adviseEvents: Integer): HResult; stdcall; function SetWinEventsForAutomationEvent(eventId: SYSINT; propertyId: SYSINT; winEvents: PSafeArray): HResult; stdcall; function GetWinEventsForAutomationEvent(eventId: SYSINT; propertyId: SYSINT; out winEvents: PSafeArray): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomationProxyFactoryMapping // Flags: (0) // GUID: {09E31E18-872D-4873-93D1-1E541EC133FD} // *********************************************************************// IUIAutomationProxyFactoryMapping = interface(IUnknown) ['{09E31E18-872D-4873-93D1-1E541EC133FD}'] function Get_count(out count: SYSUINT): HResult; stdcall; function GetTable(out table: PSafeArray): HResult; stdcall; function GetEntry(index: SYSUINT; out entry: IUIAutomationProxyFactoryEntry): HResult; stdcall; function SetTable(factoryList: PSafeArray): HResult; stdcall; function InsertEntries(before: SYSUINT; factoryList: PSafeArray): HResult; stdcall; function InsertEntry(before: SYSUINT; const factory: IUIAutomationProxyFactoryEntry): HResult; stdcall; function RemoveEntry(index: SYSUINT): HResult; stdcall; function ClearTable: HResult; stdcall; function RestoreDefaultTable: HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomation // Flags: (0) // GUID: {30CBE57D-D9D0-452A-AB13-7AC5AC4825EE} // *********************************************************************// IUIAutomation = interface(IUnknown) ['{30CBE57D-D9D0-452A-AB13-7AC5AC4825EE}'] function CompareElements(const el1: IUIAutomationElement; const el2: IUIAutomationElement; out areSame: Integer): HResult; stdcall; function CompareRuntimeIds(runtimeId1: PSafeArray; runtimeId2: PSafeArray; out areSame: Integer): HResult; stdcall; function GetRootElement(out root: IUIAutomationElement): HResult; stdcall; function ElementFromHandle(hwnd: Pointer; out element: IUIAutomationElement): HResult; stdcall; function ElementFromPoint(pt: tagPOINT; out element: IUIAutomationElement): HResult; stdcall; function GetFocusedElement(out element: IUIAutomationElement): HResult; stdcall; function GetRootElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out root: IUIAutomationElement): HResult; stdcall; function ElementFromHandleBuildCache(hwnd: Pointer; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; stdcall; function ElementFromPointBuildCache(pt: tagPOINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; stdcall; function GetFocusedElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; stdcall; function CreateTreeWalker(const pCondition: IUIAutomationCondition; out walker: IUIAutomationTreeWalker): HResult; stdcall; function Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult; stdcall; function Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult; stdcall; function Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult; stdcall; function Get_RawViewCondition(out condition: IUIAutomationCondition): HResult; stdcall; function Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult; stdcall; function Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult; stdcall; function CreateCacheRequest(out cacheRequest: IUIAutomationCacheRequest): HResult; stdcall; function CreateTrueCondition(out newCondition: IUIAutomationCondition): HResult; stdcall; function CreateFalseCondition(out newCondition: IUIAutomationCondition): HResult; stdcall; function CreatePropertyCondition(propertyId: SYSINT; value: OleVariant; out newCondition: IUIAutomationCondition): HResult; stdcall; function CreatePropertyConditionEx(propertyId: SYSINT; value: OleVariant; flags: PropertyConditionFlags; out newCondition: IUIAutomationCondition): HResult; stdcall; function CreateAndCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; stdcall; function CreateAndConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; stdcall; function CreateAndConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; stdcall; function CreateOrCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; stdcall; function CreateOrConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; stdcall; function CreateOrConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; stdcall; function CreateNotCondition(const condition: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; stdcall; function AddAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationEventHandler): HResult; stdcall; function RemoveAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; const handler: IUIAutomationEventHandler): HResult; stdcall; function AddPropertyChangedEventHandlerNativeArray(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; var propertyArray: SYSINT; propertyCount: SYSINT): HResult; stdcall; function AddPropertyChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; propertyArray: PSafeArray): HResult; stdcall; function RemovePropertyChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationPropertyChangedEventHandler): HResult; stdcall; function AddStructureChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationStructureChangedEventHandler): HResult; stdcall; function RemoveStructureChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationStructureChangedEventHandler): HResult; stdcall; function AddFocusChangedEventHandler(const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationFocusChangedEventHandler): HResult; stdcall; function RemoveFocusChangedEventHandler(const handler: IUIAutomationFocusChangedEventHandler): HResult; stdcall; function RemoveAllEventHandlers: HResult; stdcall; function IntNativeArrayToSafeArray(var array_: SYSINT; arrayCount: SYSINT; out safeArray: PSafeArray): HResult; stdcall; function IntSafeArrayToNativeArray(intArray: PSafeArray; out array_: PSYSINT1; out arrayCount: SYSINT): HResult; stdcall; function RectToVariant(rc: tagRECT; out var_: OleVariant): HResult; stdcall; function VariantToRect(var_: OleVariant; out rc: tagRECT): HResult; stdcall; function SafeArrayToRectNativeArray(rects: PSafeArray; out rectArray: PUserType3; out rectArrayCount: SYSINT): HResult; stdcall; function CreateProxyFactoryEntry(const factory: IUIAutomationProxyFactory; out factoryEntry: IUIAutomationProxyFactoryEntry): HResult; stdcall; function Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult; stdcall; function GetPropertyProgrammaticName(property_: SYSINT; out name: WideString): HResult; stdcall; function GetPatternProgrammaticName(pattern: SYSINT; out name: WideString): HResult; stdcall; function PollForPotentialSupportedPatterns(const pElement: IUIAutomationElement; out patternIds: PSafeArray; out patternNames: PSafeArray): HResult; stdcall; function PollForPotentialSupportedProperties(const pElement: IUIAutomationElement; out propertyIds: PSafeArray; out propertyNames: PSafeArray): HResult; stdcall; function CheckNotSupported(value: OleVariant; out isNotSupported: Integer): HResult; stdcall; function Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult; stdcall; function Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult; stdcall; function ElementFromIAccessible(const accessible: IAccessible; childId: SYSINT; out element: IUIAutomationElement): HResult; stdcall; function ElementFromIAccessibleBuildCache(const accessible: IAccessible; childId: SYSINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomation2 // Flags: (0) // GUID: {34723AFF-0C9D-49D0-9896-7AB52DF8CD8A} // *********************************************************************// IUIAutomation2 = interface(IUIAutomation) ['{34723AFF-0C9D-49D0-9896-7AB52DF8CD8A}'] function Get_AutoSetFocus(out AutoSetFocus: Integer): HResult; stdcall; function Set_AutoSetFocus(AutoSetFocus: Integer): HResult; stdcall; function Get_ConnectionTimeout(out timeout: LongWord): HResult; stdcall; function Set_ConnectionTimeout(timeout: LongWord): HResult; stdcall; function Get_TransactionTimeout(out timeout: LongWord): HResult; stdcall; function Set_TransactionTimeout(timeout: LongWord): HResult; stdcall; end; // *********************************************************************// // Interface: IUIAutomation3 // Flags: (0) // GUID: {73D768DA-9B51-4B89-936E-C209290973E7} // *********************************************************************// IUIAutomation3 = interface(IUIAutomation2) ['{73D768DA-9B51-4B89-936E-C209290973E7}'] function AddTextEditTextChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; TextEditChangeType: TextEditChangeType; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationTextEditTextChangedEventHandler): HResult; stdcall; function RemoveTextEditTextChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationTextEditTextChangedEventHandler): HResult; stdcall; end; // *********************************************************************// // The Class CoCUIAutomation provides a Create and CreateRemote method to // create instances of the default interface IUIAutomation exposed by // the CoClass CUIAutomation. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCUIAutomation = class class function Create: IUIAutomation; class function CreateRemote(const MachineName: string): IUIAutomation; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCUIAutomation // Help String : The Central Class for UIAutomation // Default Interface: IUIAutomation // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TCUIAutomation = class(TOleServer) private FIntf: IUIAutomation; function GetDefaultInterface: IUIAutomation; protected procedure InitServerData; override; function Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult; function Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult; function Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult; function Get_RawViewCondition(out condition: IUIAutomationCondition): HResult; function Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult; function Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult; function Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult; function Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult; function Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUIAutomation); procedure Disconnect; override; function CompareElements(const el1: IUIAutomationElement; const el2: IUIAutomationElement; out areSame: Integer): HResult; function CompareRuntimeIds(runtimeId1: PSafeArray; runtimeId2: PSafeArray; out areSame: Integer): HResult; function GetRootElement(out root: IUIAutomationElement): HResult; function ElementFromHandle(hwnd: Pointer; out element: IUIAutomationElement): HResult; function ElementFromPoint(pt: tagPOINT; out element: IUIAutomationElement): HResult; function GetFocusedElement(out element: IUIAutomationElement): HResult; function GetRootElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out root: IUIAutomationElement): HResult; function ElementFromHandleBuildCache(hwnd: Pointer; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; function ElementFromPointBuildCache(pt: tagPOINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; function GetFocusedElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; function CreateTreeWalker(const pCondition: IUIAutomationCondition; out walker: IUIAutomationTreeWalker): HResult; function CreateCacheRequest(out cacheRequest: IUIAutomationCacheRequest): HResult; function CreateTrueCondition(out newCondition: IUIAutomationCondition): HResult; function CreateFalseCondition(out newCondition: IUIAutomationCondition): HResult; function CreatePropertyCondition(propertyId: SYSINT; value: OleVariant; out newCondition: IUIAutomationCondition): HResult; function CreatePropertyConditionEx(propertyId: SYSINT; value: OleVariant; flags: PropertyConditionFlags; out newCondition: IUIAutomationCondition): HResult; function CreateAndCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; function CreateAndConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; function CreateAndConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; function CreateOrCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; function CreateOrConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; function CreateOrConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; function CreateNotCondition(const condition: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; function AddAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationEventHandler): HResult; function RemoveAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; const handler: IUIAutomationEventHandler): HResult; function AddPropertyChangedEventHandlerNativeArray(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; var propertyArray: SYSINT; propertyCount: SYSINT): HResult; function AddPropertyChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; propertyArray: PSafeArray): HResult; function RemovePropertyChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationPropertyChangedEventHandler): HResult; function AddStructureChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationStructureChangedEventHandler): HResult; function RemoveStructureChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationStructureChangedEventHandler): HResult; function AddFocusChangedEventHandler(const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationFocusChangedEventHandler): HResult; function RemoveFocusChangedEventHandler(const handler: IUIAutomationFocusChangedEventHandler): HResult; function RemoveAllEventHandlers: HResult; function IntNativeArrayToSafeArray(var array_: SYSINT; arrayCount: SYSINT; out safeArray: PSafeArray): HResult; function IntSafeArrayToNativeArray(intArray: PSafeArray; out array_: PSYSINT1; out arrayCount: SYSINT): HResult; function RectToVariant(rc: tagRECT; out var_: OleVariant): HResult; function VariantToRect(var_: OleVariant; out rc: tagRECT): HResult; function SafeArrayToRectNativeArray(rects: PSafeArray; out rectArray: PUserType3; out rectArrayCount: SYSINT): HResult; function CreateProxyFactoryEntry(const factory: IUIAutomationProxyFactory; out factoryEntry: IUIAutomationProxyFactoryEntry): HResult; function GetPropertyProgrammaticName(property_: SYSINT; out name: WideString): HResult; function GetPatternProgrammaticName(pattern: SYSINT; out name: WideString): HResult; function PollForPotentialSupportedPatterns(const pElement: IUIAutomationElement; out patternIds: PSafeArray; out patternNames: PSafeArray): HResult; function PollForPotentialSupportedProperties(const pElement: IUIAutomationElement; out propertyIds: PSafeArray; out propertyNames: PSafeArray): HResult; function CheckNotSupported(value: OleVariant; out isNotSupported: Integer): HResult; function ElementFromIAccessible(const accessible: IAccessible; childId: SYSINT; out element: IUIAutomationElement): HResult; function ElementFromIAccessibleBuildCache(const accessible: IAccessible; childId: SYSINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; property DefaultInterface: IUIAutomation read GetDefaultInterface; published end; // *********************************************************************// // The Class CoCUIAutomation8 provides a Create and CreateRemote method to // create instances of the default interface IUIAutomation2 exposed by // the CoClass CUIAutomation8. The functions are intended to be used by // clients wishing to automate the CoClass objects exposed by the // server of this typelibrary. // *********************************************************************// CoCUIAutomation8 = class class function Create: IUIAutomation2; class function CreateRemote(const MachineName: string): IUIAutomation2; end; // *********************************************************************// // OLE Server Proxy class declaration // Server Object : TCUIAutomation8 // Help String : The Central Class for UIAutomation8 // Default Interface: IUIAutomation2 // Def. Intf. DISP? : No // Event Interface: // TypeFlags : (2) CanCreate // *********************************************************************// TCUIAutomation8 = class(TOleServer) private FIntf: IUIAutomation2; function GetDefaultInterface: IUIAutomation2; protected procedure InitServerData; override; function Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult; function Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult; function Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult; function Get_RawViewCondition(out condition: IUIAutomationCondition): HResult; function Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult; function Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult; function Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult; function Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult; function Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult; function Get_AutoSetFocus(out AutoSetFocus: Integer): HResult; function Set_AutoSetFocus(AutoSetFocus: Integer): HResult; function Get_ConnectionTimeout(out timeout: LongWord): HResult; function Set_ConnectionTimeout(timeout: LongWord): HResult; function Get_TransactionTimeout(out timeout: LongWord): HResult; function Set_TransactionTimeout(timeout: LongWord): HResult; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure Connect; override; procedure ConnectTo(svrIntf: IUIAutomation2); procedure Disconnect; override; function CompareElements(const el1: IUIAutomationElement; const el2: IUIAutomationElement; out areSame: Integer): HResult; function CompareRuntimeIds(runtimeId1: PSafeArray; runtimeId2: PSafeArray; out areSame: Integer): HResult; function GetRootElement(out root: IUIAutomationElement): HResult; function ElementFromHandle(hwnd: Pointer; out element: IUIAutomationElement): HResult; function ElementFromPoint(pt: tagPOINT; out element: IUIAutomationElement): HResult; function GetFocusedElement(out element: IUIAutomationElement): HResult; function GetRootElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out root: IUIAutomationElement): HResult; function ElementFromHandleBuildCache(hwnd: Pointer; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; function ElementFromPointBuildCache(pt: tagPOINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; function GetFocusedElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; function CreateTreeWalker(const pCondition: IUIAutomationCondition; out walker: IUIAutomationTreeWalker): HResult; function CreateCacheRequest(out cacheRequest: IUIAutomationCacheRequest): HResult; function CreateTrueCondition(out newCondition: IUIAutomationCondition): HResult; function CreateFalseCondition(out newCondition: IUIAutomationCondition): HResult; function CreatePropertyCondition(propertyId: SYSINT; value: OleVariant; out newCondition: IUIAutomationCondition): HResult; function CreatePropertyConditionEx(propertyId: SYSINT; value: OleVariant; flags: PropertyConditionFlags; out newCondition: IUIAutomationCondition): HResult; function CreateAndCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; function CreateAndConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; function CreateAndConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; function CreateOrCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; function CreateOrConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; function CreateOrConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; function CreateNotCondition(const condition: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; function AddAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationEventHandler): HResult; function RemoveAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; const handler: IUIAutomationEventHandler): HResult; function AddPropertyChangedEventHandlerNativeArray(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; var propertyArray: SYSINT; propertyCount: SYSINT): HResult; function AddPropertyChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; propertyArray: PSafeArray): HResult; function RemovePropertyChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationPropertyChangedEventHandler): HResult; function AddStructureChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationStructureChangedEventHandler): HResult; function RemoveStructureChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationStructureChangedEventHandler): HResult; function AddFocusChangedEventHandler(const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationFocusChangedEventHandler): HResult; function RemoveFocusChangedEventHandler(const handler: IUIAutomationFocusChangedEventHandler): HResult; function RemoveAllEventHandlers: HResult; function IntNativeArrayToSafeArray(var array_: SYSINT; arrayCount: SYSINT; out safeArray: PSafeArray): HResult; function IntSafeArrayToNativeArray(intArray: PSafeArray; out array_: PSYSINT1; out arrayCount: SYSINT): HResult; function RectToVariant(rc: tagRECT; out var_: OleVariant): HResult; function VariantToRect(var_: OleVariant; out rc: tagRECT): HResult; function SafeArrayToRectNativeArray(rects: PSafeArray; out rectArray: PUserType3; out rectArrayCount: SYSINT): HResult; function CreateProxyFactoryEntry(const factory: IUIAutomationProxyFactory; out factoryEntry: IUIAutomationProxyFactoryEntry): HResult; function GetPropertyProgrammaticName(property_: SYSINT; out name: WideString): HResult; function GetPatternProgrammaticName(pattern: SYSINT; out name: WideString): HResult; function PollForPotentialSupportedPatterns(const pElement: IUIAutomationElement; out patternIds: PSafeArray; out patternNames: PSafeArray): HResult; function PollForPotentialSupportedProperties(const pElement: IUIAutomationElement; out propertyIds: PSafeArray; out propertyNames: PSafeArray): HResult; function CheckNotSupported(value: OleVariant; out isNotSupported: Integer): HResult; function ElementFromIAccessible(const accessible: IAccessible; childId: SYSINT; out element: IUIAutomationElement): HResult; function ElementFromIAccessibleBuildCache(const accessible: IAccessible; childId: SYSINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; property DefaultInterface: IUIAutomation2 read GetDefaultInterface; published end; procedure Register; resourcestring dtlServerPage = 'ActiveX'; dtlOcxPage = 'ActiveX'; implementation uses System.Win.ComObj; class function CoCUIAutomation.Create: IUIAutomation; begin Result := CreateComObject(CLASS_CUIAutomation) as IUIAutomation; end; class function CoCUIAutomation.CreateRemote(const MachineName: string): IUIAutomation; begin Result := CreateRemoteComObject(MachineName, CLASS_CUIAutomation) as IUIAutomation; end; procedure TCUIAutomation.InitServerData; const CServerData: TServerData = ( ClassID: '{FF48DBA4-60EF-4201-AA87-54103EEF594E}'; IntfIID: '{30CBE57D-D9D0-452A-AB13-7AC5AC4825EE}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCUIAutomation.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IUIAutomation; end; end; procedure TCUIAutomation.ConnectTo(svrIntf: IUIAutomation); begin Disconnect; FIntf := svrIntf; end; procedure TCUIAutomation.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCUIAutomation.GetDefaultInterface: IUIAutomation; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TCUIAutomation.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TCUIAutomation.Destroy; begin inherited Destroy; end; function TCUIAutomation.Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult; begin Result := DefaultInterface.Get_ControlViewWalker(walker); end; function TCUIAutomation.Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult; begin Result := DefaultInterface.Get_ContentViewWalker(walker); end; function TCUIAutomation.Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult; begin Result := DefaultInterface.Get_RawViewWalker(walker); end; function TCUIAutomation.Get_RawViewCondition(out condition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.Get_RawViewCondition(condition); end; function TCUIAutomation.Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.Get_ControlViewCondition(condition); end; function TCUIAutomation.Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.Get_ContentViewCondition(condition); end; function TCUIAutomation.Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult; begin Result := DefaultInterface.Get_ProxyFactoryMapping(factoryMapping); end; function TCUIAutomation.Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult; begin Result := DefaultInterface.Get_ReservedNotSupportedValue(notSupportedValue); end; function TCUIAutomation.Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult; begin Result := DefaultInterface.Get_ReservedMixedAttributeValue(mixedAttributeValue); end; function TCUIAutomation.CompareElements(const el1: IUIAutomationElement; const el2: IUIAutomationElement; out areSame: Integer): HResult; begin Result := DefaultInterface.CompareElements(el1, el2, areSame); end; function TCUIAutomation.CompareRuntimeIds(runtimeId1: PSafeArray; runtimeId2: PSafeArray; out areSame: Integer): HResult; begin Result := DefaultInterface.CompareRuntimeIds(runtimeId1, runtimeId2, areSame); end; function TCUIAutomation.GetRootElement(out root: IUIAutomationElement): HResult; begin Result := DefaultInterface.GetRootElement(root); end; function TCUIAutomation.ElementFromHandle(hwnd: Pointer; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromHandle(hwnd, element); end; function TCUIAutomation.ElementFromPoint(pt: tagPOINT; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromPoint(pt, element); end; function TCUIAutomation.GetFocusedElement(out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.GetFocusedElement(element); end; function TCUIAutomation.GetRootElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out root: IUIAutomationElement): HResult; begin Result := DefaultInterface.GetRootElementBuildCache(cacheRequest, root); end; function TCUIAutomation.ElementFromHandleBuildCache(hwnd: Pointer; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromHandleBuildCache(hwnd, cacheRequest, element); end; function TCUIAutomation.ElementFromPointBuildCache(pt: tagPOINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromPointBuildCache(pt, cacheRequest, element); end; function TCUIAutomation.GetFocusedElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.GetFocusedElementBuildCache(cacheRequest, element); end; function TCUIAutomation.CreateTreeWalker(const pCondition: IUIAutomationCondition; out walker: IUIAutomationTreeWalker): HResult; begin Result := DefaultInterface.CreateTreeWalker(pCondition, walker); end; function TCUIAutomation.CreateCacheRequest(out cacheRequest: IUIAutomationCacheRequest): HResult; begin Result := DefaultInterface.CreateCacheRequest(cacheRequest); end; function TCUIAutomation.CreateTrueCondition(out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateTrueCondition(newCondition); end; function TCUIAutomation.CreateFalseCondition(out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateFalseCondition(newCondition); end; function TCUIAutomation.CreatePropertyCondition(propertyId: SYSINT; value: OleVariant; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreatePropertyCondition(propertyId, value, newCondition); end; function TCUIAutomation.CreatePropertyConditionEx(propertyId: SYSINT; value: OleVariant; flags: PropertyConditionFlags; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreatePropertyConditionEx(propertyId, value, flags, newCondition); end; function TCUIAutomation.CreateAndCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateAndCondition(condition1, condition2, newCondition); end; function TCUIAutomation.CreateAndConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateAndConditionFromArray(conditions, newCondition); end; function TCUIAutomation.CreateAndConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateAndConditionFromNativeArray(conditions, conditionCount, newCondition); end; function TCUIAutomation.CreateOrCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateOrCondition(condition1, condition2, newCondition); end; function TCUIAutomation.CreateOrConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateOrConditionFromArray(conditions, newCondition); end; function TCUIAutomation.CreateOrConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateOrConditionFromNativeArray(conditions, conditionCount, newCondition); end; function TCUIAutomation.CreateNotCondition(const condition: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateNotCondition(condition, newCondition); end; function TCUIAutomation.AddAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationEventHandler): HResult; begin Result := DefaultInterface.AddAutomationEventHandler(eventId, element, scope, cacheRequest, handler); end; function TCUIAutomation.RemoveAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; const handler: IUIAutomationEventHandler): HResult; begin Result := DefaultInterface.RemoveAutomationEventHandler(eventId, element, handler); end; function TCUIAutomation.AddPropertyChangedEventHandlerNativeArray(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; var propertyArray: SYSINT; propertyCount: SYSINT): HResult; begin Result := DefaultInterface.AddPropertyChangedEventHandlerNativeArray(element, scope, cacheRequest, handler, propertyArray, propertyCount); end; function TCUIAutomation.AddPropertyChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; propertyArray: PSafeArray): HResult; begin Result := DefaultInterface.AddPropertyChangedEventHandler(element, scope, cacheRequest, handler, propertyArray); end; function TCUIAutomation.RemovePropertyChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationPropertyChangedEventHandler): HResult; begin Result := DefaultInterface.RemovePropertyChangedEventHandler(element, handler); end; function TCUIAutomation.AddStructureChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationStructureChangedEventHandler): HResult; begin Result := DefaultInterface.AddStructureChangedEventHandler(element, scope, cacheRequest, handler); end; function TCUIAutomation.RemoveStructureChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationStructureChangedEventHandler): HResult; begin Result := DefaultInterface.RemoveStructureChangedEventHandler(element, handler); end; function TCUIAutomation.AddFocusChangedEventHandler(const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationFocusChangedEventHandler): HResult; begin Result := DefaultInterface.AddFocusChangedEventHandler(cacheRequest, handler); end; function TCUIAutomation.RemoveFocusChangedEventHandler(const handler: IUIAutomationFocusChangedEventHandler): HResult; begin Result := DefaultInterface.RemoveFocusChangedEventHandler(handler); end; function TCUIAutomation.RemoveAllEventHandlers: HResult; begin Result := DefaultInterface.RemoveAllEventHandlers; end; function TCUIAutomation.IntNativeArrayToSafeArray(var array_: SYSINT; arrayCount: SYSINT; out safeArray: PSafeArray): HResult; begin Result := DefaultInterface.IntNativeArrayToSafeArray(array_, arrayCount, safeArray); end; function TCUIAutomation.IntSafeArrayToNativeArray(intArray: PSafeArray; out array_: PSYSINT1; out arrayCount: SYSINT): HResult; begin Result := DefaultInterface.IntSafeArrayToNativeArray(intArray, array_, arrayCount); end; function TCUIAutomation.RectToVariant(rc: tagRECT; out var_: OleVariant): HResult; begin Result := DefaultInterface.RectToVariant(rc, var_); end; function TCUIAutomation.VariantToRect(var_: OleVariant; out rc: tagRECT): HResult; begin Result := DefaultInterface.VariantToRect(var_, rc); end; function TCUIAutomation.SafeArrayToRectNativeArray(rects: PSafeArray; out rectArray: PUserType3; out rectArrayCount: SYSINT): HResult; begin Result := DefaultInterface.SafeArrayToRectNativeArray(rects, rectArray, rectArrayCount); end; function TCUIAutomation.CreateProxyFactoryEntry(const factory: IUIAutomationProxyFactory; out factoryEntry: IUIAutomationProxyFactoryEntry): HResult; begin Result := DefaultInterface.CreateProxyFactoryEntry(factory, factoryEntry); end; function TCUIAutomation.GetPropertyProgrammaticName(property_: SYSINT; out name: WideString): HResult; begin Result := DefaultInterface.GetPropertyProgrammaticName(property_, name); end; function TCUIAutomation.GetPatternProgrammaticName(pattern: SYSINT; out name: WideString): HResult; begin Result := DefaultInterface.GetPatternProgrammaticName(pattern, name); end; function TCUIAutomation.PollForPotentialSupportedPatterns(const pElement: IUIAutomationElement; out patternIds: PSafeArray; out patternNames: PSafeArray): HResult; begin Result := DefaultInterface.PollForPotentialSupportedPatterns(pElement, patternIds, patternNames); end; function TCUIAutomation.PollForPotentialSupportedProperties(const pElement: IUIAutomationElement; out propertyIds: PSafeArray; out propertyNames: PSafeArray): HResult; begin Result := DefaultInterface.PollForPotentialSupportedProperties(pElement, propertyIds, propertyNames); end; function TCUIAutomation.CheckNotSupported(value: OleVariant; out isNotSupported: Integer): HResult; begin Result := DefaultInterface.CheckNotSupported(value, isNotSupported); end; function TCUIAutomation.ElementFromIAccessible(const accessible: IAccessible; childId: SYSINT; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromIAccessible(accessible, childId, element); end; function TCUIAutomation.ElementFromIAccessibleBuildCache(const accessible: IAccessible; childId: SYSINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromIAccessibleBuildCache(accessible, childId, cacheRequest, element); end; class function CoCUIAutomation8.Create: IUIAutomation2; begin Result := CreateComObject(CLASS_CUIAutomation8) as IUIAutomation2; end; class function CoCUIAutomation8.CreateRemote(const MachineName: string): IUIAutomation2; begin Result := CreateRemoteComObject(MachineName, CLASS_CUIAutomation8) as IUIAutomation2; end; procedure TCUIAutomation8.InitServerData; const CServerData: TServerData = ( ClassID: '{E22AD333-B25F-460C-83D0-0581107395C9}'; IntfIID: '{34723AFF-0C9D-49D0-9896-7AB52DF8CD8A}'; EventIID: ''; LicenseKey: nil; Version: 500); begin ServerData := @CServerData; end; procedure TCUIAutomation8.Connect; var punk: IUnknown; begin if FIntf = nil then begin punk := GetServer; Fintf:= punk as IUIAutomation2; end; end; procedure TCUIAutomation8.ConnectTo(svrIntf: IUIAutomation2); begin Disconnect; FIntf := svrIntf; end; procedure TCUIAutomation8.DisConnect; begin if Fintf <> nil then begin FIntf := nil; end; end; function TCUIAutomation8.GetDefaultInterface: IUIAutomation2; begin if FIntf = nil then Connect; Assert(FIntf <> nil, 'DefaultInterface is NULL. Component is not connected to Server. You must call "Connect" or "ConnectTo" before this operation'); Result := FIntf; end; constructor TCUIAutomation8.Create(AOwner: TComponent); begin inherited Create(AOwner); end; destructor TCUIAutomation8.Destroy; begin inherited Destroy; end; function TCUIAutomation8.Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult; begin Result := DefaultInterface.Get_ControlViewWalker(walker); end; function TCUIAutomation8.Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult; begin Result := DefaultInterface.Get_ContentViewWalker(walker); end; function TCUIAutomation8.Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult; begin Result := DefaultInterface.Get_RawViewWalker(walker); end; function TCUIAutomation8.Get_RawViewCondition(out condition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.Get_RawViewCondition(condition); end; function TCUIAutomation8.Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.Get_ControlViewCondition(condition); end; function TCUIAutomation8.Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.Get_ContentViewCondition(condition); end; function TCUIAutomation8.Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult; begin Result := DefaultInterface.Get_ProxyFactoryMapping(factoryMapping); end; function TCUIAutomation8.Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult; begin Result := DefaultInterface.Get_ReservedNotSupportedValue(notSupportedValue); end; function TCUIAutomation8.Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult; begin Result := DefaultInterface.Get_ReservedMixedAttributeValue(mixedAttributeValue); end; function TCUIAutomation8.Get_AutoSetFocus(out AutoSetFocus: Integer): HResult; begin Result := DefaultInterface.Get_AutoSetFocus(AutoSetFocus); end; function TCUIAutomation8.Set_AutoSetFocus(AutoSetFocus: Integer): HResult; begin Result := DefaultInterface.Set_AutoSetFocus(AutoSetFocus); end; function TCUIAutomation8.Get_ConnectionTimeout(out timeout: LongWord): HResult; begin Result := DefaultInterface.Get_ConnectionTimeout(timeout); end; function TCUIAutomation8.Set_ConnectionTimeout(timeout: LongWord): HResult; begin Result := DefaultInterface.Set_ConnectionTimeout(timeout); end; function TCUIAutomation8.Get_TransactionTimeout(out timeout: LongWord): HResult; begin Result := DefaultInterface.Get_TransactionTimeout(timeout); end; function TCUIAutomation8.Set_TransactionTimeout(timeout: LongWord): HResult; begin Result := DefaultInterface.Set_TransactionTimeout(timeout); end; function TCUIAutomation8.CompareElements(const el1: IUIAutomationElement; const el2: IUIAutomationElement; out areSame: Integer): HResult; begin Result := DefaultInterface.CompareElements(el1, el2, areSame); end; function TCUIAutomation8.CompareRuntimeIds(runtimeId1: PSafeArray; runtimeId2: PSafeArray; out areSame: Integer): HResult; begin Result := DefaultInterface.CompareRuntimeIds(runtimeId1, runtimeId2, areSame); end; function TCUIAutomation8.GetRootElement(out root: IUIAutomationElement): HResult; begin Result := DefaultInterface.GetRootElement(root); end; function TCUIAutomation8.ElementFromHandle(hwnd: Pointer; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromHandle(hwnd, element); end; function TCUIAutomation8.ElementFromPoint(pt: tagPOINT; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromPoint(pt, element); end; function TCUIAutomation8.GetFocusedElement(out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.GetFocusedElement(element); end; function TCUIAutomation8.GetRootElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out root: IUIAutomationElement): HResult; begin Result := DefaultInterface.GetRootElementBuildCache(cacheRequest, root); end; function TCUIAutomation8.ElementFromHandleBuildCache(hwnd: Pointer; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromHandleBuildCache(hwnd, cacheRequest, element); end; function TCUIAutomation8.ElementFromPointBuildCache(pt: tagPOINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromPointBuildCache(pt, cacheRequest, element); end; function TCUIAutomation8.GetFocusedElementBuildCache(const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.GetFocusedElementBuildCache(cacheRequest, element); end; function TCUIAutomation8.CreateTreeWalker(const pCondition: IUIAutomationCondition; out walker: IUIAutomationTreeWalker): HResult; begin Result := DefaultInterface.CreateTreeWalker(pCondition, walker); end; function TCUIAutomation8.CreateCacheRequest(out cacheRequest: IUIAutomationCacheRequest): HResult; begin Result := DefaultInterface.CreateCacheRequest(cacheRequest); end; function TCUIAutomation8.CreateTrueCondition(out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateTrueCondition(newCondition); end; function TCUIAutomation8.CreateFalseCondition(out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateFalseCondition(newCondition); end; function TCUIAutomation8.CreatePropertyCondition(propertyId: SYSINT; value: OleVariant; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreatePropertyCondition(propertyId, value, newCondition); end; function TCUIAutomation8.CreatePropertyConditionEx(propertyId: SYSINT; value: OleVariant; flags: PropertyConditionFlags; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreatePropertyConditionEx(propertyId, value, flags, newCondition); end; function TCUIAutomation8.CreateAndCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateAndCondition(condition1, condition2, newCondition); end; function TCUIAutomation8.CreateAndConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateAndConditionFromArray(conditions, newCondition); end; function TCUIAutomation8.CreateAndConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateAndConditionFromNativeArray(conditions, conditionCount, newCondition); end; function TCUIAutomation8.CreateOrCondition(const condition1: IUIAutomationCondition; const condition2: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateOrCondition(condition1, condition2, newCondition); end; function TCUIAutomation8.CreateOrConditionFromArray(conditions: PSafeArray; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateOrConditionFromArray(conditions, newCondition); end; function TCUIAutomation8.CreateOrConditionFromNativeArray(var conditions: IUIAutomationCondition; conditionCount: SYSINT; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateOrConditionFromNativeArray(conditions, conditionCount, newCondition); end; function TCUIAutomation8.CreateNotCondition(const condition: IUIAutomationCondition; out newCondition: IUIAutomationCondition): HResult; begin Result := DefaultInterface.CreateNotCondition(condition, newCondition); end; function TCUIAutomation8.AddAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationEventHandler): HResult; begin Result := DefaultInterface.AddAutomationEventHandler(eventId, element, scope, cacheRequest, handler); end; function TCUIAutomation8.RemoveAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement; const handler: IUIAutomationEventHandler): HResult; begin Result := DefaultInterface.RemoveAutomationEventHandler(eventId, element, handler); end; function TCUIAutomation8.AddPropertyChangedEventHandlerNativeArray(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; var propertyArray: SYSINT; propertyCount: SYSINT): HResult; begin Result := DefaultInterface.AddPropertyChangedEventHandlerNativeArray(element, scope, cacheRequest, handler, propertyArray, propertyCount); end; function TCUIAutomation8.AddPropertyChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationPropertyChangedEventHandler; propertyArray: PSafeArray): HResult; begin Result := DefaultInterface.AddPropertyChangedEventHandler(element, scope, cacheRequest, handler, propertyArray); end; function TCUIAutomation8.RemovePropertyChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationPropertyChangedEventHandler): HResult; begin Result := DefaultInterface.RemovePropertyChangedEventHandler(element, handler); end; function TCUIAutomation8.AddStructureChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope; const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationStructureChangedEventHandler): HResult; begin Result := DefaultInterface.AddStructureChangedEventHandler(element, scope, cacheRequest, handler); end; function TCUIAutomation8.RemoveStructureChangedEventHandler(const element: IUIAutomationElement; const handler: IUIAutomationStructureChangedEventHandler): HResult; begin Result := DefaultInterface.RemoveStructureChangedEventHandler(element, handler); end; function TCUIAutomation8.AddFocusChangedEventHandler(const cacheRequest: IUIAutomationCacheRequest; const handler: IUIAutomationFocusChangedEventHandler): HResult; begin Result := DefaultInterface.AddFocusChangedEventHandler(cacheRequest, handler); end; function TCUIAutomation8.RemoveFocusChangedEventHandler(const handler: IUIAutomationFocusChangedEventHandler): HResult; begin Result := DefaultInterface.RemoveFocusChangedEventHandler(handler); end; function TCUIAutomation8.RemoveAllEventHandlers: HResult; begin Result := DefaultInterface.RemoveAllEventHandlers; end; function TCUIAutomation8.IntNativeArrayToSafeArray(var array_: SYSINT; arrayCount: SYSINT; out safeArray: PSafeArray): HResult; begin Result := DefaultInterface.IntNativeArrayToSafeArray(array_, arrayCount, safeArray); end; function TCUIAutomation8.IntSafeArrayToNativeArray(intArray: PSafeArray; out array_: PSYSINT1; out arrayCount: SYSINT): HResult; begin Result := DefaultInterface.IntSafeArrayToNativeArray(intArray, array_, arrayCount); end; function TCUIAutomation8.RectToVariant(rc: tagRECT; out var_: OleVariant): HResult; begin Result := DefaultInterface.RectToVariant(rc, var_); end; function TCUIAutomation8.VariantToRect(var_: OleVariant; out rc: tagRECT): HResult; begin Result := DefaultInterface.VariantToRect(var_, rc); end; function TCUIAutomation8.SafeArrayToRectNativeArray(rects: PSafeArray; out rectArray: PUserType3; out rectArrayCount: SYSINT): HResult; begin Result := DefaultInterface.SafeArrayToRectNativeArray(rects, rectArray, rectArrayCount); end; function TCUIAutomation8.CreateProxyFactoryEntry(const factory: IUIAutomationProxyFactory; out factoryEntry: IUIAutomationProxyFactoryEntry): HResult; begin Result := DefaultInterface.CreateProxyFactoryEntry(factory, factoryEntry); end; function TCUIAutomation8.GetPropertyProgrammaticName(property_: SYSINT; out name: WideString): HResult; begin Result := DefaultInterface.GetPropertyProgrammaticName(property_, name); end; function TCUIAutomation8.GetPatternProgrammaticName(pattern: SYSINT; out name: WideString): HResult; begin Result := DefaultInterface.GetPatternProgrammaticName(pattern, name); end; function TCUIAutomation8.PollForPotentialSupportedPatterns(const pElement: IUIAutomationElement; out patternIds: PSafeArray; out patternNames: PSafeArray): HResult; begin Result := DefaultInterface.PollForPotentialSupportedPatterns(pElement, patternIds, patternNames); end; function TCUIAutomation8.PollForPotentialSupportedProperties(const pElement: IUIAutomationElement; out propertyIds: PSafeArray; out propertyNames: PSafeArray): HResult; begin Result := DefaultInterface.PollForPotentialSupportedProperties(pElement, propertyIds, propertyNames); end; function TCUIAutomation8.CheckNotSupported(value: OleVariant; out isNotSupported: Integer): HResult; begin Result := DefaultInterface.CheckNotSupported(value, isNotSupported); end; function TCUIAutomation8.ElementFromIAccessible(const accessible: IAccessible; childId: SYSINT; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromIAccessible(accessible, childId, element); end; function TCUIAutomation8.ElementFromIAccessibleBuildCache(const accessible: IAccessible; childId: SYSINT; const cacheRequest: IUIAutomationCacheRequest; out element: IUIAutomationElement): HResult; begin Result := DefaultInterface.ElementFromIAccessibleBuildCache(accessible, childId, cacheRequest, element); end; procedure Register; begin RegisterComponents(dtlServerPage, [TCUIAutomation, TCUIAutomation8]); end; end.