API tools faq
paste
Advertisement
Guest User

UIAutomationClient_TLB

a guest
Feb 7th, 2018
1,520
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Delphi 126.30 KB | None | 0 0
raw download clone embed print report
  1. unit UIAutomationClient_TLB;
  2.  
  3. //=============================================================================
  4. //  2012年06月01日 作成  by Mr.XRAY
  5. //  Microsoft Windows SDK v7.1 のUIAutomationClient.idlから作成した
  6. //  作成環境は，Windows XP(SP3) + Delphi XE + Windows SDK v7.1
  7. //
  8. //  以下の修正を行っている
  9. //
  10. //  (1) 各関数の引数の var hwnd: Pointer をhwnd: HWNDに変更
  11. //      MSDNの記事では，この値は，UIA_HWNDとなっているが，Windows SDKでは
  12. //        typedef void *UIA_HWND;
  13. //      となっている．そこで，DelphiのHWNDで置き換えた
  14. //      UIA_HWNDという型で使用したい場合は
  15. //        type UIA_HWND = LongInt;
  16. //      と定義して，引数の型をUIA_HWNDにすればいいだろう．ただし，この変更を行
  17. //      った場合は，関数の引数に渡す場合にUIA_HWNDでキャストしなければならない
  18. //  (2) UIA_XXXXXXX等の定数値を追加
  19. //  (3) var riid: TGUID の引数の varを削除．MSDNの記事で[in]となっているので
  20. //  (4) 関数 GetStateTextW を追加
  21. //
  22. //  注意 : Delphi 2007以降の標準のOleAcc.pasとの同時使用は不可
  23. //=============================================================================
  24.  
  25.  
  26.  
  27.  
  28. // ************************************************************************ //
  29. // 警告                                                                      
  30. // -------                                                                    
  31. // このファイルで宣言されている型はタイプ ライブラリから読み取られたデータから
  32. // 生成されています。このタイプ ライブラリが明示的あるいは（このタイプ ライブラ
  33. // リを参照しているほかのタイプ ライブラリ経由で）間接的に再インポートされた  
  34. // り、タイプ ライブライブラリの編集中にタイプ ライブラリ エディタの［更新］コマ
  35. // ンドを実行した場合、このファイルの内容はすべて再生成され、手動で加えた変更
  36. // はすべて失われます。                                                      
  37. // ************************************************************************ //
  38.  
  39. // $Rev: 31855 $
  40. // 下に説明されたタイプ ライブラリから 2012/06/01 20:36:51 に生成されたファイル。
  41.  
  42. // ************************************************************************  //
  43. // タイプ ライブラリ: UIAutomationClient.tlb (1)
  44. // LIBID: {944DE083-8FB8-45CF-BCB7-C477ACB2F897}
  45. // LCID: 0
  46. // ヘルプファイル:
  47. // ヘルプ文字列:
  48. // 依存関係リスト:
  49. //   (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
  50. // エラー:
  51. //   ヒント: IUIAutomationTextRange.Move のパラメータ 'unit' の名前が 'unit_' に変更されました。
  52. //   ヒント: IUIAutomationTextRange.MoveEndpointByUnit のパラメータ 'unit' の名前が 'unit_' に変更されました。
  53. //   ヒント: 'ClassName' の名前が '_className' に変更されました。
  54. //   ヒント: 'ClassName' の名前が '_className' に変更されました。
  55. //   ヒント: IUIAutomation.IntNativeArrayToSafeArray のパラメータ 'array' の名前が 'array_' に変更されました。
  56. //   ヒント: IUIAutomation.IntSafeArrayToNativeArray のパラメータ 'array' の名前が 'array_' に変更されました。
  57. //   ヒント: IUIAutomation.RectToVariant のパラメータ 'var' の名前が 'var_' に変更されました。
  58. //   ヒント: IUIAutomation.VariantToRect のパラメータ 'var' の名前が 'var_' に変更されました。
  59. //   ヒント: IUIAutomation.GetPropertyProgrammaticName のパラメータ 'property' の名前が 'property_' に変更されました。
  60. //   ヒント: 'ClassName' の名前が '_className' に変更されました。
  61. //   ヒント: 'ClassName' の名前が '_className' に変更されました。
  62. //   "TCUIAutomation" のパレット用ビットマップの作成時エラー : サーバー C:\WINDOWS\system32\uiautomationcore.dll はアイコンを持っていません。
  63. // コマンドライン:
  64. //   "C:\Program Files\Embarcadero\RAD Studio\8.0\bin\tlibimp.exe" -P UIAutomationClient.tlb
  65. // ************************************************************************ //
  66. // *************************************************************************//
  67. // メモ:
  68. // $IFDEF_LIVE_SERVER_AT_DESIGN_TIME でガードされた項目が使用されるのは、
  69. // プロパティでアクセスする前に関数呼び出しで明示的に作成する必要がある
  70. // オブジェクトが返されるプロパティです。これらの項目は
  71. // オブジェクト インスペクタ内から間違って使用されないように無効化されて
  72. // います。ここで LIVE_SERVER_AT_DESIGN_TIME を定義するか、
  73. // $IFDEF ブロックから選択して削除することによって有効にできます。
  74. // ただし、このような項目は使用する前に適切な CoClass のメソッドで
  75. // プログラムで作成される必要があります。
  76. {$TYPEDADDRESS OFF} // ポインタの型チェックをオフにしてコンパイルすること
  77. {$WARN SYMBOL_PLATFORM OFF}
  78. {$WRITEABLECONST ON}
  79. {$VARPROPSETTER ON}
  80. {$ALIGN 4}
  81. interface
  82.  
  83. uses Windows, ActiveX, Classes, vcl.Graphics, vcl.OleServer, StdVCL, Variants;
  84.  
  85. // *********************************************************************//
  86. // タイプ ライブラリで宣言される GUID. 以下のプレフィックスを使う:        
  87. //   Type Libraries     : LIBID_xxxx                                      
  88. //   CoClasses          : CLASS_xxxx                                      
  89. //   DISPInterfaces     : DIID_xxxx                                      
  90. //   Non-DISP interfaces: IID_xxxx                                        
  91. // *********************************************************************//
  92.  
  93.   function GetStateTextW(dwStateBit: DWORD; lpszStateBit: PWideChar;
  94.     cchStateBitMax: UINT): UINT; stdcall; external 'oleacc.dll';
  95.  
  96. const
  97.   // タイプ ライブラリのメジャー バージョンとマイナー バージョン
  98.   UIAutomationClientMajorVersion = 1;
  99.   UIAutomationClientMinorVersion = 0;
  100.  
  101.   LIBID_UIAutomationClient: TGUID = '{944DE083-8FB8-45CF-BCB7-C477ACB2F897}';
  102.  
  103.   IID_IUIAutomationElement: TGUID = '{D22108AA-8AC5-49A5-837B-37BBB3D7591E}';
  104.   IID_IUIAutomationCondition: TGUID = '{352FFBA8-0973-437C-A61F-F64CAFD81DF9}';
  105.   IID_IUIAutomationElementArray: TGUID = '{14314595-B4BC-4055-95F2-58F2E42C9855}';
  106.   IID_IUIAutomationCacheRequest: TGUID = '{B32A92B5-BC25-4078-9C08-D7EE95C48E03}';
  107.   IID_IUIAutomationBoolCondition: TGUID = '{1B4E1F2E-75EB-4D0B-8952-5A69988E2307}';
  108.   IID_IUIAutomationPropertyCondition: TGUID = '{99EBF2CB-5578-4267-9AD4-AFD6EA77E94B}';
  109.   IID_IUIAutomationAndCondition: TGUID = '{A7D0AF36-B912-45FE-9855-091DDC174AEC}';
  110.   IID_IUIAutomationOrCondition: TGUID = '{8753F032-3DB1-47B5-A1FC-6E34A266C712}';
  111.   IID_IUIAutomationNotCondition: TGUID = '{F528B657-847B-498C-8896-D52B565407A1}';
  112.   IID_IUIAutomationTreeWalker: TGUID = '{4042C624-389C-4AFC-A630-9DF854A541FC}';
  113.   IID_IUIAutomationEventHandler: TGUID = '{146C3C17-F12E-4E22-8C27-F894B9B79C69}';
  114.   IID_IUIAutomationPropertyChangedEventHandler: TGUID = '{40CD37D4-C756-4B0C-8C6F-BDDFEEB13B50}';
  115.   IID_IUIAutomationStructureChangedEventHandler: TGUID = '{E81D1B4E-11C5-42F8-9754-E7036C79F054}';
  116.   IID_IUIAutomationFocusChangedEventHandler: TGUID = '{C270F6B5-5C69-4290-9745-7A7F97169468}';
  117.   IID_IUIAutomationInvokePattern: TGUID = '{FB377FBE-8EA6-46D5-9C73-6499642D3059}';
  118.   IID_IUIAutomationDockPattern: TGUID = '{FDE5EF97-1464-48F6-90BF-43D0948E86EC}';
  119.   IID_IUIAutomationExpandCollapsePattern: TGUID = '{619BE086-1F4E-4EE4-BAFA-210128738730}';
  120.   IID_IUIAutomationGridPattern: TGUID = '{414C3CDC-856B-4F5B-8538-3131C6302550}';
  121.   IID_IUIAutomationGridItemPattern: TGUID = '{78F8EF57-66C3-4E09-BD7C-E79B2004894D}';
  122.   IID_IUIAutomationMultipleViewPattern: TGUID = '{8D253C91-1DC5-4BB5-B18F-ADE16FA495E8}';
  123.   IID_IUIAutomationRangeValuePattern: TGUID = '{59213F4F-7346-49E5-B120-80555987A148}';
  124.   IID_IUIAutomationScrollPattern: TGUID = '{88F4D42A-E881-459D-A77C-73BBBB7E02DC}';
  125.   IID_IUIAutomationScrollItemPattern: TGUID = '{B488300F-D015-4F19-9C29-BB595E3645EF}';
  126.   IID_IUIAutomationSelectionPattern: TGUID = '{5ED5202E-B2AC-47A6-B638-4B0BF140D78E}';
  127.   IID_IUIAutomationSelectionItemPattern: TGUID = '{A8EFA66A-0FDA-421A-9194-38021F3578EA}';
  128.   IID_IUIAutomationSynchronizedInputPattern: TGUID = '{2233BE0B-AFB7-448B-9FDA-3B378AA5EAE1}';
  129.   IID_IUIAutomationTablePattern: TGUID = '{620E691C-EA96-4710-A850-754B24CE2417}';
  130.   IID_IUIAutomationTableItemPattern: TGUID = '{0B964EB3-EF2E-4464-9C79-61D61737A27E}';
  131.   IID_IUIAutomationTogglePattern: TGUID = '{94CF8058-9B8D-4AB9-8BFD-4CD0A33C8C70}';
  132.   IID_IUIAutomationTransformPattern: TGUID = '{A9B55844-A55D-4EF0-926D-569C16FF89BB}';
  133.   IID_IUIAutomationValuePattern: TGUID = '{A94CD8B1-0844-4CD6-9D2D-640537AB39E9}';
  134.   IID_IUIAutomationWindowPattern: TGUID = '{0FAEF453-9208-43EF-BBB2-3B485177864F}';
  135.   IID_IUIAutomationTextRange: TGUID = '{A543CC6A-F4AE-494B-8239-C814481187A8}';
  136.   IID_IUIAutomationTextRangeArray: TGUID = '{CE4AE76A-E717-4C98-81EA-47371D028EB6}';
  137.   IID_IUIAutomationTextPattern: TGUID = '{32EBA289-3583-42C9-9C59-3B6D9A1E9B6A}';
  138.   IID_IUIAutomationLegacyIAccessiblePattern: TGUID = '{828055AD-355B-4435-86D5-3B51C14A9B1B}';
  139.   IID_IAccessible: TGUID = '{618736E0-3C3D-11CF-810C-00AA00389B71}';
  140.   IID_IUIAutomationItemContainerPattern: TGUID = '{C690FDB2-27A8-423C-812D-429773C9084E}';
  141.   IID_IUIAutomationVirtualizedItemPattern: TGUID = '{6BA3D7A6-04CF-4F11-8793-A8D1CDE9969F}';
  142.   IID_IUIAutomationProxyFactory: TGUID = '{85B94ECD-849D-42B6-B94D-D6DB23FDF5A4}';
  143.   IID_IRawElementProviderSimple: TGUID = '{D6DD68D1-86FD-4332-8666-9ABEDEA2D24C}';
  144.   IID_IUIAutomationProxyFactoryEntry: TGUID = '{D50E472E-B64B-490C-BCA1-D30696F9F289}';
  145.   IID_IUIAutomationProxyFactoryMapping: TGUID = '{09E31E18-872D-4873-93D1-1E541EC133FD}';
  146.   IID_IUIAutomation: TGUID = '{30CBE57D-D9D0-452A-AB13-7AC5AC4825EE}';
  147.   CLASS_CUIAutomation: TGUID = '{FF48DBA4-60EF-4201-AA87-54103EEF594E}';
  148.  
  149.  
  150. //----- Added Constants List Mr.XRAY ----------
  151. // Annotation Type Identifiers
  152.   AnnotationType_Comment        = 60003;
  153.   AnnotationType_Footer         = 60007;
  154.   AnnotationType_FormulaError   = 60004;
  155.   AnnotationType_GrammarError   = 60002;
  156.   AnnotationType_Header         = 60006;
  157.   AnnotationType_Highlighted    = 60008;
  158.   AnnotationType_SpellingError  = 60001;
  159.   AnnotationType_TrackChanges   = 60005;
  160.   AnnotationType_Unknown        = 60000;
  161.  
  162. // Control Pattern Identifiers
  163.   UIA_AnnotationPatternId        = 10023;
  164.   UIA_DockPatternId              = 10011;
  165.   UIA_DragPatternId              = 10030;
  166.   UIA_DropTargetPatternId        = 10031;
  167.   UIA_ExpandCollapsePatternId    = 10005;
  168.   UIA_GridItemPatternId          = 10007;
  169.   UIA_GridPatternId              = 10006;
  170.   UIA_InvokePatternId            = 10000;
  171.   UIA_ItemContainerPatternId     = 10019;
  172.   UIA_LegacyIAccessiblePatternId = 10018;
  173.   UIA_MultipleViewPatternId      = 10008;
  174.   UIA_ObjectModelPatternId       = 10022;
  175.   UIA_RangeValuePatternId        = 10003;
  176.   UIA_ScrollItemPatternId        = 10017;
  177.   UIA_ScrollPatternId            = 10004;
  178.   UIA_SelectionItemPatternId     = 10010;
  179.   UIA_SelectionPatternId         = 10001;
  180.   UIA_SpreadsheetPatternId       = 10026;
  181.   UIA_SpreadsheetItemPatternId   = 10027;
  182.   UIA_StylesPatternId            = 10025;
  183.   UIA_SynchronizedInputPatternId = 10021;
  184.   UIA_TableItemPatternId         = 10013;
  185.   UIA_TablePatternId             = 10012;
  186.   UIA_TextChildPatternId         = 10029;
  187.   UIA_TextPatternId              = 10014;
  188.   UIA_TextPattern2Id             = 10024;
  189.   UIA_TogglePatternId            = 10015;
  190.   UIA_TransformPatternId         = 10016;
  191.   UIA_TransformPattern2Id        = 10028;
  192.   UIA_ValuePatternId             = 10002;
  193.   UIA_VirtualizedItemPatternId   = 10020;
  194.  
  195. // Control Type Identifiers
  196.   UIA_CalendarControlTypeId     = 50001;
  197.   UIA_CheckBoxControlTypeId     = 50002;
  198.   UIA_ComboBoxControlTypeId     = 50003;
  199.   UIA_CustomControlTypeId       = 50025;
  200.   UIA_DataGridControlTypeId     = 50028;
  201.   UIA_DataItemControlTypeId     = 50029;
  202.   UIA_DocumentControlTypeId     = 50030;
  203.   UIA_EditControlTypeId         = 50004;
  204.   UIA_GroupControlTypeId        = 50026;
  205.   UIA_HeaderControlTypeId       = 50034;
  206.   UIA_HeaderItemControlTypeId   = 50035;
  207.   UIA_HyperlinkControlTypeId    = 50005;
  208.   UIA_ImageControlTypeId        = 50006;
  209.   UIA_ListControlTypeId         = 50008;
  210.   UIA_ListItemControlTypeId     = 50007;
  211.   UIA_MenuBarControlTypeId      = 50010;
  212.   UIA_MenuControlTypeId         = 50009;
  213.   UIA_MenuItemControlTypeId     = 50011;
  214.   UIA_PaneControlTypeId         = 50033;
  215.   UIA_ProgressBarControlTypeId  = 50012;
  216.   UIA_RadioButtonControlTypeId  = 50013;
  217.   UIA_ScrollBarControlTypeId    = 50014;
  218.   UIA_SemanticZoomControlTypeId = 50039;
  219.   UIA_SeparatorControlTypeId    = 50038;
  220.   UIA_SliderControlTypeId       = 50015;
  221.   UIA_SpinnerControlTypeId      = 50016;
  222.   UIA_SplitButtonControlTypeId  = 50031;
  223.   UIA_StatusBarControlTypeId    = 50017;
  224.   UIA_TabControlTypeId          = 50018;
  225.   UIA_TabItemControlTypeId      = 50019;
  226.   UIA_TableControlTypeId        = 50036;
  227.   UIA_TextControlTypeId         = 50020;
  228.   UIA_ThumbControlTypeId        = 50027;
  229.   UIA_TitleBarControlTypeId     = 50037;
  230.   UIA_ToolBarControlTypeId      = 50021;
  231.   UIA_ToolTipControlTypeId      = 50022;
  232.   UIA_TreeControlTypeId         = 50023;
  233.   UIA_TreeItemControlTypeId     = 50024;
  234.   UIA_WindowControlTypeId       = 50032;
  235.  
  236. // Error Codes
  237.   UIA_E_ELEMENTNOTAVAILABLE    = $80040201;
  238.   UIA_E_ELEMENTNOTENABLED      = $80040200;
  239.   UIA_E_INVALIDOPERATION       = $80131509;
  240.   UIA_E_NOCLICKABLEPOINT       = $80040202;
  241.   UIA_E_NOTSUPPORTED           = $80040204;
  242.   UIA_E_PROXYASSEMBLYNOTLOADED = $80040203;
  243.   UIA_E_TIMEOUT                = $0;
  244.  
  245. // Event Identifiers
  246.   UIA_AsyncContentLoadedEventId                        = 20006;
  247.   UIA_AutomationFocusChangedEventId                    = 20005;
  248.   UIA_AutomationPropertyChangedEventId                 = 20004;
  249.   UIA_Drag_DragStartEventId                            = 20026;
  250.   UIA_Drag_DragCancelEventId                           = 20027;
  251.   UIA_Drag_DragCompleteEventId                         = 20028;
  252.   UIA_DropTarget_DragEnterEventId                      = 20029;
  253.   UIA_DropTarget_DragLeaveEventId                      = 20030;
  254.   UIA_DropTarget_DroppedEventId                        = 20031;
  255.   UIA_HostedFragmentRootsInvalidatedEventId            = 20015;
  256.   UIA_InputDiscardedEventId                            = 20022;
  257.   UIA_InputReachedOtherElementEventId                  = 20021;
  258.   UIA_InputReachedTargetEventId                        = 20020;
  259.   UIA_Invoke_InvokedEventId                            = 20009;
  260.   UIA_LayoutInvalidatedEventId                         = 20008;
  261.   UIA_LiveRegionChangedEventId                         = 20025;
  262.   UIA_MenuClosedEventId                                = 20007;
  263.   UIA_MenuModeEndEventId                               = 20019;
  264.   UIA_MenuModeStartEventId                             = 20018;
  265.   UIA_MenuOpenedEventId                                = 20003;
  266.   UIA_Selection_InvalidatedEventId                     = 20013;
  267.   UIA_SelectionItem_ElementAddedToSelectionEventId     = 20010;
  268.   UIA_SelectionItem_ElementRemovedFromSelectionEventId = 20011;
  269.   UIA_SelectionItem_ElementSelectedEventId             = 20012;
  270.   UIA_StructureChangedEventId                          = 20002;
  271.   UIA_SystemAlertEventId                               = 20024;
  272.   UIA_Text_TextChangedEventId                          = 20015;
  273.   UIA_Text_TextSelectionChangedEventId                 = 20014;
  274.   UIA_ToolTipClosedEventId                             = 20001;
  275.   UIA_ToolTipOpenedEventId                             = 20000;
  276.   UIA_Window_WindowClosedEventId                       = 20017;
  277.   UIA_Window_WindowOpenedEventId                       = 20016;
  278.  
  279. // Automation Element Property Identifiers
  280.   UIA_AcceleratorKeyPropertyId       = 30006;
  281.   UIA_AccessKeyPropertyId            = 30007;
  282.   UIA_AriaPropertiesPropertyId       = 30102;
  283.   UIA_AriaRolePropertyId             = 30101;
  284.   UIA_AutomationIdPropertyId         = 30011;
  285.   UIA_BoundingRectanglePropertyId    = 30001;
  286.   UIA_ClassNamePropertyId            = 30012;
  287.   UIA_ClickablePointPropertyId       = 30014;
  288.   UIA_ControllerForPropertyId        = 30104;
  289.   UIA_ControlTypePropertyId          = 30003;
  290.   UIA_CulturePropertyId              = 30015;
  291.   UIA_DescribedByPropertyId          = 30105;
  292.   UIA_FlowsToPropertyId              = 30106;
  293.   UIA_FrameworkIdPropertyId          = 30024;
  294.   UIA_HasKeyboardFocusPropertyId     = 30008;
  295.   UIA_HelpTextPropertyId             = 30013;
  296.   UIA_IsContentElementPropertyId     = 30017;
  297.   UIA_IsControlElementPropertyId     = 30016;
  298.   UIA_IsDataValidForFormPropertyId   = 30103;
  299.   UIA_IsEnabledPropertyId            = 30010;
  300.   UIA_IsKeyboardFocusablePropertyId  = 30009;
  301.   UIA_IsOffscreenPropertyId          = 30022;
  302.   UIA_IsPasswordPropertyId           = 30019;
  303.   UIA_IsRequiredForFormPropertyId    = 30025;
  304.   UIA_ItemStatusPropertyId           = 30026;
  305.   UIA_ItemTypePropertyId             = 30021;  //MSDNの元の値は300021だが，間違いかも知れないので修正
  306.   UIA_LabeledByPropertyId            = 30018;
  307.   UIA_LiveSettingPropertyId          = 30135;
  308.   UIA_LocalizedControlTypePropertyId = 30004;
  309.   UIA_NamePropertyId                 = 30005;
  310.   UIA_NativeWindowHandlePropertyId   = 30020;
  311.   UIA_OrientationPropertyId          = 30023;  //MSDNの元の値は300023だが，間違いかも知れないので修正
  312.   UIA_ProcessIdPropertyId            = 30002;
  313.   UIA_ProviderDescriptionPropertyId  = 30107;
  314.   UIA_RuntimeIdPropertyId            = 30000;
  315.  
  316. // Control Pattern Property Identifiers
  317.   UIA_AnnotationAnnotationTypeIdPropertyId        = 30113;
  318.   UIA_AnnotationAnnotationTypeNamePropertyId      = 30114;
  319.   UIA_AnnotationAuthorPropertyId                  = 30115;
  320.   UIA_AnnotationDateTimePropertyId                = 30116;
  321.   UIA_AnnotationTargetPropertyId                  = 30117;
  322.   UIA_DockDockPositionPropertyId                  = 30069;
  323.   UIA_DragDropEffectPropertyId                    = 30139;
  324.   UIA_DragDropEffectsPropertyId                   = 30140;
  325.   UIA_DragIsGrabbedPropertyId                     = 30138;
  326.   UIA_DragGrabbedItemsPropertyId                  = 30144;
  327.   UIA_DropTargetDropTargetEffectPropertyId        = 30142;
  328.   UIA_DropTargetDropTargetEffectsPropertyId       = 30143;
  329.   UIA_ExpandCollapseExpandCollapseStatePropertyId = 30070;
  330.   UIA_GridColumnCountPropertyId                   = 30063;
  331.   UIA_GridItemColumnPropertyId                    = 30065;
  332.   UIA_GridItemColumnSpanPropertyId                = 30067;
  333.   UIA_GridItemContainingGridPropertyId            = 30068;
  334.   UIA_GridItemRowPropertyId                       = 30064;
  335.   UIA_GridItemRowSpanPropertyId                   = 30066;
  336.   UIA_GridRowCountPropertyId                      = 30062;
  337.   UIA_LegacyIAccessibleChildIdPropertyId          = 30091;
  338.   UIA_LegacyIAccessibleDefaultActionPropertyId    = 30100;
  339.   UIA_LegacyIAccessibleDescriptionPropertyId      = 30094;
  340.   UIA_LegacyIAccessibleHelpPropertyId             = 30097;
  341.   UIA_LegacyIAccessibleKeyboardShortcutPropertyId = 30098;
  342.   UIA_LegacyIAccessibleNamePropertyId             = 30092;
  343.   UIA_LegacyIAccessibleRolePropertyId             = 30095;
  344.   UIA_LegacyIAccessibleSelectionPropertyId        = 30099;
  345.   UIA_LegacyIAccessibleStatePropertyId            = 30096;
  346.   UIA_LegacyIAccessibleValuePropertyId            = 30093;
  347.   UIA_MultipleViewCurrentViewPropertyId           = 30071;
  348.   UIA_MultipleViewSupportedViewsPropertyId        = 30072;
  349.   UIA_RangeValueIsReadOnlyPropertyId              = 30048;
  350.   UIA_RangeValueLargeChangePropertyId             = 30051;
  351.   UIA_RangeValueMaximumPropertyId                 = 30050;
  352.   UIA_RangeValueMinimumPropertyId                 = 30049;
  353.   UIA_RangeValueSmallChangePropertyId             = 30052;
  354.   UIA_RangeValueValuePropertyId                   = 30047;
  355.   UIA_ScrollHorizontallyScrollablePropertyId      = 30057;
  356.   UIA_ScrollHorizontalScrollPercentPropertyId     = 30053;
  357.   UIA_ScrollHorizontalViewSizePropertyId          = 30054;
  358.   UIA_ScrollVerticallyScrollablePropertyId        = 30058;
  359.   UIA_ScrollVerticalScrollPercentPropertyId       = 30055;
  360.   UIA_ScrollVerticalViewSizePropertyId            = 30056;
  361.   UIA_SelectionCanSelectMultiplePropertyId        = 30060;
  362.   UIA_SelectionIsSelectionRequiredPropertyId      = 30061;
  363.   UIA_SelectionSelectionPropertyId                = 30059;
  364.   UIA_SelectionItemIsSelectedPropertyId           = 30079;
  365.   UIA_SelectionItemSelectionContainerPropertyId   = 30080;
  366.   UIA_SpreadsheetItemFormulaPropertyId            = 30129;
  367.   UIA_SpreadsheetItemAnnotationObjectsPropertyId  = 30130;
  368.   UIA_SpreadsheetItemAnnotationTypesPropertyId    = 30131;
  369.   UIA_StylesExtendedPropertiesPropertyId          = 30126;
  370.   UIA_StylesFillColorPropertyId                   = 30122;
  371.   UIA_StylesFillPatternColorPropertyId            = 30125;
  372.   UIA_StylesFillPatternStylePropertyId            = 30123;
  373.   UIA_StylesShapePropertyId                       = 30124;
  374.   UIA_StylesStyleIdPropertyId                     = 30120;
  375.   UIA_StylesStyleNamePropertyId                   = 30121;
  376.   UIA_TableColumnHeadersPropertyId                = 30082;
  377.   UIA_TableItemColumnHeaderItemsPropertyId        = 30085;
  378.   UIA_TableRowHeadersPropertyId                   = 30081;
  379.   UIA_TableRowOrColumnMajorPropertyId             = 30083;
  380.   UIA_TableItemRowHeaderItemsPropertyId           = 30084;
  381.   UIA_ToggleToggleStatePropertyId                 = 30086;
  382.   UIA_TransformCanMovePropertyId                  = 30087;
  383.   UIA_TransformCanResizePropertyId                = 30088;
  384.   UIA_TransformCanRotatePropertyId                = 30089;
  385.   UIA_Transform2CanZoomPropertyId                 = 30133;
  386.   UIA_Transform2ZoomLevelPropertyId               = 30145;
  387.   UIA_Transform2ZoomMaximumPropertyId             = 30147;
  388.   UIA_Transform2ZoomMinimumPropertyId             = 30146;
  389.   UIA_ValueIsReadOnlyPropertyId                   = 30046;
  390.   UIA_ValueValuePropertyId                        = 30045;
  391.   UIA_WindowCanMaximizePropertyId                 = 30073;
  392.   UIA_WindowCanMinimizePropertyId                 = 30074;
  393.   UIA_WindowIsModalPropertyId                     = 30077;
  394.   UIA_WindowIsTopmostPropertyId                   = 30078;
  395.   UIA_WindowWindowInteractionStatePropertyId      = 30076;
  396.   UIA_WindowWindowVisualStatePropertyId           = 30075;
  397.  
  398. // Control Pattern Availability Property Identifiers
  399.   UIA_IsAnnotationPatternAvailablePropertyId        = 30118;
  400.   UIA_IsDockPatternAvailablePropertyId              = 30027;
  401.   UIA_IsDragPatternAvailablePropertyId              = 30137;
  402.   UIA_IsDropTargetPatternAvailablePropertyId        = 30141;
  403.   UIA_IsExpandCollapsePatternAvailablePropertyId    = 30028;
  404.   UIA_IsGridItemPatternAvailablePropertyId          = 30029;
  405.   UIA_IsGridPatternAvailablePropertyId              = 30030;
  406.   UIA_IsInvokePatternAvailablePropertyId            = 30031;
  407.   UIA_IsItemContainerPatternAvailablePropertyId     = 30108;
  408.   UIA_IsLegacyIAccessiblePatternAvailablePropertyId = 30090;
  409.   UIA_IsMultipleViewPatternAvailablePropertyId      = 30032;
  410.   UIA_IsObjectModelPatternAvailablePropertyId       = 30112;
  411.   UIA_IsRangeValuePatternAvailablePropertyId        = 30033;
  412.   UIA_IsScrollItemPatternAvailablePropertyId        = 30035;
  413.   UIA_IsScrollPatternAvailablePropertyId            = 30034;
  414.   UIA_IsSelectionItemPatternAvailablePropertyId     = 30036;
  415.   UIA_IsSelectionPatternAvailablePropertyId         = 30037;
  416.   UIA_IsSpreadsheetPatternAvailablePropertyId       = 30128;
  417.   UIA_IsSpreadsheetItemPatternAvailablePropertyId   = 30132;
  418.   UIA_IsStylesPatternAvailablePropertyId            = 30127;
  419.   UIA_IsSynchronizedInputPatternAvailablePropertyId = 30110;
  420.   UIA_IsTableItemPatternAvailablePropertyId         = 30039;
  421.   UIA_IsTablePatternAvailablePropertyId             = 30038;
  422.   UIA_IsTextChildPatternAvailablePropertyId         = 30136;
  423.   UIA_IsTextPatternAvailablePropertyId              = 30040;
  424.   UIA_IsTextPattern2AvailablePropertyId             = 30119;
  425.   UIA_IsTogglePatternAvailablePropertyId            = 30041;
  426.   UIA_IsTransformPatternAvailablePropertyId         = 30042;
  427.   UIA_IsTransformPattern2AvailablePropertyId        = 30134;
  428.   UIA_IsValuePatternAvailablePropertyId             = 30043;
  429.   UIA_IsVirtualizedItemPatternAvailablePropertyId   = 30109;
  430.   UIA_IsWindowPatternAvailablePropertyId            = 30044;
  431.  
  432. //  Style Identifiers
  433.   StyleId_Custom    = 70000;
  434.   StyleId_Heading1  = 70001;
  435.   StyleId_Heading2  = 70002;
  436.   StyleId_Heading3  = 70003;
  437.   StyleId_Heading4  = 70004;
  438.   StyleId_Heading5  = 70005;
  439.   StyleId_Heading6  = 70006;
  440.   StyleId_Heading7  = 70007;
  441.   StyleId_Heading8  = 70008;
  442.   StyleId_Heading9  = 70009;
  443.   StyleId_Title     = 70010;
  444.   StyleId_Subtitle  = 70011;
  445.   StyleId_Normal    = 70012;
  446.   StyleId_Emphasis  = 70013;
  447.   StyleId_Quote     = 70014;
  448.  
  449. // Text Attribute Identifiers
  450.   UIA_AnimationStyleAttributeId          = 40000;
  451.   UIA_AnnotationObjectsAttributeId       = 40032;
  452.   UIA_AnnotationTypesAttributeId         = 40031;
  453.   UIA_BackgroundColorAttributeId         = 40001;
  454.   UIA_BulletStyleAttributeId             = 40002;
  455.   UIA_CapStyleAttributeId                = 40003;
  456.   UIA_CaretBidiModeAttributeId           = 40039;
  457.   UIA_CaretPositionAttributeId           = 40038;
  458.   UIA_CultureAttributeId                 = 40004;
  459.   UIA_FontNameAttributeId                = 40005;
  460.   UIA_FontSizeAttributeId                = 40006;
  461.   UIA_FontWeightAttributeId              = 40007; //MSDNの元の値は400007だが，間違いかも知れないので修正
  462.   UIA_ForegroundColorAttributeId         = 40008;
  463.   UIA_HorizontalTextAlignmentAttributeId = 40009;
  464.   UIA_IndentationFirstLineAttributeId    = 40010;
  465.   UIA_IndentationLeadingAttributeId      = 40011;
  466.   UIA_IndentationTrailingAttributeId     = 40012;
  467.   UIA_IsActiveAttributeId                = 40036;
  468.   UIA_IsHiddenAttributeId                = 40013;
  469.   UIA_IsItalicAttributeId                = 40014;
  470.   UIA_IsReadOnlyAttributeId              = 40015;
  471.   UIA_IsSubscriptAttributeId             = 40016;
  472.   UIA_IsSuperscriptAttributeId           = 40017;
  473.   UIA_LinkAttributeId                    = 40035;
  474.   UIA_MarginBottomAttributeId            = 40018;
  475.   UIA_MarginLeadingAttributeId           = 40019;
  476.   UIA_MarginTopAttributeId               = 40020;
  477.   UIA_MarginTrailingAttributeId          = 40021;
  478.   UIA_OutlineStylesAttributeId           = 40022;
  479.   UIA_OverlineColorAttributeId           = 40023;
  480.   UIA_OverlineStyleAttributeId           = 40024;
  481.   UIA_SelectionActiveEndAttributeId      = 40037;
  482.   UIA_StrikethroughColorAttributeId      = 40025;
  483.   UIA_StrikethroughStyleAttributeId      = 40026;
  484.   UIA_StyleIdAttributeId                 = 40034;
  485.   UIA_StyleNameAttributeId               = 40033;
  486.   UIA_TabsAttributeId                    = 40027;
  487.   UIA_TextFlowDirectionsAttributeId      = 40028;
  488.   UIA_UnderlineColorAttributeId          = 40029;
  489.   UIA_UnderlineStyleAttributeId          = 40030;
  490. //----- Added Constants List End Mr.XRAY ----------
  491.  
  492.  
  493. // *********************************************************************//
  494. // タイプ ライブラリで定義された列挙型の宣言
  495. // *********************************************************************//
  496. // 列挙型 TreeScope の定数
  497. type
  498.   TreeScope = TOleEnum;
  499. const
  500.   TreeScope_Element = $00000001;
  501.   TreeScope_Children = $00000002;
  502.   TreeScope_Descendants = $00000004;
  503.   TreeScope_Parent = $00000008;
  504.   TreeScope_Ancestors = $00000010;
  505.   TreeScope_Subtree = $00000007;
  506.  
  507. // 列挙型 AutomationElementMode の定数
  508. type
  509.   AutomationElementMode = TOleEnum;
  510. const
  511.   AutomationElementMode_None = $00000000;
  512.   AutomationElementMode_Full = $00000001;
  513.  
  514. // 列挙型 OrientationType の定数
  515. type
  516.   OrientationType = TOleEnum;
  517. const
  518.   OrientationType_None = $00000000;
  519.   OrientationType_Horizontal = $00000001;
  520.   OrientationType_Vertical = $00000002;
  521.  
  522. // 列挙型 PropertyConditionFlags の定数
  523. type
  524.   PropertyConditionFlags = TOleEnum;
  525. const
  526.   PropertyConditionFlags_None = $00000000;
  527.   PropertyConditionFlags_IgnoreCase = $00000001;
  528.  
  529. // 列挙型 StructureChangeType の定数
  530. type
  531.   StructureChangeType = TOleEnum;
  532. const
  533.   StructureChangeType_ChildAdded = $00000000;
  534.   StructureChangeType_ChildRemoved = $00000001;
  535.   StructureChangeType_ChildrenInvalidated = $00000002;
  536.   StructureChangeType_ChildrenBulkAdded = $00000003;
  537.   StructureChangeType_ChildrenBulkRemoved = $00000004;
  538.   StructureChangeType_ChildrenReordered = $00000005;
  539.  
  540. // 列挙型 DockPosition の定数
  541. type
  542.   DockPosition = TOleEnum;
  543. const
  544.   DockPosition_Top = $00000000;
  545.   DockPosition_Left = $00000001;
  546.   DockPosition_Bottom = $00000002;
  547.   DockPosition_Right = $00000003;
  548.   DockPosition_Fill = $00000004;
  549.   DockPosition_None = $00000005;
  550.  
  551. // 列挙型 ExpandCollapseState の定数
  552. type
  553.   ExpandCollapseState = TOleEnum;
  554. const
  555.   ExpandCollapseState_Collapsed = $00000000;
  556.   ExpandCollapseState_Expanded = $00000001;
  557.   ExpandCollapseState_PartiallyExpanded = $00000002;
  558.   ExpandCollapseState_LeafNode = $00000003;
  559.  
  560. // 列挙型 ScrollAmount の定数
  561. type
  562.   ScrollAmount = TOleEnum;
  563. const
  564.   ScrollAmount_LargeDecrement = $00000000;
  565.   ScrollAmount_SmallDecrement = $00000001;
  566.   ScrollAmount_NoAmount = $00000002;
  567.   ScrollAmount_LargeIncrement = $00000003;
  568.   ScrollAmount_SmallIncrement = $00000004;
  569.  
  570. // 列挙型 SynchronizedInputType の定数
  571. type
  572.   SynchronizedInputType = TOleEnum;
  573. const
  574.   SynchronizedInputType_KeyUp = $00000001;
  575.   SynchronizedInputType_KeyDown = $00000002;
  576.   SynchronizedInputType_LeftMouseUp = $00000004;
  577.   SynchronizedInputType_LeftMouseDown = $00000008;
  578.   SynchronizedInputType_RightMouseUp = $00000010;
  579.   SynchronizedInputType_RightMouseDown = $00000020;
  580.  
  581. // 列挙型 RowOrColumnMajor の定数
  582. type
  583.   RowOrColumnMajor = TOleEnum;
  584. const
  585.   RowOrColumnMajor_RowMajor = $00000000;
  586.   RowOrColumnMajor_ColumnMajor = $00000001;
  587.   RowOrColumnMajor_Indeterminate = $00000002;
  588.  
  589. // 列挙型 ToggleState の定数
  590. type
  591.   ToggleState = TOleEnum;
  592. const
  593.   ToggleState_Off = $00000000;
  594.   ToggleState_On = $00000001;
  595.   ToggleState_Indeterminate = $00000002;
  596.  
  597. // 列挙型 WindowVisualState の定数
  598. type
  599.   WindowVisualState = TOleEnum;
  600. const
  601.   WindowVisualState_Normal = $00000000;
  602.   WindowVisualState_Maximized = $00000001;
  603.   WindowVisualState_Minimized = $00000002;
  604.  
  605. // 列挙型 WindowInteractionState の定数
  606. type
  607.   WindowInteractionState = TOleEnum;
  608. const
  609.   WindowInteractionState_Running = $00000000;
  610.   WindowInteractionState_Closing = $00000001;
  611.   WindowInteractionState_ReadyForUserInteraction = $00000002;
  612.   WindowInteractionState_BlockedByModalWindow = $00000003;
  613.   WindowInteractionState_NotResponding = $00000004;
  614.  
  615. // 列挙型 TextPatternRangeEndpoint の定数
  616. type
  617.   TextPatternRangeEndpoint = TOleEnum;
  618. const
  619.   TextPatternRangeEndpoint_Start = $00000000;
  620.   TextPatternRangeEndpoint_End = $00000001;
  621.  
  622. // 列挙型 TextUnit の定数
  623. type
  624.   TextUnit = TOleEnum;
  625. const
  626.   TextUnit_Character = $00000000;
  627.   TextUnit_Format = $00000001;
  628.   TextUnit_Word = $00000002;
  629.   TextUnit_Line = $00000003;
  630.   TextUnit_Paragraph = $00000004;
  631.   TextUnit_Page = $00000005;
  632.   TextUnit_Document = $00000006;
  633.  
  634. // 列挙型 SupportedTextSelection の定数
  635. type
  636.   SupportedTextSelection = TOleEnum;
  637. const
  638.   SupportedTextSelection_None = $00000000;
  639.   SupportedTextSelection_Single = $00000001;
  640.   SupportedTextSelection_Multiple = $00000002;
  641.  
  642. // 列挙型 ProviderOptions の定数
  643. type
  644.   ProviderOptions = TOleEnum;
  645. const
  646.   ProviderOptions_ClientSideProvider = $00000001;
  647.   ProviderOptions_ServerSideProvider = $00000002;
  648.   ProviderOptions_NonClientAreaProvider = $00000004;
  649.   ProviderOptions_OverrideProvider = $00000008;
  650.   ProviderOptions_ProviderOwnsSetFocus = $00000010;
  651.   ProviderOptions_UseComThreading = $00000020;
  652.  
  653. type
  654. // *********************************************************************//
  655. // タイプ ライブラリで宣言される前方参照
  656. // *********************************************************************//
  657.   IUIAutomationElement = interface;
  658.   IUIAutomationCondition = interface;
  659.   IUIAutomationElementArray = interface;
  660.   IUIAutomationCacheRequest = interface;
  661.   IUIAutomationBoolCondition = interface;
  662.   IUIAutomationPropertyCondition = interface;
  663.   IUIAutomationAndCondition = interface;
  664.   IUIAutomationOrCondition = interface;
  665.   IUIAutomationNotCondition = interface;
  666.   IUIAutomationTreeWalker = interface;
  667.   IUIAutomationEventHandler = interface;
  668.   IUIAutomationPropertyChangedEventHandler = interface;
  669.   IUIAutomationStructureChangedEventHandler = interface;
  670.   IUIAutomationFocusChangedEventHandler = interface;
  671.   IUIAutomationInvokePattern = interface;
  672.   IUIAutomationDockPattern = interface;
  673.   IUIAutomationExpandCollapsePattern = interface;
  674.   IUIAutomationGridPattern = interface;
  675.   IUIAutomationGridItemPattern = interface;
  676.   IUIAutomationMultipleViewPattern = interface;
  677.   IUIAutomationRangeValuePattern = interface;
  678.   IUIAutomationScrollPattern = interface;
  679.   IUIAutomationScrollItemPattern = interface;
  680.   IUIAutomationSelectionPattern = interface;
  681.   IUIAutomationSelectionItemPattern = interface;
  682.   IUIAutomationSynchronizedInputPattern = interface;
  683.   IUIAutomationTablePattern = interface;
  684.   IUIAutomationTableItemPattern = interface;
  685.   IUIAutomationTogglePattern = interface;
  686.   IUIAutomationTransformPattern = interface;
  687.   IUIAutomationValuePattern = interface;
  688.   IUIAutomationWindowPattern = interface;
  689.   IUIAutomationTextRange = interface;
  690.   IUIAutomationTextRangeArray = interface;
  691.   IUIAutomationTextPattern = interface;
  692.   IUIAutomationLegacyIAccessiblePattern = interface;
  693.   IAccessible = interface;
  694.   IAccessibleDisp = dispinterface;
  695.   IUIAutomationItemContainerPattern = interface;
  696.   IUIAutomationVirtualizedItemPattern = interface;
  697.   IUIAutomationProxyFactory = interface;
  698.   IRawElementProviderSimple = interface;
  699.   IUIAutomationProxyFactoryEntry = interface;
  700.   IUIAutomationProxyFactoryMapping = interface;
  701.   IUIAutomation = interface;
  702. // *********************************************************************//
  703. // タイプ ライブラリで宣言される CoClass
  704. // (注意: ここで各 CoClass とデフォルトのインターフェイスをマッピングする)
  705. // *********************************************************************//
  706.   CUIAutomation = IUIAutomation;
  707.  
  708.  
  709. // *********************************************************************//
  710. // 構造体、共用体およびエイリアスの宣言
  711. // *********************************************************************//
  712.   PUserType1 = ^TGUID; {*}
  713.   PPUserType1 = ^IUIAutomationCondition; {*}
  714.   PSYSINT1 = ^SYSINT; {*}
  715.   PUserType2 = ^tagRECT; {*}
  716.  
  717.   tagRECT = record
  718.     left: Integer;
  719.     top: Integer;
  720.     right: Integer;
  721.     bottom: Integer;
  722.   end;
  723.  
  724.   tagPOINT = record
  725.     x: Integer;
  726.     y: Integer;
  727.   end;
  728.  
  729.  
  730. // *********************************************************************//
  731. // インターフェイス: IUIAutomationElement
  732. // フラグ: (0)
  733. // GUID: {D22108AA-8AC5-49A5-837B-37BBB3D7591E}
  734. // *********************************************************************//
  735.   IUIAutomationElement = interface(IUnknown)
  736.     ['{D22108AA-8AC5-49A5-837B-37BBB3D7591E}']
  737.     function SetFocus: HResult; stdcall;
  738.     function GetRuntimeId(out runtimeId: PSafeArray): HResult; stdcall;
  739.     function FindFirst(scope: TreeScope; const condition: IUIAutomationCondition;
  740.                        out found: IUIAutomationElement): HResult; stdcall;
  741.     function FindAll(scope: TreeScope; const condition: IUIAutomationCondition;
  742.                      out found: IUIAutomationElementArray): HResult; stdcall;
  743.     function FindFirstBuildCache(scope: TreeScope; const condition: IUIAutomationCondition;
  744.                                  const cacheRequest: IUIAutomationCacheRequest;
  745.                                  out found: IUIAutomationElement): HResult; stdcall;
  746.     function FindAllBuildCache(scope: TreeScope; const condition: IUIAutomationCondition;
  747.                                const cacheRequest: IUIAutomationCacheRequest;
  748.                                out found: IUIAutomationElementArray): HResult; stdcall;
  749.     function BuildUpdatedCache(const cacheRequest: IUIAutomationCacheRequest;
  750.                                out updatedElement: IUIAutomationElement): HResult; stdcall;
  751.     function GetCurrentPropertyValue(propertyId: SYSINT; out retVal: OleVariant): HResult; stdcall;
  752.     function GetCurrentPropertyValueEx(propertyId: SYSINT; ignoreDefaultValue: Integer;
  753.                                        out retVal: OleVariant): HResult; stdcall;
  754.     function GetCachedPropertyValue(propertyId: SYSINT; out retVal: OleVariant): HResult; stdcall;
  755.     function GetCachedPropertyValueEx(propertyId: SYSINT; ignoreDefaultValue: Integer;
  756.                                       out retVal: OleVariant): HResult; stdcall;
  757.     function GetCurrentPatternAs(patternId: SYSINT; riid: TGUID; out patternObject: Pointer): HResult; stdcall;
  758.     function GetCachedPatternAs(patternId: SYSINT; riid: TGUID; out patternObject: Pointer): HResult; stdcall;
  759.     function GetCurrentPattern(patternId: SYSINT; out patternObject: IUnknown): HResult; stdcall;
  760.     function GetCachedPattern(patternId: SYSINT; out patternObject: IUnknown): HResult; stdcall;
  761.     function GetCachedParent(out parent: IUIAutomationElement): HResult; stdcall;
  762.     function GetCachedChildren(out children: IUIAutomationElementArray): HResult; stdcall;
  763.     function Get_CurrentProcessId(out retVal: SYSINT): HResult; stdcall;
  764.     function Get_CurrentControlType(out retVal: SYSINT): HResult; stdcall;
  765.     function Get_CurrentLocalizedControlType(out retVal: WideString): HResult; stdcall;
  766.     function Get_CurrentName(out retVal: WideString): HResult; stdcall;
  767.     function Get_CurrentAcceleratorKey(out retVal: WideString): HResult; stdcall;
  768.     function Get_CurrentAccessKey(out retVal: WideString): HResult; stdcall;
  769.     function Get_CurrentHasKeyboardFocus(out retVal: Integer): HResult; stdcall;
  770.     function Get_CurrentIsKeyboardFocusable(out retVal: Integer): HResult; stdcall;
  771.     function Get_CurrentIsEnabled(out retVal: Integer): HResult; stdcall;
  772.     function Get_CurrentAutomationId(out retVal: WideString): HResult; stdcall;
  773.     function Get_CurrentClassName(out retVal: WideString): HResult; stdcall;
  774.     function Get_CurrentHelpText(out retVal: WideString): HResult; stdcall;
  775.     function Get_CurrentCulture(out retVal: SYSINT): HResult; stdcall;
  776.     function Get_CurrentIsControlElement(out retVal: Integer): HResult; stdcall;
  777.     function Get_CurrentIsContentElement(out retVal: Integer): HResult; stdcall;
  778.     function Get_CurrentIsPassword(out retVal: Integer): HResult; stdcall;
  779.     function Get_CurrentNativeWindowHandle(out retVal: Pointer): HResult; stdcall;
  780.     function Get_CurrentItemType(out retVal: WideString): HResult; stdcall;
  781.     function Get_CurrentIsOffscreen(out retVal: Integer): HResult; stdcall;
  782.     function Get_CurrentOrientation(out retVal: OrientationType): HResult; stdcall;
  783.     function Get_CurrentFrameworkId(out retVal: WideString): HResult; stdcall;
  784.     function Get_CurrentIsRequiredForForm(out retVal: Integer): HResult; stdcall;
  785.     function Get_CurrentItemStatus(out retVal: WideString): HResult; stdcall;
  786.     function Get_CurrentBoundingRectangle(out retVal: tagRECT): HResult; stdcall;
  787.     function Get_CurrentLabeledBy(out retVal: IUIAutomationElement): HResult; stdcall;
  788.     function Get_CurrentAriaRole(out retVal: WideString): HResult; stdcall;
  789.     function Get_CurrentAriaProperties(out retVal: WideString): HResult; stdcall;
  790.     function Get_CurrentIsDataValidForForm(out retVal: Integer): HResult; stdcall;
  791.     function Get_CurrentControllerFor(out retVal: IUIAutomationElementArray): HResult; stdcall;
  792.     function Get_CurrentDescribedBy(out retVal: IUIAutomationElementArray): HResult; stdcall;
  793.     function Get_CurrentFlowsTo(out retVal: IUIAutomationElementArray): HResult; stdcall;
  794.     function Get_CurrentProviderDescription(out retVal: WideString): HResult; stdcall;
  795.     function Get_CachedProcessId(out retVal: SYSINT): HResult; stdcall;
  796.     function Get_CachedControlType(out retVal: SYSINT): HResult; stdcall;
  797.     function Get_CachedLocalizedControlType(out retVal: WideString): HResult; stdcall;
  798.     function Get_CachedName(out retVal: WideString): HResult; stdcall;
  799.     function Get_CachedAcceleratorKey(out retVal: WideString): HResult; stdcall;
  800.     function Get_CachedAccessKey(out retVal: WideString): HResult; stdcall;
  801.     function Get_CachedHasKeyboardFocus(out retVal: Integer): HResult; stdcall;
  802.     function Get_CachedIsKeyboardFocusable(out retVal: Integer): HResult; stdcall;
  803.     function Get_CachedIsEnabled(out retVal: Integer): HResult; stdcall;
  804.     function Get_CachedAutomationId(out retVal: WideString): HResult; stdcall;
  805.     function Get_CachedClassName(out retVal: WideString): HResult; stdcall;
  806.     function Get_CachedHelpText(out retVal: WideString): HResult; stdcall;
  807.     function Get_CachedCulture(out retVal: SYSINT): HResult; stdcall;
  808.     function Get_CachedIsControlElement(out retVal: Integer): HResult; stdcall;
  809.     function Get_CachedIsContentElement(out retVal: Integer): HResult; stdcall;
  810.     function Get_CachedIsPassword(out retVal: Integer): HResult; stdcall;
  811.     function Get_CachedNativeWindowHandle(out retVal: Pointer): HResult; stdcall;
  812.     function Get_CachedItemType(out retVal: WideString): HResult; stdcall;
  813.     function Get_CachedIsOffscreen(out retVal: Integer): HResult; stdcall;
  814.     function Get_CachedOrientation(out retVal: OrientationType): HResult; stdcall;
  815.     function Get_CachedFrameworkId(out retVal: WideString): HResult; stdcall;
  816.     function Get_CachedIsRequiredForForm(out retVal: Integer): HResult; stdcall;
  817.     function Get_CachedItemStatus(out retVal: WideString): HResult; stdcall;
  818.     function Get_CachedBoundingRectangle(out retVal: tagRECT): HResult; stdcall;
  819.     function Get_CachedLabeledBy(out retVal: IUIAutomationElement): HResult; stdcall;
  820.     function Get_CachedAriaRole(out retVal: WideString): HResult; stdcall;
  821.     function Get_CachedAriaProperties(out retVal: WideString): HResult; stdcall;
  822.     function Get_CachedIsDataValidForForm(out retVal: Integer): HResult; stdcall;
  823.     function Get_CachedControllerFor(out retVal: IUIAutomationElementArray): HResult; stdcall;
  824.     function Get_CachedDescribedBy(out retVal: IUIAutomationElementArray): HResult; stdcall;
  825.     function Get_CachedFlowsTo(out retVal: IUIAutomationElementArray): HResult; stdcall;
  826.     function Get_CachedProviderDescription(out retVal: WideString): HResult; stdcall;
  827.     function GetClickablePoint(out clickable: tagPOINT; out gotClickable: Integer): HResult; stdcall;
  828.   end;
  829.  
  830. // *********************************************************************//
  831. // インターフェイス: IUIAutomationCondition
  832. // フラグ: (0)
  833. // GUID: {352FFBA8-0973-437C-A61F-F64CAFD81DF9}
  834. // *********************************************************************//
  835.   IUIAutomationCondition = interface(IUnknown)
  836.     ['{352FFBA8-0973-437C-A61F-F64CAFD81DF9}']
  837.   end;
  838.  
  839. // *********************************************************************//
  840. // インターフェイス: IUIAutomationElementArray
  841. // フラグ: (0)
  842. // GUID: {14314595-B4BC-4055-95F2-58F2E42C9855}
  843. // *********************************************************************//
  844.   IUIAutomationElementArray = interface(IUnknown)
  845.     ['{14314595-B4BC-4055-95F2-58F2E42C9855}']
  846.     function Get_Length(out Length: SYSINT): HResult; stdcall;
  847.     function GetElement(index: SYSINT; out element: IUIAutomationElement): HResult; stdcall;
  848.   end;
  849.  
  850. // *********************************************************************//
  851. // インターフェイス: IUIAutomationCacheRequest
  852. // フラグ: (0)
  853. // GUID: {B32A92B5-BC25-4078-9C08-D7EE95C48E03}
  854. // *********************************************************************//
  855.   IUIAutomationCacheRequest = interface(IUnknown)
  856.     ['{B32A92B5-BC25-4078-9C08-D7EE95C48E03}']
  857.     function AddProperty(propertyId: SYSINT): HResult; stdcall;
  858.     function AddPattern(patternId: SYSINT): HResult; stdcall;
  859.     function Clone(out clonedRequest: IUIAutomationCacheRequest): HResult; stdcall;
  860.     function Get_TreeScope(out scope: TreeScope): HResult; stdcall;
  861.     function Set_TreeScope(scope: TreeScope): HResult; stdcall;
  862.     function Get_TreeFilter(out filter: IUIAutomationCondition): HResult; stdcall;
  863.     function Set_TreeFilter(const filter: IUIAutomationCondition): HResult; stdcall;
  864.     function Get_AutomationElementMode(out mode: AutomationElementMode): HResult; stdcall;
  865.     function Set_AutomationElementMode(mode: AutomationElementMode): HResult; stdcall;
  866.   end;
  867.  
  868. // *********************************************************************//
  869. // インターフェイス: IUIAutomationBoolCondition
  870. // フラグ: (0)
  871. // GUID: {1B4E1F2E-75EB-4D0B-8952-5A69988E2307}
  872. // *********************************************************************//
  873.   IUIAutomationBoolCondition = interface(IUIAutomationCondition)
  874.     ['{1B4E1F2E-75EB-4D0B-8952-5A69988E2307}']
  875.     function Get_BooleanValue(out boolVal: Integer): HResult; stdcall;
  876.   end;
  877.  
  878. // *********************************************************************//
  879. // インターフェイス: IUIAutomationPropertyCondition
  880. // フラグ: (0)
  881. // GUID: {99EBF2CB-5578-4267-9AD4-AFD6EA77E94B}
  882. // *********************************************************************//
  883.   IUIAutomationPropertyCondition = interface(IUIAutomationCondition)
  884.     ['{99EBF2CB-5578-4267-9AD4-AFD6EA77E94B}']
  885.     function Get_propertyId(out propertyId: SYSINT): HResult; stdcall;
  886.     function Get_PropertyValue(out PropertyValue: OleVariant): HResult; stdcall;
  887.     function Get_PropertyConditionFlags(out flags: PropertyConditionFlags): HResult; stdcall;
  888.   end;
  889.  
  890. // *********************************************************************//
  891. // インターフェイス: IUIAutomationAndCondition
  892. // フラグ: (0)
  893. // GUID: {A7D0AF36-B912-45FE-9855-091DDC174AEC}
  894. // *********************************************************************//
  895.   IUIAutomationAndCondition = interface(IUIAutomationCondition)
  896.     ['{A7D0AF36-B912-45FE-9855-091DDC174AEC}']
  897.     function Get_ChildCount(out ChildCount: SYSINT): HResult; stdcall;
  898.     function GetChildrenAsNativeArray(out childArray: PPUserType1; out childArrayCount: SYSINT): HResult; stdcall;
  899.     function GetChildren(out childArray: PSafeArray): HResult; stdcall;
  900.   end;
  901.  
  902. // *********************************************************************//
  903. // インターフェイス: IUIAutomationOrCondition
  904. // フラグ: (0)
  905. // GUID: {8753F032-3DB1-47B5-A1FC-6E34A266C712}
  906. // *********************************************************************//
  907.   IUIAutomationOrCondition = interface(IUIAutomationCondition)
  908.     ['{8753F032-3DB1-47B5-A1FC-6E34A266C712}']
  909.     function Get_ChildCount(out ChildCount: SYSINT): HResult; stdcall;
  910.     function GetChildrenAsNativeArray(out childArray: PPUserType1; out childArrayCount: SYSINT): HResult; stdcall;
  911.     function GetChildren(out childArray: PSafeArray): HResult; stdcall;
  912.   end;
  913.  
  914. // *********************************************************************//
  915. // インターフェイス: IUIAutomationNotCondition
  916. // フラグ: (0)
  917. // GUID: {F528B657-847B-498C-8896-D52B565407A1}
  918. // *********************************************************************//
  919.   IUIAutomationNotCondition = interface(IUIAutomationCondition)
  920.     ['{F528B657-847B-498C-8896-D52B565407A1}']
  921.     function GetChild(out condition: IUIAutomationCondition): HResult; stdcall;
  922.   end;
  923.  
  924. // *********************************************************************//
  925. // インターフェイス: IUIAutomationTreeWalker
  926. // フラグ: (0)
  927. // GUID: {4042C624-389C-4AFC-A630-9DF854A541FC}
  928. // *********************************************************************//
  929.   IUIAutomationTreeWalker = interface(IUnknown)
  930.     ['{4042C624-389C-4AFC-A630-9DF854A541FC}']
  931.     function GetParentElement(const element: IUIAutomationElement; out parent: IUIAutomationElement): HResult; stdcall;
  932.     function GetFirstChildElement(const element: IUIAutomationElement;
  933.                                   out first: IUIAutomationElement): HResult; stdcall;
  934.     function GetLastChildElement(const element: IUIAutomationElement; out last: IUIAutomationElement): HResult; stdcall;
  935.     function GetNextSiblingElement(const element: IUIAutomationElement;
  936.                                    out next: IUIAutomationElement): HResult; stdcall;
  937.     function GetPreviousSiblingElement(const element: IUIAutomationElement;
  938.                                        out previous: IUIAutomationElement): HResult; stdcall;
  939.     function NormalizeElement(const element: IUIAutomationElement;
  940.                               out normalized: IUIAutomationElement): HResult; stdcall;
  941.     function GetParentElementBuildCache(const element: IUIAutomationElement;
  942.                                         const cacheRequest: IUIAutomationCacheRequest;
  943.                                         out parent: IUIAutomationElement): HResult; stdcall;
  944.     function GetFirstChildElementBuildCache(const element: IUIAutomationElement;
  945.                                             const cacheRequest: IUIAutomationCacheRequest;
  946.                                             out first: IUIAutomationElement): HResult; stdcall;
  947.     function GetLastChildElementBuildCache(const element: IUIAutomationElement;
  948.                                            const cacheRequest: IUIAutomationCacheRequest;
  949.                                            out last: IUIAutomationElement): HResult; stdcall;
  950.     function GetNextSiblingElementBuildCache(const element: IUIAutomationElement;
  951.                                              const cacheRequest: IUIAutomationCacheRequest;
  952.                                              out next: IUIAutomationElement): HResult; stdcall;
  953.     function GetPreviousSiblingElementBuildCache(const element: IUIAutomationElement;
  954.                                                  const cacheRequest: IUIAutomationCacheRequest;
  955.                                                  out previous: IUIAutomationElement): HResult; stdcall;
  956.     function NormalizeElementBuildCache(const element: IUIAutomationElement;
  957.                                         const cacheRequest: IUIAutomationCacheRequest;
  958.                                         out normalized: IUIAutomationElement): HResult; stdcall;
  959.     function Get_condition(out condition: IUIAutomationCondition): HResult; stdcall;
  960.   end;
  961.  
  962. // *********************************************************************//
  963. // インターフェイス: IUIAutomationEventHandler
  964. // フラグ: (256) OleAutomation
  965. // GUID: {146C3C17-F12E-4E22-8C27-F894B9B79C69}
  966. // *********************************************************************//
  967.   IUIAutomationEventHandler = interface(IUnknown)
  968.     ['{146C3C17-F12E-4E22-8C27-F894B9B79C69}']
  969.     function HandleAutomationEvent(const sender: IUIAutomationElement; eventId: SYSINT): HResult; stdcall;
  970.   end;
  971.  
  972. // *********************************************************************//
  973. // インターフェイス: IUIAutomationPropertyChangedEventHandler
  974. // フラグ: (256) OleAutomation
  975. // GUID: {40CD37D4-C756-4B0C-8C6F-BDDFEEB13B50}
  976. // *********************************************************************//
  977.   IUIAutomationPropertyChangedEventHandler = interface(IUnknown)
  978.     ['{40CD37D4-C756-4B0C-8C6F-BDDFEEB13B50}']
  979.     function HandlePropertyChangedEvent(const sender: IUIAutomationElement; propertyId: SYSINT;
  980.                                         newValue: OleVariant): HResult; stdcall;
  981.   end;
  982.  
  983. // *********************************************************************//
  984. // インターフェイス: IUIAutomationStructureChangedEventHandler
  985. // フラグ: (256) OleAutomation
  986. // GUID: {E81D1B4E-11C5-42F8-9754-E7036C79F054}
  987. // *********************************************************************//
  988.   IUIAutomationStructureChangedEventHandler = interface(IUnknown)
  989.     ['{E81D1B4E-11C5-42F8-9754-E7036C79F054}']
  990.     function HandleStructureChangedEvent(const sender: IUIAutomationElement;
  991.                                          changeType: StructureChangeType; runtimeId: PSafeArray): HResult; stdcall;
  992.   end;
  993.  
  994. // *********************************************************************//
  995. // インターフェイス: IUIAutomationFocusChangedEventHandler
  996. // フラグ: (256) OleAutomation
  997. // GUID: {C270F6B5-5C69-4290-9745-7A7F97169468}
  998. // *********************************************************************//
  999.   IUIAutomationFocusChangedEventHandler = interface(IUnknown)
  1000.     ['{C270F6B5-5C69-4290-9745-7A7F97169468}']
  1001.     function HandleFocusChangedEvent(const sender: IUIAutomationElement): HResult; stdcall;
  1002.   end;
  1003.  
  1004. // *********************************************************************//
  1005. // インターフェイス: IUIAutomationInvokePattern
  1006. // フラグ: (0)
  1007. // GUID: {FB377FBE-8EA6-46D5-9C73-6499642D3059}
  1008. // *********************************************************************//
  1009.   IUIAutomationInvokePattern = interface(IUnknown)
  1010.     ['{FB377FBE-8EA6-46D5-9C73-6499642D3059}']
  1011.     function Invoke: HResult; stdcall;
  1012.   end;
  1013.  
  1014. // *********************************************************************//
  1015. // インターフェイス: IUIAutomationDockPattern
  1016. // フラグ: (0)
  1017. // GUID: {FDE5EF97-1464-48F6-90BF-43D0948E86EC}
  1018. // *********************************************************************//
  1019.   IUIAutomationDockPattern = interface(IUnknown)
  1020.     ['{FDE5EF97-1464-48F6-90BF-43D0948E86EC}']
  1021.     function SetDockPosition(dockPos: DockPosition): HResult; stdcall;
  1022.     function Get_CurrentDockPosition(out retVal: DockPosition): HResult; stdcall;
  1023.     function Get_CachedDockPosition(out retVal: DockPosition): HResult; stdcall;
  1024.   end;
  1025.  
  1026. // *********************************************************************//
  1027. // インターフェイス: IUIAutomationExpandCollapsePattern
  1028. // フラグ: (0)
  1029. // GUID: {619BE086-1F4E-4EE4-BAFA-210128738730}
  1030. // *********************************************************************//
  1031.   IUIAutomationExpandCollapsePattern = interface(IUnknown)
  1032.     ['{619BE086-1F4E-4EE4-BAFA-210128738730}']
  1033.     function Expand: HResult; stdcall;
  1034.     function Collapse: HResult; stdcall;
  1035.     function Get_CurrentExpandCollapseState(out retVal: ExpandCollapseState): HResult; stdcall;
  1036.     function Get_CachedExpandCollapseState(out retVal: ExpandCollapseState): HResult; stdcall;
  1037.   end;
  1038.  
  1039. // *********************************************************************//
  1040. // インターフェイス: IUIAutomationGridPattern
  1041. // フラグ: (0)
  1042. // GUID: {414C3CDC-856B-4F5B-8538-3131C6302550}
  1043. // *********************************************************************//
  1044.   IUIAutomationGridPattern = interface(IUnknown)
  1045.     ['{414C3CDC-856B-4F5B-8538-3131C6302550}']
  1046.     function GetItem(row: SYSINT; column: SYSINT; out element: IUIAutomationElement): HResult; stdcall;
  1047.     function Get_CurrentRowCount(out retVal: SYSINT): HResult; stdcall;
  1048.     function Get_CurrentColumnCount(out retVal: SYSINT): HResult; stdcall;
  1049.     function Get_CachedRowCount(out retVal: SYSINT): HResult; stdcall;
  1050.     function Get_CachedColumnCount(out retVal: SYSINT): HResult; stdcall;
  1051.   end;
  1052.  
  1053. // *********************************************************************//
  1054. // インターフェイス: IUIAutomationGridItemPattern
  1055. // フラグ: (0)
  1056. // GUID: {78F8EF57-66C3-4E09-BD7C-E79B2004894D}
  1057. // *********************************************************************//
  1058.   IUIAutomationGridItemPattern = interface(IUnknown)
  1059.     ['{78F8EF57-66C3-4E09-BD7C-E79B2004894D}']
  1060.     function Get_CurrentContainingGrid(out retVal: IUIAutomationElement): HResult; stdcall;
  1061.     function Get_CurrentRow(out retVal: SYSINT): HResult; stdcall;
  1062.     function Get_CurrentColumn(out retVal: SYSINT): HResult; stdcall;
  1063.     function Get_CurrentRowSpan(out retVal: SYSINT): HResult; stdcall;
  1064.     function Get_CurrentColumnSpan(out retVal: SYSINT): HResult; stdcall;
  1065.     function Get_CachedContainingGrid(out retVal: IUIAutomationElement): HResult; stdcall;
  1066.     function Get_CachedRow(out retVal: SYSINT): HResult; stdcall;
  1067.     function Get_CachedColumn(out retVal: SYSINT): HResult; stdcall;
  1068.     function Get_CachedRowSpan(out retVal: SYSINT): HResult; stdcall;
  1069.     function Get_CachedColumnSpan(out retVal: SYSINT): HResult; stdcall;
  1070.   end;
  1071.  
  1072. // *********************************************************************//
  1073. // インターフェイス: IUIAutomationMultipleViewPattern
  1074. // フラグ: (0)
  1075. // GUID: {8D253C91-1DC5-4BB5-B18F-ADE16FA495E8}
  1076. // *********************************************************************//
  1077.   IUIAutomationMultipleViewPattern = interface(IUnknown)
  1078.     ['{8D253C91-1DC5-4BB5-B18F-ADE16FA495E8}']
  1079.     function GetViewName(view: SYSINT; out name: WideString): HResult; stdcall;
  1080.     function SetCurrentView(view: SYSINT): HResult; stdcall;
  1081.     function Get_CurrentCurrentView(out retVal: SYSINT): HResult; stdcall;
  1082.     function GetCurrentSupportedViews(out retVal: PSafeArray): HResult; stdcall;
  1083.     function Get_CachedCurrentView(out retVal: SYSINT): HResult; stdcall;
  1084.     function GetCachedSupportedViews(out retVal: PSafeArray): HResult; stdcall;
  1085.   end;
  1086.  
  1087. // *********************************************************************//
  1088. // インターフェイス: IUIAutomationRangeValuePattern
  1089. // フラグ: (0)
  1090. // GUID: {59213F4F-7346-49E5-B120-80555987A148}
  1091. // *********************************************************************//
  1092.   IUIAutomationRangeValuePattern = interface(IUnknown)
  1093.     ['{59213F4F-7346-49E5-B120-80555987A148}']
  1094.     function SetValue(val: Double): HResult; stdcall;
  1095.     function Get_CurrentValue(out retVal: Double): HResult; stdcall;
  1096.     function Get_CurrentIsReadOnly(out retVal: Integer): HResult; stdcall;
  1097.     function Get_CurrentMaximum(out retVal: Double): HResult; stdcall;
  1098.     function Get_CurrentMinimum(out retVal: Double): HResult; stdcall;
  1099.     function Get_CurrentLargeChange(out retVal: Double): HResult; stdcall;
  1100.     function Get_CurrentSmallChange(out retVal: Double): HResult; stdcall;
  1101.     function Get_CachedValue(out retVal: Double): HResult; stdcall;
  1102.     function Get_CachedIsReadOnly(out retVal: Integer): HResult; stdcall;
  1103.     function Get_CachedMaximum(out retVal: Double): HResult; stdcall;
  1104.     function Get_CachedMinimum(out retVal: Double): HResult; stdcall;
  1105.     function Get_CachedLargeChange(out retVal: Double): HResult; stdcall;
  1106.     function Get_CachedSmallChange(out retVal: Double): HResult; stdcall;
  1107.   end;
  1108.  
  1109. // *********************************************************************//
  1110. // インターフェイス: IUIAutomationScrollPattern
  1111. // フラグ: (0)
  1112. // GUID: {88F4D42A-E881-459D-A77C-73BBBB7E02DC}
  1113. // *********************************************************************//
  1114.   IUIAutomationScrollPattern = interface(IUnknown)
  1115.     ['{88F4D42A-E881-459D-A77C-73BBBB7E02DC}']
  1116.     function Scroll(horizontalAmount: ScrollAmount; verticalAmount: ScrollAmount): HResult; stdcall;
  1117.     function SetScrollPercent(horizontalPercent: Double; verticalPercent: Double): HResult; stdcall;
  1118.     function Get_CurrentHorizontalScrollPercent(out retVal: Double): HResult; stdcall;
  1119.     function Get_CurrentVerticalScrollPercent(out retVal: Double): HResult; stdcall;
  1120.     function Get_CurrentHorizontalViewSize(out retVal: Double): HResult; stdcall;
  1121.     function Get_CurrentVerticalViewSize(out retVal: Double): HResult; stdcall;
  1122.     function Get_CurrentHorizontallyScrollable(out retVal: Integer): HResult; stdcall;
  1123.     function Get_CurrentVerticallyScrollable(out retVal: Integer): HResult; stdcall;
  1124.     function Get_CachedHorizontalScrollPercent(out retVal: Double): HResult; stdcall;
  1125.     function Get_CachedVerticalScrollPercent(out retVal: Double): HResult; stdcall;
  1126.     function Get_CachedHorizontalViewSize(out retVal: Double): HResult; stdcall;
  1127.     function Get_CachedVerticalViewSize(out retVal: Double): HResult; stdcall;
  1128.     function Get_CachedHorizontallyScrollable(out retVal: Integer): HResult; stdcall;
  1129.     function Get_CachedVerticallyScrollable(out retVal: Integer): HResult; stdcall;
  1130.   end;
  1131.  
  1132. // *********************************************************************//
  1133. // インターフェイス: IUIAutomationScrollItemPattern
  1134. // フラグ: (0)
  1135. // GUID: {B488300F-D015-4F19-9C29-BB595E3645EF}
  1136. // *********************************************************************//
  1137.   IUIAutomationScrollItemPattern = interface(IUnknown)
  1138.     ['{B488300F-D015-4F19-9C29-BB595E3645EF}']
  1139.     function ScrollIntoView: HResult; stdcall;
  1140.   end;
  1141.  
  1142. // *********************************************************************//
  1143. // インターフェイス: IUIAutomationSelectionPattern
  1144. // フラグ: (0)
  1145. // GUID: {5ED5202E-B2AC-47A6-B638-4B0BF140D78E}
  1146. // *********************************************************************//
  1147.   IUIAutomationSelectionPattern = interface(IUnknown)
  1148.     ['{5ED5202E-B2AC-47A6-B638-4B0BF140D78E}']
  1149.     function GetCurrentSelection(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1150.     function Get_CurrentCanSelectMultiple(out retVal: Integer): HResult; stdcall;
  1151.     function Get_CurrentIsSelectionRequired(out retVal: Integer): HResult; stdcall;
  1152.     function GetCachedSelection(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1153.     function Get_CachedCanSelectMultiple(out retVal: Integer): HResult; stdcall;
  1154.     function Get_CachedIsSelectionRequired(out retVal: Integer): HResult; stdcall;
  1155.   end;
  1156.  
  1157. // *********************************************************************//
  1158. // インターフェイス: IUIAutomationSelectionItemPattern
  1159. // フラグ: (0)
  1160. // GUID: {A8EFA66A-0FDA-421A-9194-38021F3578EA}
  1161. // *********************************************************************//
  1162.   IUIAutomationSelectionItemPattern = interface(IUnknown)
  1163.     ['{A8EFA66A-0FDA-421A-9194-38021F3578EA}']
  1164.     function Select: HResult; stdcall;
  1165.     function AddToSelection: HResult; stdcall;
  1166.     function RemoveFromSelection: HResult; stdcall;
  1167.     function Get_CurrentIsSelected(out retVal: Integer): HResult; stdcall;
  1168.     function Get_CurrentSelectionContainer(out retVal: IUIAutomationElement): HResult; stdcall;
  1169.     function Get_CachedIsSelected(out retVal: Integer): HResult; stdcall;
  1170.     function Get_CachedSelectionContainer(out retVal: IUIAutomationElement): HResult; stdcall;
  1171.   end;
  1172.  
  1173. // *********************************************************************//
  1174. // インターフェイス: IUIAutomationSynchronizedInputPattern
  1175. // フラグ: (0)
  1176. // GUID: {2233BE0B-AFB7-448B-9FDA-3B378AA5EAE1}
  1177. // *********************************************************************//
  1178.   IUIAutomationSynchronizedInputPattern = interface(IUnknown)
  1179.     ['{2233BE0B-AFB7-448B-9FDA-3B378AA5EAE1}']
  1180.     function StartListening(inputType: SynchronizedInputType): HResult; stdcall;
  1181.     function Cancel: HResult; stdcall;
  1182.   end;
  1183.  
  1184. // *********************************************************************//
  1185. // インターフェイス: IUIAutomationTablePattern
  1186. // フラグ: (0)
  1187. // GUID: {620E691C-EA96-4710-A850-754B24CE2417}
  1188. // *********************************************************************//
  1189.   IUIAutomationTablePattern = interface(IUnknown)
  1190.     ['{620E691C-EA96-4710-A850-754B24CE2417}']
  1191.     function GetCurrentRowHeaders(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1192.     function GetCurrentColumnHeaders(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1193.     function Get_CurrentRowOrColumnMajor(out retVal: RowOrColumnMajor): HResult; stdcall;
  1194.     function GetCachedRowHeaders(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1195.     function GetCachedColumnHeaders(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1196.     function Get_CachedRowOrColumnMajor(out retVal: RowOrColumnMajor): HResult; stdcall;
  1197.   end;
  1198.  
  1199. // *********************************************************************//
  1200. // インターフェイス: IUIAutomationTableItemPattern
  1201. // フラグ: (0)
  1202. // GUID: {0B964EB3-EF2E-4464-9C79-61D61737A27E}
  1203. // *********************************************************************//
  1204.   IUIAutomationTableItemPattern = interface(IUnknown)
  1205.     ['{0B964EB3-EF2E-4464-9C79-61D61737A27E}']
  1206.     function GetCurrentRowHeaderItems(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1207.     function GetCurrentColumnHeaderItems(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1208.     function GetCachedRowHeaderItems(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1209.     function GetCachedColumnHeaderItems(out retVal: IUIAutomationElementArray): HResult; stdcall;
  1210.   end;
  1211.  
  1212. // *********************************************************************//
  1213. // インターフェイス: IUIAutomationTogglePattern
  1214. // フラグ: (0)
  1215. // GUID: {94CF8058-9B8D-4AB9-8BFD-4CD0A33C8C70}
  1216. // *********************************************************************//
  1217.   IUIAutomationTogglePattern = interface(IUnknown)
  1218.     ['{94CF8058-9B8D-4AB9-8BFD-4CD0A33C8C70}']
  1219.     function Toggle: HResult; stdcall;
  1220.     function Get_CurrentToggleState(out retVal: ToggleState): HResult; stdcall;
  1221.     function Get_CachedToggleState(out retVal: ToggleState): HResult; stdcall;
  1222.   end;
  1223.  
  1224. // *********************************************************************//
  1225. // インターフェイス: IUIAutomationTransformPattern
  1226. // フラグ: (0)
  1227. // GUID: {A9B55844-A55D-4EF0-926D-569C16FF89BB}
  1228. // *********************************************************************//
  1229.   IUIAutomationTransformPattern = interface(IUnknown)
  1230.     ['{A9B55844-A55D-4EF0-926D-569C16FF89BB}']
  1231.     function Move(x: Double; y: Double): HResult; stdcall;
  1232.     function Resize(width: Double; height: Double): HResult; stdcall;
  1233.     function Rotate(degrees: Double): HResult; stdcall;
  1234.     function Get_CurrentCanMove(out retVal: Integer): HResult; stdcall;
  1235.     function Get_CurrentCanResize(out retVal: Integer): HResult; stdcall;
  1236.     function Get_CurrentCanRotate(out retVal: Integer): HResult; stdcall;
  1237.     function Get_CachedCanMove(out retVal: Integer): HResult; stdcall;
  1238.     function Get_CachedCanResize(out retVal: Integer): HResult; stdcall;
  1239.     function Get_CachedCanRotate(out retVal: Integer): HResult; stdcall;
  1240.   end;
  1241.  
  1242. // *********************************************************************//
  1243. // インターフェイス: IUIAutomationValuePattern
  1244. // フラグ: (0)
  1245. // GUID: {A94CD8B1-0844-4CD6-9D2D-640537AB39E9}
  1246. // *********************************************************************//
  1247.   IUIAutomationValuePattern = interface(IUnknown)
  1248.     ['{A94CD8B1-0844-4CD6-9D2D-640537AB39E9}']
  1249.     function SetValue(const val: WideString): HResult; stdcall;
  1250.     function Get_CurrentValue(out retVal: WideString): HResult; stdcall;
  1251.     function Get_CurrentIsReadOnly(out retVal: Integer): HResult; stdcall;
  1252.     function Get_CachedValue(out retVal: WideString): HResult; stdcall;
  1253.     function Get_CachedIsReadOnly(out retVal: Integer): HResult; stdcall;
  1254.   end;
  1255.  
  1256. // *********************************************************************//
  1257. // インターフェイス: IUIAutomationWindowPattern
  1258. // フラグ: (0)
  1259. // GUID: {0FAEF453-9208-43EF-BBB2-3B485177864F}
  1260. // *********************************************************************//
  1261.   IUIAutomationWindowPattern = interface(IUnknown)
  1262.     ['{0FAEF453-9208-43EF-BBB2-3B485177864F}']
  1263.     function Close: HResult; stdcall;
  1264.     function WaitForInputIdle(milliseconds: SYSINT; out success: Integer): HResult; stdcall;
  1265.     function SetWindowVisualState(state: WindowVisualState): HResult; stdcall;
  1266.     function Get_CurrentCanMaximize(out retVal: Integer): HResult; stdcall;
  1267.     function Get_CurrentCanMinimize(out retVal: Integer): HResult; stdcall;
  1268.     function Get_CurrentIsModal(out retVal: Integer): HResult; stdcall;
  1269.     function Get_CurrentIsTopmost(out retVal: Integer): HResult; stdcall;
  1270.     function Get_CurrentWindowVisualState(out retVal: WindowVisualState): HResult; stdcall;
  1271.     function Get_CurrentWindowInteractionState(out retVal: WindowInteractionState): HResult; stdcall;
  1272.     function Get_CachedCanMaximize(out retVal: Integer): HResult; stdcall;
  1273.     function Get_CachedCanMinimize(out retVal: Integer): HResult; stdcall;
  1274.     function Get_CachedIsModal(out retVal: Integer): HResult; stdcall;
  1275.     function Get_CachedIsTopmost(out retVal: Integer): HResult; stdcall;
  1276.     function Get_CachedWindowVisualState(out retVal: WindowVisualState): HResult; stdcall;
  1277.     function Get_CachedWindowInteractionState(out retVal: WindowInteractionState): HResult; stdcall;
  1278.   end;
  1279.  
  1280. // *********************************************************************//
  1281. // インターフェイス: IUIAutomationTextRange
  1282. // フラグ: (0)
  1283. // GUID: {A543CC6A-F4AE-494B-8239-C814481187A8}
  1284. // *********************************************************************//
  1285.   IUIAutomationTextRange = interface(IUnknown)
  1286.     ['{A543CC6A-F4AE-494B-8239-C814481187A8}']
  1287.     function Clone(out clonedRange: IUIAutomationTextRange): HResult; stdcall;
  1288.     function Compare(const range: IUIAutomationTextRange; out areSame: Integer): HResult; stdcall;
  1289.     function CompareEndpoints(srcEndPoint: TextPatternRangeEndpoint;
  1290.                               const range: IUIAutomationTextRange;
  1291.                               targetEndPoint: TextPatternRangeEndpoint; out compValue: SYSINT): HResult; stdcall;
  1292.     function ExpandToEnclosingUnit(TextUnit: TextUnit): HResult; stdcall;
  1293.     function FindAttribute(attr: SYSINT; val: OleVariant; backward: Integer;
  1294.                            out found: IUIAutomationTextRange): HResult; stdcall;
  1295.     function FindText(const text: WideString; backward: Integer; ignoreCase: Integer;
  1296.                       out found: IUIAutomationTextRange): HResult; stdcall;
  1297.     function GetAttributeValue(attr: SYSINT; out value: OleVariant): HResult; stdcall;
  1298.     function GetBoundingRectangles(out boundingRects: PSafeArray): HResult; stdcall;
  1299.     function GetEnclosingElement(out enclosingElement: IUIAutomationElement): HResult; stdcall;
  1300.     function GetText(maxLength: SYSINT; out text: WideString): HResult; stdcall;
  1301.     function Move(unit_: TextUnit; count: SYSINT; out moved: SYSINT): HResult; stdcall;
  1302.     function MoveEndpointByUnit(endpoint: TextPatternRangeEndpoint; unit_: TextUnit; count: SYSINT;
  1303.                                 out moved: SYSINT): HResult; stdcall;
  1304.     function MoveEndpointByRange(srcEndPoint: TextPatternRangeEndpoint;
  1305.                                  const range: IUIAutomationTextRange;
  1306.                                  targetEndPoint: TextPatternRangeEndpoint): HResult; stdcall;
  1307.     function Select: HResult; stdcall;
  1308.     function AddToSelection: HResult; stdcall;
  1309.     function RemoveFromSelection: HResult; stdcall;
  1310.     function ScrollIntoView(alignToTop: Integer): HResult; stdcall;
  1311.     function GetChildren(out children: IUIAutomationElementArray): HResult; stdcall;
  1312.   end;
  1313.  
  1314. // *********************************************************************//
  1315. // インターフェイス: IUIAutomationTextRangeArray
  1316. // フラグ: (0)
  1317. // GUID: {CE4AE76A-E717-4C98-81EA-47371D028EB6}
  1318. // *********************************************************************//
  1319.   IUIAutomationTextRangeArray = interface(IUnknown)
  1320.     ['{CE4AE76A-E717-4C98-81EA-47371D028EB6}']
  1321.     function Get_Length(out Length: SYSINT): HResult; stdcall;
  1322.     function GetElement(index: SYSINT; out element: IUIAutomationTextRange): HResult; stdcall;
  1323.   end;
  1324.  
  1325. // *********************************************************************//
  1326. // インターフェイス: IUIAutomationTextPattern
  1327. // フラグ: (0)
  1328. // GUID: {32EBA289-3583-42C9-9C59-3B6D9A1E9B6A}
  1329. // *********************************************************************//
  1330.   IUIAutomationTextPattern = interface(IUnknown)
  1331.     ['{32EBA289-3583-42C9-9C59-3B6D9A1E9B6A}']
  1332.     function RangeFromPoint(pt: tagPOINT; out range: IUIAutomationTextRange): HResult; stdcall;
  1333.     function RangeFromChild(const child: IUIAutomationElement; out range: IUIAutomationTextRange): HResult; stdcall;
  1334.     function GetSelection(out ranges: IUIAutomationTextRangeArray): HResult; stdcall;
  1335.     function GetVisibleRanges(out ranges: IUIAutomationTextRangeArray): HResult; stdcall;
  1336.     function Get_DocumentRange(out range: IUIAutomationTextRange): HResult; stdcall;
  1337.     function Get_SupportedTextSelection(out SupportedTextSelection: SupportedTextSelection): HResult; stdcall;
  1338.   end;
  1339.  
  1340. // *********************************************************************//
  1341. // インターフェイス: IUIAutomationLegacyIAccessiblePattern
  1342. // フラグ: (0)
  1343. // GUID: {828055AD-355B-4435-86D5-3B51C14A9B1B}
  1344. // *********************************************************************//
  1345.   IUIAutomationLegacyIAccessiblePattern = interface(IUnknown)
  1346.     ['{828055AD-355B-4435-86D5-3B51C14A9B1B}']
  1347.     function Select(flagsSelect: Integer): HResult; stdcall;
  1348.     function DoDefaultAction: HResult; stdcall;
  1349.     function SetValue(szValue: PWideChar): HResult; stdcall;
  1350.     function Get_CurrentChildId(out pRetVal: SYSINT): HResult; stdcall;
  1351.     function Get_CurrentName(out pszName: WideString): HResult; stdcall;
  1352.     function Get_CurrentValue(out pszValue: WideString): HResult; stdcall;
  1353.     function Get_CurrentDescription(out pszDescription: WideString): HResult; stdcall;
  1354.     function Get_CurrentRole(out pdwRole: LongWord): HResult; stdcall;
  1355.     function Get_CurrentState(out pdwState: LongWord): HResult; stdcall;
  1356.     function Get_CurrentHelp(out pszHelp: WideString): HResult; stdcall;
  1357.     function Get_CurrentKeyboardShortcut(out pszKeyboardShortcut: WideString): HResult; stdcall;
  1358.     function GetCurrentSelection(out pvarSelectedChildren: IUIAutomationElementArray): HResult; stdcall;
  1359.     function Get_CurrentDefaultAction(out pszDefaultAction: WideString): HResult; stdcall;
  1360.     function Get_CachedChildId(out pRetVal: SYSINT): HResult; stdcall;
  1361.     function Get_CachedName(out pszName: WideString): HResult; stdcall;
  1362.     function Get_CachedValue(out pszValue: WideString): HResult; stdcall;
  1363.     function Get_CachedDescription(out pszDescription: WideString): HResult; stdcall;
  1364.     function Get_CachedRole(out pdwRole: LongWord): HResult; stdcall;
  1365.     function Get_CachedState(out pdwState: LongWord): HResult; stdcall;
  1366.     function Get_CachedHelp(out pszHelp: WideString): HResult; stdcall;
  1367.     function Get_CachedKeyboardShortcut(out pszKeyboardShortcut: WideString): HResult; stdcall;
  1368.     function GetCachedSelection(out pvarSelectedChildren: IUIAutomationElementArray): HResult; stdcall;
  1369.     function Get_CachedDefaultAction(out pszDefaultAction: WideString): HResult; stdcall;
  1370.     function GetIAccessible(out ppAccessible: IAccessible): HResult; stdcall;
  1371.   end;
  1372.  
  1373. // *********************************************************************//
  1374. // インターフェイス: IAccessible
  1375. // フラグ: (4432) Hidden Dual OleAutomation Dispatchable
  1376. // GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
  1377. // *********************************************************************//
  1378.   IAccessible = interface(IDispatch)
  1379.     ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
  1380.     function Get_accParent: IDispatch; safecall;
  1381.     function Get_accChildCount: Integer; safecall;
  1382.     function Get_accChild(varChild: OleVariant): IDispatch; safecall;
  1383.     function Get_accName(varChild: OleVariant): WideString; safecall;
  1384.     function Get_accValue(varChild: OleVariant): WideString; safecall;
  1385.     function Get_accDescription(varChild: OleVariant): WideString; safecall;
  1386.     function Get_accRole(varChild: OleVariant): OleVariant; safecall;
  1387.     function Get_accState(varChild: OleVariant): OleVariant; safecall;
  1388.     function Get_accHelp(varChild: OleVariant): WideString; safecall;
  1389.     function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;
  1390.     function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;
  1391.     function Get_accFocus: OleVariant; safecall;
  1392.     function Get_accSelection: OleVariant; safecall;
  1393.     function Get_accDefaultAction(varChild: OleVariant): WideString; safecall;
  1394.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;
  1395.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
  1396.                           out pcyHeight: Integer; varChild: OleVariant); safecall;
  1397.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;
  1398.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;
  1399.     procedure accDoDefaultAction(varChild: OleVariant); safecall;
  1400.     procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;
  1401.     procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;
  1402.     property accParent: IDispatch read Get_accParent;
  1403.     property accChildCount: Integer read Get_accChildCount;
  1404.     property accChild[varChild: OleVariant]: IDispatch read Get_accChild;
  1405.     property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;
  1406.     property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;
  1407.     property accDescription[varChild: OleVariant]: WideString read Get_accDescription;
  1408.     property accRole[varChild: OleVariant]: OleVariant read Get_accRole;
  1409.     property accState[varChild: OleVariant]: OleVariant read Get_accState;
  1410.     property accHelp[varChild: OleVariant]: WideString read Get_accHelp;
  1411.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;
  1412.     property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;
  1413.     property accFocus: OleVariant read Get_accFocus;
  1414.     property accSelection: OleVariant read Get_accSelection;
  1415.     property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;
  1416.   end;
  1417.  
  1418. // *********************************************************************//
  1419. // DispIntf:  IAccessibleDisp
  1420. // フラグ:     (4432) Hidden Dual OleAutomation Dispatchable
  1421. // GUID:      {618736E0-3C3D-11CF-810C-00AA00389B71}
  1422. // *********************************************************************//
  1423.   IAccessibleDisp = dispinterface
  1424.     ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
  1425.     property accParent: IDispatch readonly dispid -5000;
  1426.     property accChildCount: Integer readonly dispid -5001;
  1427.     property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
  1428.     property accName[varChild: OleVariant]: WideString dispid -5003;
  1429.     property accValue[varChild: OleVariant]: WideString dispid -5004;
  1430.     property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
  1431.     property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
  1432.     property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
  1433.     property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
  1434.     property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
  1435.     property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
  1436.     property accFocus: OleVariant readonly dispid -5011;
  1437.     property accSelection: OleVariant readonly dispid -5012;
  1438.     property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
  1439.     procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
  1440.     procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
  1441.                           out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
  1442.     function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
  1443.     function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
  1444.     procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
  1445.   end;
  1446.  
  1447. // *********************************************************************//
  1448. // インターフェイス: IUIAutomationItemContainerPattern
  1449. // フラグ: (0)
  1450. // GUID: {C690FDB2-27A8-423C-812D-429773C9084E}
  1451. // *********************************************************************//
  1452.   IUIAutomationItemContainerPattern = interface(IUnknown)
  1453.     ['{C690FDB2-27A8-423C-812D-429773C9084E}']
  1454.     function FindItemByProperty(const pStartAfter: IUIAutomationElement; propertyId: SYSINT;
  1455.                                 value: OleVariant; out pFound: IUIAutomationElement): HResult; stdcall;
  1456.   end;
  1457.  
  1458. // *********************************************************************//
  1459. // インターフェイス: IUIAutomationVirtualizedItemPattern
  1460. // フラグ: (0)
  1461. // GUID: {6BA3D7A6-04CF-4F11-8793-A8D1CDE9969F}
  1462. // *********************************************************************//
  1463.   IUIAutomationVirtualizedItemPattern = interface(IUnknown)
  1464.     ['{6BA3D7A6-04CF-4F11-8793-A8D1CDE9969F}']
  1465.     function Realize: HResult; stdcall;
  1466.   end;
  1467.  
  1468. // *********************************************************************//
  1469. // インターフェイス: IUIAutomationProxyFactory
  1470. // フラグ: (0)
  1471. // GUID: {85B94ECD-849D-42B6-B94D-D6DB23FDF5A4}
  1472. // *********************************************************************//
  1473.   IUIAutomationProxyFactory = interface(IUnknown)
  1474.     ['{85B94ECD-849D-42B6-B94D-D6DB23FDF5A4}']
  1475.     function CreateProvider(hwnd: HWND; idObject: Integer; idChild: Integer;
  1476.                             out provider: IRawElementProviderSimple): HResult; stdcall;
  1477.     function Get_ProxyFactoryId(out factoryId: WideString): HResult; stdcall;
  1478.   end;
  1479.  
  1480. // *********************************************************************//
  1481. // インターフェイス: IRawElementProviderSimple
  1482. // フラグ: (0)
  1483. // GUID: {D6DD68D1-86FD-4332-8666-9ABEDEA2D24C}
  1484. // *********************************************************************//
  1485.   IRawElementProviderSimple = interface(IUnknown)
  1486.     ['{D6DD68D1-86FD-4332-8666-9ABEDEA2D24C}']
  1487.     function Get_ProviderOptions(out pRetVal: ProviderOptions): HResult; stdcall;
  1488.     function GetPatternProvider(patternId: SYSINT; out pRetVal: IUnknown): HResult; stdcall;
  1489.     function GetPropertyValue(propertyId: SYSINT; out pRetVal: OleVariant): HResult; stdcall;
  1490.     function Get_HostRawElementProvider(out pRetVal: IRawElementProviderSimple): HResult; stdcall;
  1491.   end;
  1492.  
  1493. // *********************************************************************//
  1494. // インターフェイス: IUIAutomationProxyFactoryEntry
  1495. // フラグ: (0)
  1496. // GUID: {D50E472E-B64B-490C-BCA1-D30696F9F289}
  1497. // *********************************************************************//
  1498.   IUIAutomationProxyFactoryEntry = interface(IUnknown)
  1499.     ['{D50E472E-B64B-490C-BCA1-D30696F9F289}']
  1500.     function Get_ProxyFactory(out factory: IUIAutomationProxyFactory): HResult; stdcall;
  1501.     function Get__className(out ClassName: WideString): HResult; stdcall;
  1502.     function Get_ImageName(out ImageName: WideString): HResult; stdcall;
  1503.     function Get_AllowSubstringMatch(out AllowSubstringMatch: Integer): HResult; stdcall;
  1504.     function Get_CanCheckBaseClass(out CanCheckBaseClass: Integer): HResult; stdcall;
  1505.     function Get_NeedsAdviseEvents(out adviseEvents: Integer): HResult; stdcall;
  1506.     function Set__className(ClassName: PWideChar): HResult; stdcall;
  1507.     function Set_ImageName(ImageName: PWideChar): HResult; stdcall;
  1508.     function Set_AllowSubstringMatch(AllowSubstringMatch: Integer): HResult; stdcall;
  1509.     function Set_CanCheckBaseClass(CanCheckBaseClass: Integer): HResult; stdcall;
  1510.     function Set_NeedsAdviseEvents(adviseEvents: Integer): HResult; stdcall;
  1511.     function SetWinEventsForAutomationEvent(eventId: SYSINT; propertyId: SYSINT;
  1512.                                             winEvents: PSafeArray): HResult; stdcall;
  1513.     function GetWinEventsForAutomationEvent(eventId: SYSINT; propertyId: SYSINT;
  1514.                                             out winEvents: PSafeArray): HResult; stdcall;
  1515.   end;
  1516.  
  1517. // *********************************************************************//
  1518. // インターフェイス: IUIAutomationProxyFactoryMapping
  1519. // フラグ: (0)
  1520. // GUID: {09E31E18-872D-4873-93D1-1E541EC133FD}
  1521. // *********************************************************************//
  1522.   IUIAutomationProxyFactoryMapping = interface(IUnknown)
  1523.     ['{09E31E18-872D-4873-93D1-1E541EC133FD}']
  1524.     function Get_count(out count: SYSUINT): HResult; stdcall;
  1525.     function GetTable(out table: PSafeArray): HResult; stdcall;
  1526.     function GetEntry(index: SYSUINT; out entry: IUIAutomationProxyFactoryEntry): HResult; stdcall;
  1527.     function SetTable(factoryList: PSafeArray): HResult; stdcall;
  1528.     function InsertEntries(before: SYSUINT; factoryList: PSafeArray): HResult; stdcall;
  1529.     function InsertEntry(before: SYSUINT; const factory: IUIAutomationProxyFactoryEntry): HResult; stdcall;
  1530.     function RemoveEntry(index: SYSUINT): HResult; stdcall;
  1531.     function ClearTable: HResult; stdcall;
  1532.     function RestoreDefaultTable: HResult; stdcall;
  1533.   end;
  1534.  
  1535. // *********************************************************************//
  1536. // インターフェイス: IUIAutomation
  1537. // フラグ: (0)
  1538. // GUID: {30CBE57D-D9D0-452A-AB13-7AC5AC4825EE}
  1539. // *********************************************************************//
  1540.   IUIAutomation = interface(IUnknown)
  1541.     ['{30CBE57D-D9D0-452A-AB13-7AC5AC4825EE}']
  1542.     function CompareElements(const el1: IUIAutomationElement; const el2: IUIAutomationElement;
  1543.                              out areSame: Integer): HResult; stdcall;
  1544.     function CompareRuntimeIds(runtimeId1: PSafeArray; runtimeId2: PSafeArray; out areSame: Integer): HResult; stdcall;
  1545.     function GetRootElement(out root: IUIAutomationElement): HResult; stdcall;
  1546.     function ElementFromHandle(hwnd: HWND; out element: IUIAutomationElement): HResult; stdcall;
  1547.     function ElementFromPoint(pt: tagPOINT; out element: IUIAutomationElement): HResult; stdcall;
  1548.     function GetFocusedElement(out element: IUIAutomationElement): HResult; stdcall;
  1549.     function GetRootElementBuildCache(const cacheRequest: IUIAutomationCacheRequest;
  1550.                                       out root: IUIAutomationElement): HResult; stdcall;
  1551.     function ElementFromHandleBuildCache(hwnd: HWND;
  1552.                                          const cacheRequest: IUIAutomationCacheRequest;
  1553.                                          out element: IUIAutomationElement): HResult; stdcall;
  1554.     function ElementFromPointBuildCache(pt: tagPOINT;
  1555.                                         const cacheRequest: IUIAutomationCacheRequest;
  1556.                                         out element: IUIAutomationElement): HResult; stdcall;
  1557.     function GetFocusedElementBuildCache(const cacheRequest: IUIAutomationCacheRequest;
  1558.                                          out element: IUIAutomationElement): HResult; stdcall;
  1559.     function CreateTreeWalker(const pCondition: IUIAutomationCondition;
  1560.                               out walker: IUIAutomationTreeWalker): HResult; stdcall;
  1561.     function Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult; stdcall;
  1562.     function Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult; stdcall;
  1563.     function Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult; stdcall;
  1564.     function Get_RawViewCondition(out condition: IUIAutomationCondition): HResult; stdcall;
  1565.     function Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult; stdcall;
  1566.     function Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult; stdcall;
  1567.     function CreateCacheRequest(out cacheRequest: IUIAutomationCacheRequest): HResult; stdcall;
  1568.     function CreateTrueCondition(out newCondition: IUIAutomationCondition): HResult; stdcall;
  1569.     function CreateFalseCondition(out newCondition: IUIAutomationCondition): HResult; stdcall;
  1570.     function CreatePropertyCondition(propertyId: SYSINT; value: OleVariant;
  1571.                                      out newCondition: IUIAutomationCondition): HResult; stdcall;
  1572.     function CreatePropertyConditionEx(propertyId: SYSINT; value: OleVariant;
  1573.                                        flags: PropertyConditionFlags;
  1574.                                        out newCondition: IUIAutomationCondition): HResult; stdcall;
  1575.     function CreateAndCondition(const condition1: IUIAutomationCondition;
  1576.                                 const condition2: IUIAutomationCondition;
  1577.                                 out newCondition: IUIAutomationCondition): HResult; stdcall;
  1578.     function CreateAndConditionFromArray(conditions: PSafeArray;
  1579.                                          out newCondition: IUIAutomationCondition): HResult; stdcall;
  1580.     function CreateAndConditionFromNativeArray(var conditions: IUIAutomationCondition;
  1581.                                                conditionCount: SYSINT;
  1582.                                                out newCondition: IUIAutomationCondition): HResult; stdcall;
  1583.     function CreateOrCondition(const condition1: IUIAutomationCondition;
  1584.                                const condition2: IUIAutomationCondition;
  1585.                                out newCondition: IUIAutomationCondition): HResult; stdcall;
  1586.     function CreateOrConditionFromArray(conditions: PSafeArray;
  1587.                                         out newCondition: IUIAutomationCondition): HResult; stdcall;
  1588.     function CreateOrConditionFromNativeArray(var conditions: IUIAutomationCondition;
  1589.                                               conditionCount: SYSINT;
  1590.                                               out newCondition: IUIAutomationCondition): HResult; stdcall;
  1591.     function CreateNotCondition(const condition: IUIAutomationCondition;
  1592.                                 out newCondition: IUIAutomationCondition): HResult; stdcall;
  1593.     function AddAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement;
  1594.                                        scope: TreeScope;
  1595.                                        const cacheRequest: IUIAutomationCacheRequest;
  1596.                                        const handler: IUIAutomationEventHandler): HResult; stdcall;
  1597.     function RemoveAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement;
  1598.                                           const handler: IUIAutomationEventHandler): HResult; stdcall;
  1599.     function AddPropertyChangedEventHandlerNativeArray(const element: IUIAutomationElement;
  1600.                                                        scope: TreeScope;
  1601.                                                        const cacheRequest: IUIAutomationCacheRequest;
  1602.                                                        const handler: IUIAutomationPropertyChangedEventHandler;
  1603.                                                        var propertyArray: SYSINT;
  1604.                                                        propertyCount: SYSINT): HResult; stdcall;
  1605.     function AddPropertyChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope;
  1606.                                             const cacheRequest: IUIAutomationCacheRequest;
  1607.                                             const handler: IUIAutomationPropertyChangedEventHandler;
  1608.                                             propertyArray: PSafeArray): HResult; stdcall;
  1609.     function RemovePropertyChangedEventHandler(const element: IUIAutomationElement;
  1610.                                                const handler: IUIAutomationPropertyChangedEventHandler): HResult; stdcall;
  1611.     function AddStructureChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope;
  1612.                                              const cacheRequest: IUIAutomationCacheRequest;
  1613.                                              const handler: IUIAutomationStructureChangedEventHandler): HResult; stdcall;
  1614.     function RemoveStructureChangedEventHandler(const element: IUIAutomationElement;
  1615.                                                 const handler: IUIAutomationStructureChangedEventHandler): HResult; stdcall;
  1616.     function AddFocusChangedEventHandler(const cacheRequest: IUIAutomationCacheRequest;
  1617.                                          const handler: IUIAutomationFocusChangedEventHandler): HResult; stdcall;
  1618.     function RemoveFocusChangedEventHandler(const handler: IUIAutomationFocusChangedEventHandler): HResult; stdcall;
  1619.     function RemoveAllEventHandlers: HResult; stdcall;
  1620.     function IntNativeArrayToSafeArray(var array_: SYSINT; arrayCount: SYSINT;
  1621.                                        out safeArray: PSafeArray): HResult; stdcall;
  1622.     function IntSafeArrayToNativeArray(intArray: PSafeArray; out array_: PSYSINT1;
  1623.                                        out arrayCount: SYSINT): HResult; stdcall;
  1624.     function RectToVariant(rc: tagRECT; out var_: OleVariant): HResult; stdcall;
  1625.     function VariantToRect(var_: OleVariant; out rc: tagRECT): HResult; stdcall;
  1626.     function SafeArrayToRectNativeArray(rects: PSafeArray; out rectArray: PUserType2;
  1627.                                         out rectArrayCount: SYSINT): HResult; stdcall;
  1628.     function CreateProxyFactoryEntry(const factory: IUIAutomationProxyFactory;
  1629.                                      out factoryEntry: IUIAutomationProxyFactoryEntry): HResult; stdcall;
  1630.     function Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult; stdcall;
  1631.     function GetPropertyProgrammaticName(property_: SYSINT; out name: WideString): HResult; stdcall;
  1632.     function GetPatternProgrammaticName(pattern: SYSINT; out name: WideString): HResult; stdcall;
  1633.     function PollForPotentialSupportedPatterns(const pElement: IUIAutomationElement;
  1634.                                                out patternIds: PSafeArray;
  1635.                                                out patternNames: PSafeArray): HResult; stdcall;
  1636.     function PollForPotentialSupportedProperties(const pElement: IUIAutomationElement;
  1637.                                                  out propertyIds: PSafeArray;
  1638.                                                  out propertyNames: PSafeArray): HResult; stdcall;
  1639.     function CheckNotSupported(value: OleVariant; out isNotSupported: Integer): HResult; stdcall;
  1640.     function Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult; stdcall;
  1641.     function Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult; stdcall;
  1642.     function ElementFromIAccessible(const accessible: IAccessible; childId: SYSINT;
  1643.                                     out element: IUIAutomationElement): HResult; stdcall;
  1644.     function ElementFromIAccessibleBuildCache(const accessible: IAccessible; childId: SYSINT;
  1645.                                               const cacheRequest: IUIAutomationCacheRequest;
  1646.                                               out element: IUIAutomationElement): HResult; stdcall;
  1647.   end;
  1648.  
  1649. // *********************************************************************//
  1650. // クラス CUIAutomation は、Create および CreateRemote メソッドを使用して
  1651. // CoClass CUIAutomation が公開するデフォルトのインターフェイス IUIAutomation の
  1652. // インスタンスを作成する。このタイプ ライブラリのサーバーによって
  1653. // 公開された CoClass オブジェクトに対し、オートメーションを行いたい
  1654. // クライアントが用いるために、これらの関数が存在する。
  1655. // *********************************************************************//
  1656.   CoCUIAutomation = class
  1657.     class function Create: IUIAutomation;
  1658.     class function CreateRemote(const MachineName: string): IUIAutomation;
  1659.   end;
  1660.  
  1661.  
  1662. // *********************************************************************//
  1663. // OLE サーバー プロキシ クラス宣言
  1664. // サーバー オブジェクト: TCUIAutomation
  1665. // ヘルプ文字列: The Central Class for UIAutomation
  1666. // デフォルト インターフェイス: IUIAutomation
  1667. // デフォルト インターフェイス ディスパッチ?: No
  1668. // イベント インターフェイス:
  1669. // タイプ フラグ        : (2) CanCreate
  1670. // *********************************************************************//
  1671. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  1672.   TCUIAutomationProperties= class;
  1673. {$ENDIF}
  1674.   TCUIAutomation = class(TOleServer)
  1675.   private
  1676.     FIntf: IUIAutomation;
  1677. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  1678.     FProps: TCUIAutomationProperties;
  1679.     function GetServerProperties: TCUIAutomationProperties;
  1680. {$ENDIF}
  1681.     function GetDefaultInterface: IUIAutomation;
  1682.   protected
  1683.     procedure InitServerData; override;
  1684.     function Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  1685.     function Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  1686.     function Get_RawViewCondition(out condition: IUIAutomationCondition): HResult;
  1687.     function Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult;
  1688.     function Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult;
  1689.     function Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult;
  1690.     function Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult;
  1691.     function Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult;
  1692.   public
  1693.     constructor Create(AOwner: TComponent); override;
  1694.     destructor  Destroy; override;
  1695.     procedure Connect; override;
  1696.     procedure ConnectTo(svrIntf: IUIAutomation);
  1697.     procedure Disconnect; override;
  1698.     function Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  1699.     function CompareElements(const el1: IUIAutomationElement; const el2: IUIAutomationElement;
  1700.                              out areSame: Integer): HResult;
  1701.     function CompareRuntimeIds(runtimeId1: PSafeArray; runtimeId2: PSafeArray; out areSame: Integer): HResult;
  1702.     function GetRootElement(out root: IUIAutomationElement): HResult;
  1703.     function ElementFromHandle(hwnd: HWND; out element: IUIAutomationElement): HResult;
  1704.     function ElementFromPoint(pt: tagPOINT; out element: IUIAutomationElement): HResult;
  1705.     function GetFocusedElement(out element: IUIAutomationElement): HResult;
  1706.     function GetRootElementBuildCache(const cacheRequest: IUIAutomationCacheRequest;
  1707.                                       out root: IUIAutomationElement): HResult;
  1708.     function ElementFromHandleBuildCache(hwnd: HWND;
  1709.                                          const cacheRequest: IUIAutomationCacheRequest;
  1710.                                          out element: IUIAutomationElement): HResult;
  1711.     function ElementFromPointBuildCache(pt: tagPOINT;
  1712.                                         const cacheRequest: IUIAutomationCacheRequest;
  1713.                                         out element: IUIAutomationElement): HResult;
  1714.     function GetFocusedElementBuildCache(const cacheRequest: IUIAutomationCacheRequest;
  1715.                                          out element: IUIAutomationElement): HResult;
  1716.     function CreateTreeWalker(const pCondition: IUIAutomationCondition;
  1717.                               out walker: IUIAutomationTreeWalker): HResult;
  1718.     function CreateCacheRequest(out cacheRequest: IUIAutomationCacheRequest): HResult;
  1719.     function CreateTrueCondition(out newCondition: IUIAutomationCondition): HResult;
  1720.     function CreateFalseCondition(out newCondition: IUIAutomationCondition): HResult;
  1721.     function CreatePropertyCondition(propertyId: SYSINT; value: OleVariant;
  1722.                                      out newCondition: IUIAutomationCondition): HResult;
  1723.     function CreatePropertyConditionEx(propertyId: SYSINT; value: OleVariant;
  1724.                                        flags: PropertyConditionFlags;
  1725.                                        out newCondition: IUIAutomationCondition): HResult;
  1726.     function CreateAndCondition(const condition1: IUIAutomationCondition;
  1727.                                 const condition2: IUIAutomationCondition;
  1728.                                 out newCondition: IUIAutomationCondition): HResult;
  1729.     function CreateAndConditionFromArray(conditions: PSafeArray;
  1730.                                          out newCondition: IUIAutomationCondition): HResult;
  1731.     function CreateAndConditionFromNativeArray(var conditions: IUIAutomationCondition;
  1732.                                                conditionCount: SYSINT;
  1733.                                                out newCondition: IUIAutomationCondition): HResult;
  1734.     function CreateOrCondition(const condition1: IUIAutomationCondition;
  1735.                                const condition2: IUIAutomationCondition;
  1736.                                out newCondition: IUIAutomationCondition): HResult;
  1737.     function CreateOrConditionFromArray(conditions: PSafeArray;
  1738.                                         out newCondition: IUIAutomationCondition): HResult;
  1739.     function CreateOrConditionFromNativeArray(var conditions: IUIAutomationCondition;
  1740.                                               conditionCount: SYSINT;
  1741.                                               out newCondition: IUIAutomationCondition): HResult;
  1742.     function CreateNotCondition(const condition: IUIAutomationCondition;
  1743.                                 out newCondition: IUIAutomationCondition): HResult;
  1744.     function AddAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement;
  1745.                                        scope: TreeScope;
  1746.                                        const cacheRequest: IUIAutomationCacheRequest;
  1747.                                        const handler: IUIAutomationEventHandler): HResult;
  1748.     function RemoveAutomationEventHandler(eventId: SYSINT; const element: IUIAutomationElement;
  1749.                                           const handler: IUIAutomationEventHandler): HResult;
  1750.     function AddPropertyChangedEventHandlerNativeArray(const element: IUIAutomationElement;
  1751.                                                        scope: TreeScope;
  1752.                                                        const cacheRequest: IUIAutomationCacheRequest;
  1753.                                                        const handler: IUIAutomationPropertyChangedEventHandler;
  1754.                                                        var propertyArray: SYSINT;
  1755.                                                        propertyCount: SYSINT): HResult;
  1756.     function AddPropertyChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope;
  1757.                                             const cacheRequest: IUIAutomationCacheRequest;
  1758.                                             const handler: IUIAutomationPropertyChangedEventHandler;
  1759.                                             propertyArray: PSafeArray): HResult;
  1760.     function RemovePropertyChangedEventHandler(const element: IUIAutomationElement;
  1761.                                                const handler: IUIAutomationPropertyChangedEventHandler): HResult;
  1762.     function AddStructureChangedEventHandler(const element: IUIAutomationElement; scope: TreeScope;
  1763.                                              const cacheRequest: IUIAutomationCacheRequest;
  1764.                                              const handler: IUIAutomationStructureChangedEventHandler): HResult;
  1765.     function RemoveStructureChangedEventHandler(const element: IUIAutomationElement;
  1766.                                                 const handler: IUIAutomationStructureChangedEventHandler): HResult;
  1767.     function AddFocusChangedEventHandler(const cacheRequest: IUIAutomationCacheRequest;
  1768.                                          const handler: IUIAutomationFocusChangedEventHandler): HResult;
  1769.     function RemoveFocusChangedEventHandler(const handler: IUIAutomationFocusChangedEventHandler): HResult;
  1770.     function RemoveAllEventHandlers: HResult;
  1771.     function IntNativeArrayToSafeArray(var array_: SYSINT; arrayCount: SYSINT;
  1772.                                        out safeArray: PSafeArray): HResult;
  1773.     function IntSafeArrayToNativeArray(intArray: PSafeArray; out array_: PSYSINT1;
  1774.                                        out arrayCount: SYSINT): HResult;
  1775.     function RectToVariant(rc: tagRECT; out var_: OleVariant): HResult;
  1776.     function VariantToRect(var_: OleVariant; out rc: tagRECT): HResult;
  1777.     function SafeArrayToRectNativeArray(rects: PSafeArray; out rectArray: PUserType2;
  1778.                                         out rectArrayCount: SYSINT): HResult;
  1779.     function CreateProxyFactoryEntry(const factory: IUIAutomationProxyFactory;
  1780.                                      out factoryEntry: IUIAutomationProxyFactoryEntry): HResult;
  1781.     function GetPropertyProgrammaticName(property_: SYSINT; out name: WideString): HResult;
  1782.     function GetPatternProgrammaticName(pattern: SYSINT; out name: WideString): HResult;
  1783.     function PollForPotentialSupportedPatterns(const pElement: IUIAutomationElement;
  1784.                                                out patternIds: PSafeArray;
  1785.                                                out patternNames: PSafeArray): HResult;
  1786.     function PollForPotentialSupportedProperties(const pElement: IUIAutomationElement;
  1787.                                                  out propertyIds: PSafeArray;
  1788.                                                  out propertyNames: PSafeArray): HResult;
  1789.     function CheckNotSupported(value: OleVariant; out isNotSupported: Integer): HResult;
  1790.     function ElementFromIAccessible(const accessible: IAccessible; childId: SYSINT;
  1791.                                     out element: IUIAutomationElement): HResult;
  1792.     function ElementFromIAccessibleBuildCache(const accessible: IAccessible; childId: SYSINT;
  1793.                                               const cacheRequest: IUIAutomationCacheRequest;
  1794.                                               out element: IUIAutomationElement): HResult;
  1795.     property DefaultInterface: IUIAutomation read GetDefaultInterface;
  1796.   published
  1797. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  1798.     property Server: TCUIAutomationProperties read GetServerProperties;
  1799. {$ENDIF}
  1800.   end;
  1801.  
  1802. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  1803. // *********************************************************************//
  1804. // OLE サーバー プロパティ プロキシ クラス
  1805. // サーバー オブジェクト: TCUIAutomation
  1806. // (このオブジェクトは、このサーバーのプロパティを編集できるようにするため
  1807. // IDE のプロパティ インスペクタで使用されます)
  1808. // *********************************************************************//
  1809.  TCUIAutomationProperties = class(TPersistent)
  1810.   private
  1811.     FServer:    TCUIAutomation;
  1812.     function    GetDefaultInterface: IUIAutomation;
  1813.     constructor Create(AServer: TCUIAutomation);
  1814.   protected
  1815.     function Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  1816.     function Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  1817.     function Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  1818.     function Get_RawViewCondition(out condition: IUIAutomationCondition): HResult;
  1819.     function Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult;
  1820.     function Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult;
  1821.     function Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult;
  1822.     function Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult;
  1823.     function Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult;
  1824.   public
  1825.     property DefaultInterface: IUIAutomation read GetDefaultInterface;
  1826.   published
  1827.   end;
  1828. {$ENDIF}
  1829.  
  1830.  
  1831. procedure Register;
  1832.  
  1833. resourcestring
  1834.   dtlServerPage = 'Servers';
  1835.  
  1836.   dtlOcxPage = 'ActiveX';
  1837.  
  1838. implementation
  1839.  
  1840. uses ComObj;
  1841.  
  1842. class function CoCUIAutomation.Create: IUIAutomation;
  1843. begin
  1844.   Result := CreateComObject(CLASS_CUIAutomation) as IUIAutomation;
  1845. end;
  1846.  
  1847. class function CoCUIAutomation.CreateRemote(const MachineName: string): IUIAutomation;
  1848. begin
  1849.   Result := CreateRemoteComObject(MachineName, CLASS_CUIAutomation) as IUIAutomation;
  1850. end;
  1851.  
  1852. procedure TCUIAutomation.InitServerData;
  1853. const
  1854.   CServerData: TServerData = (
  1855.     ClassID:   '{FF48DBA4-60EF-4201-AA87-54103EEF594E}';
  1856.     IntfIID:   '{30CBE57D-D9D0-452A-AB13-7AC5AC4825EE}';
  1857.     EventIID:  '';
  1858.     LicenseKey: nil;
  1859.     Version: 500);
  1860. begin
  1861.   ServerData := @CServerData;
  1862. end;
  1863.  
  1864. procedure TCUIAutomation.Connect;
  1865. var
  1866.   punk: IUnknown;
  1867. begin
  1868.   if FIntf = nil then
  1869.   begin
  1870.     punk := GetServer;
  1871.     Fintf:= punk as IUIAutomation;
  1872.   end;
  1873. end;
  1874.  
  1875. procedure TCUIAutomation.ConnectTo(svrIntf: IUIAutomation);
  1876. begin
  1877.   Disconnect;
  1878.   FIntf := svrIntf;
  1879. end;
  1880.  
  1881. procedure TCUIAutomation.DisConnect;
  1882. begin
  1883.   if Fintf <> nil then
  1884.   begin
  1885.     FIntf := nil;
  1886.   end;
  1887. end;
  1888.  
  1889. function TCUIAutomation.GetDefaultInterface: IUIAutomation;
  1890. begin
  1891.   if FIntf = nil then
  1892.     Connect;
  1893.   Assert(FIntf <> nil, 'DefaultInterface が NULL です。コンポーネントはサーバーに接続していません。このオペレーションの前に "Connect" または "ConnectTo" を呼び出す必要があります。');
  1894.   Result := FIntf;
  1895. end;
  1896.  
  1897. constructor TCUIAutomation.Create(AOwner: TComponent);
  1898. begin
  1899.   inherited Create(AOwner);
  1900. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  1901.   FProps := TCUIAutomationProperties.Create(Self);
  1902. {$ENDIF}
  1903. end;
  1904.  
  1905. destructor TCUIAutomation.Destroy;
  1906. begin
  1907. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  1908.   FProps.Free;
  1909. {$ENDIF}
  1910.   inherited Destroy;
  1911. end;
  1912.  
  1913. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  1914. function TCUIAutomation.GetServerProperties: TCUIAutomationProperties;
  1915. begin
  1916.   Result := FProps;
  1917. end;
  1918. {$ENDIF}
  1919.  
  1920. function TCUIAutomation.Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  1921. begin
  1922.     Result := DefaultInterface.Get_ControlViewWalker(walker);
  1923. end;
  1924.  
  1925. function TCUIAutomation.Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  1926. begin
  1927.     Result := DefaultInterface.Get_ContentViewWalker(walker);
  1928. end;
  1929.  
  1930. function TCUIAutomation.Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  1931. begin
  1932.     Result := DefaultInterface.Get_RawViewWalker(walker);
  1933. end;
  1934.  
  1935. function TCUIAutomation.Get_RawViewCondition(out condition: IUIAutomationCondition): HResult;
  1936. begin
  1937.     Result := DefaultInterface.Get_RawViewCondition(condition);
  1938. end;
  1939.  
  1940. function TCUIAutomation.Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult;
  1941. begin
  1942.     Result := DefaultInterface.Get_ControlViewCondition(condition);
  1943. end;
  1944.  
  1945. function TCUIAutomation.Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult;
  1946. begin
  1947.     Result := DefaultInterface.Get_ContentViewCondition(condition);
  1948. end;
  1949.  
  1950. function TCUIAutomation.Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult;
  1951. begin
  1952.     Result := DefaultInterface.Get_ProxyFactoryMapping(factoryMapping);
  1953. end;
  1954.  
  1955. function TCUIAutomation.Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult;
  1956. begin
  1957.     Result := DefaultInterface.Get_ReservedNotSupportedValue(notSupportedValue);
  1958. end;
  1959.  
  1960. function TCUIAutomation.Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult;
  1961. begin
  1962.     Result := DefaultInterface.Get_ReservedMixedAttributeValue(mixedAttributeValue);
  1963. end;
  1964.  
  1965. function TCUIAutomation.CompareElements(const el1: IUIAutomationElement;
  1966.                                         const el2: IUIAutomationElement; out areSame: Integer): HResult;
  1967. begin
  1968.   Result := DefaultInterface.CompareElements(el1, el2, areSame);
  1969. end;
  1970.  
  1971. function TCUIAutomation.CompareRuntimeIds(runtimeId1: PSafeArray; runtimeId2: PSafeArray;
  1972.                                           out areSame: Integer): HResult;
  1973. begin
  1974.   Result := DefaultInterface.CompareRuntimeIds(runtimeId1, runtimeId2, areSame);
  1975. end;
  1976.  
  1977. function TCUIAutomation.GetRootElement(out root: IUIAutomationElement): HResult;
  1978. begin
  1979.   Result := DefaultInterface.GetRootElement(root);
  1980. end;
  1981.  
  1982. function TCUIAutomation.ElementFromHandle(hwnd: HWND; out element: IUIAutomationElement): HResult;
  1983. begin
  1984.   Result := DefaultInterface.ElementFromHandle(hwnd, element);
  1985. end;
  1986.  
  1987. function TCUIAutomation.ElementFromPoint(pt: tagPOINT; out element: IUIAutomationElement): HResult;
  1988. begin
  1989.   Result := DefaultInterface.ElementFromPoint(pt, element);
  1990. end;
  1991.  
  1992. function TCUIAutomation.GetFocusedElement(out element: IUIAutomationElement): HResult;
  1993. begin
  1994.   Result := DefaultInterface.GetFocusedElement(element);
  1995. end;
  1996.  
  1997. function TCUIAutomation.GetRootElementBuildCache(const cacheRequest: IUIAutomationCacheRequest;
  1998.                                                  out root: IUIAutomationElement): HResult;
  1999. begin
  2000.   Result := DefaultInterface.GetRootElementBuildCache(cacheRequest, root);
  2001. end;
  2002.  
  2003. function TCUIAutomation.ElementFromHandleBuildCache(hwnd: HWND;
  2004.                                                     const cacheRequest: IUIAutomationCacheRequest;
  2005.                                                     out element: IUIAutomationElement): HResult;
  2006. begin
  2007.   Result := DefaultInterface.ElementFromHandleBuildCache(hwnd, cacheRequest, element);
  2008. end;
  2009.  
  2010. function TCUIAutomation.ElementFromPointBuildCache(pt: tagPOINT;
  2011.                                                    const cacheRequest: IUIAutomationCacheRequest;
  2012.                                                    out element: IUIAutomationElement): HResult;
  2013. begin
  2014.   Result := DefaultInterface.ElementFromPointBuildCache(pt, cacheRequest, element);
  2015. end;
  2016.  
  2017. function TCUIAutomation.GetFocusedElementBuildCache(const cacheRequest: IUIAutomationCacheRequest;
  2018.                                                     out element: IUIAutomationElement): HResult;
  2019. begin
  2020.   Result := DefaultInterface.GetFocusedElementBuildCache(cacheRequest, element);
  2021. end;
  2022.  
  2023. function TCUIAutomation.CreateTreeWalker(const pCondition: IUIAutomationCondition;
  2024.                                          out walker: IUIAutomationTreeWalker): HResult;
  2025. begin
  2026.   Result := DefaultInterface.CreateTreeWalker(pCondition, walker);
  2027. end;
  2028.  
  2029. function TCUIAutomation.CreateCacheRequest(out cacheRequest: IUIAutomationCacheRequest): HResult;
  2030. begin
  2031.   Result := DefaultInterface.CreateCacheRequest(cacheRequest);
  2032. end;
  2033.  
  2034. function TCUIAutomation.CreateTrueCondition(out newCondition: IUIAutomationCondition): HResult;
  2035. begin
  2036.   Result := DefaultInterface.CreateTrueCondition(newCondition);
  2037. end;
  2038.  
  2039. function TCUIAutomation.CreateFalseCondition(out newCondition: IUIAutomationCondition): HResult;
  2040. begin
  2041.   Result := DefaultInterface.CreateFalseCondition(newCondition);
  2042. end;
  2043.  
  2044. function TCUIAutomation.CreatePropertyCondition(propertyId: SYSINT; value: OleVariant;
  2045.                                                 out newCondition: IUIAutomationCondition): HResult;
  2046. begin
  2047.   Result := DefaultInterface.CreatePropertyCondition(propertyId, value, newCondition);
  2048. end;
  2049.  
  2050. function TCUIAutomation.CreatePropertyConditionEx(propertyId: SYSINT; value: OleVariant;
  2051.                                                   flags: PropertyConditionFlags;
  2052.                                                   out newCondition: IUIAutomationCondition): HResult;
  2053. begin
  2054.   Result := DefaultInterface.CreatePropertyConditionEx(propertyId, value, flags, newCondition);
  2055. end;
  2056.  
  2057. function TCUIAutomation.CreateAndCondition(const condition1: IUIAutomationCondition;
  2058.                                            const condition2: IUIAutomationCondition;
  2059.                                            out newCondition: IUIAutomationCondition): HResult;
  2060. begin
  2061.   Result := DefaultInterface.CreateAndCondition(condition1, condition2, newCondition);
  2062. end;
  2063.  
  2064. function TCUIAutomation.CreateAndConditionFromArray(conditions: PSafeArray;
  2065.                                                     out newCondition: IUIAutomationCondition): HResult;
  2066. begin
  2067.   Result := DefaultInterface.CreateAndConditionFromArray(conditions, newCondition);
  2068. end;
  2069.  
  2070. function TCUIAutomation.CreateAndConditionFromNativeArray(var conditions: IUIAutomationCondition;
  2071.                                                           conditionCount: SYSINT;
  2072.                                                           out newCondition: IUIAutomationCondition): HResult;
  2073. begin
  2074.   Result := DefaultInterface.CreateAndConditionFromNativeArray(conditions, conditionCount,
  2075.                                                                newCondition);
  2076. end;
  2077.  
  2078. function TCUIAutomation.CreateOrCondition(const condition1: IUIAutomationCondition;
  2079.                                           const condition2: IUIAutomationCondition;
  2080.                                           out newCondition: IUIAutomationCondition): HResult;
  2081. begin
  2082.   Result := DefaultInterface.CreateOrCondition(condition1, condition2, newCondition);
  2083. end;
  2084.  
  2085. function TCUIAutomation.CreateOrConditionFromArray(conditions: PSafeArray;
  2086.                                                    out newCondition: IUIAutomationCondition): HResult;
  2087. begin
  2088.   Result := DefaultInterface.CreateOrConditionFromArray(conditions, newCondition);
  2089. end;
  2090.  
  2091. function TCUIAutomation.CreateOrConditionFromNativeArray(var conditions: IUIAutomationCondition;
  2092.                                                          conditionCount: SYSINT;
  2093.                                                          out newCondition: IUIAutomationCondition): HResult;
  2094. begin
  2095.   Result := DefaultInterface.CreateOrConditionFromNativeArray(conditions, conditionCount,
  2096.                                                               newCondition);
  2097. end;
  2098.  
  2099. function TCUIAutomation.CreateNotCondition(const condition: IUIAutomationCondition;
  2100.                                            out newCondition: IUIAutomationCondition): HResult;
  2101. begin
  2102.   Result := DefaultInterface.CreateNotCondition(condition, newCondition);
  2103. end;
  2104.  
  2105. function TCUIAutomation.AddAutomationEventHandler(eventId: SYSINT;
  2106.                                                   const element: IUIAutomationElement;
  2107.                                                   scope: TreeScope;
  2108.                                                   const cacheRequest: IUIAutomationCacheRequest;
  2109.                                                   const handler: IUIAutomationEventHandler): HResult;
  2110. begin
  2111.   Result := DefaultInterface.AddAutomationEventHandler(eventId, element, scope, cacheRequest,
  2112.                                                        handler);
  2113. end;
  2114.  
  2115. function TCUIAutomation.RemoveAutomationEventHandler(eventId: SYSINT;
  2116.                                                      const element: IUIAutomationElement;
  2117.                                                      const handler: IUIAutomationEventHandler): HResult;
  2118. begin
  2119.   Result := DefaultInterface.RemoveAutomationEventHandler(eventId, element, handler);
  2120. end;
  2121.  
  2122. function TCUIAutomation.AddPropertyChangedEventHandlerNativeArray(const element: IUIAutomationElement;
  2123.                                                                   scope: TreeScope;
  2124.                                                                   const cacheRequest: IUIAutomationCacheRequest;
  2125.                                                                   const handler: IUIAutomationPropertyChangedEventHandler;
  2126.                                                                   var propertyArray: SYSINT;
  2127.                                                                   propertyCount: SYSINT): HResult;
  2128. begin
  2129.   Result := DefaultInterface.AddPropertyChangedEventHandlerNativeArray(element, scope,
  2130.                                                                        cacheRequest, handler,
  2131.                                                                        propertyArray, propertyCount);
  2132. end;
  2133.  
  2134. function TCUIAutomation.AddPropertyChangedEventHandler(const element: IUIAutomationElement;
  2135.                                                        scope: TreeScope;
  2136.                                                        const cacheRequest: IUIAutomationCacheRequest;
  2137.                                                        const handler: IUIAutomationPropertyChangedEventHandler;
  2138.                                                        propertyArray: PSafeArray): HResult;
  2139. begin
  2140.   Result := DefaultInterface.AddPropertyChangedEventHandler(element, scope, cacheRequest, handler,
  2141.                                                             propertyArray);
  2142. end;
  2143.  
  2144. function TCUIAutomation.RemovePropertyChangedEventHandler(const element: IUIAutomationElement;
  2145.                                                           const handler: IUIAutomationPropertyChangedEventHandler): HResult;
  2146. begin
  2147.   Result := DefaultInterface.RemovePropertyChangedEventHandler(element, handler);
  2148. end;
  2149.  
  2150. function TCUIAutomation.AddStructureChangedEventHandler(const element: IUIAutomationElement;
  2151.                                                         scope: TreeScope;
  2152.                                                         const cacheRequest: IUIAutomationCacheRequest;
  2153.                                                         const handler: IUIAutomationStructureChangedEventHandler): HResult;
  2154. begin
  2155.   Result := DefaultInterface.AddStructureChangedEventHandler(element, scope, cacheRequest, handler);
  2156. end;
  2157.  
  2158. function TCUIAutomation.RemoveStructureChangedEventHandler(const element: IUIAutomationElement;
  2159.                                                            const handler: IUIAutomationStructureChangedEventHandler): HResult;
  2160. begin
  2161.   Result := DefaultInterface.RemoveStructureChangedEventHandler(element, handler);
  2162. end;
  2163.  
  2164. function TCUIAutomation.AddFocusChangedEventHandler(const cacheRequest: IUIAutomationCacheRequest;
  2165.                                                     const handler: IUIAutomationFocusChangedEventHandler): HResult;
  2166. begin
  2167.   Result := DefaultInterface.AddFocusChangedEventHandler(cacheRequest, handler);
  2168. end;
  2169.  
  2170. function TCUIAutomation.RemoveFocusChangedEventHandler(const handler: IUIAutomationFocusChangedEventHandler): HResult;
  2171. begin
  2172.   Result := DefaultInterface.RemoveFocusChangedEventHandler(handler);
  2173. end;
  2174.  
  2175. function TCUIAutomation.RemoveAllEventHandlers: HResult;
  2176. begin
  2177.   Result := DefaultInterface.RemoveAllEventHandlers;
  2178. end;
  2179.  
  2180. function TCUIAutomation.IntNativeArrayToSafeArray(var array_: SYSINT; arrayCount: SYSINT;
  2181.                                                   out safeArray: PSafeArray): HResult;
  2182. begin
  2183.   Result := DefaultInterface.IntNativeArrayToSafeArray(array_, arrayCount, safeArray);
  2184. end;
  2185.  
  2186. function TCUIAutomation.IntSafeArrayToNativeArray(intArray: PSafeArray; out array_: PSYSINT1;
  2187.                                                   out arrayCount: SYSINT): HResult;
  2188. begin
  2189.   Result := DefaultInterface.IntSafeArrayToNativeArray(intArray, array_, arrayCount);
  2190. end;
  2191.  
  2192. function TCUIAutomation.RectToVariant(rc: tagRECT; out var_: OleVariant): HResult;
  2193. begin
  2194.   Result := DefaultInterface.RectToVariant(rc, var_);
  2195. end;
  2196.  
  2197. function TCUIAutomation.VariantToRect(var_: OleVariant; out rc: tagRECT): HResult;
  2198. begin
  2199.   Result := DefaultInterface.VariantToRect(var_, rc);
  2200. end;
  2201.  
  2202. function TCUIAutomation.SafeArrayToRectNativeArray(rects: PSafeArray; out rectArray: PUserType2;
  2203.                                                    out rectArrayCount: SYSINT): HResult;
  2204. begin
  2205.   Result := DefaultInterface.SafeArrayToRectNativeArray(rects, rectArray, rectArrayCount);
  2206. end;
  2207.  
  2208. function TCUIAutomation.CreateProxyFactoryEntry(const factory: IUIAutomationProxyFactory;
  2209.                                                 out factoryEntry: IUIAutomationProxyFactoryEntry): HResult;
  2210. begin
  2211.   Result := DefaultInterface.CreateProxyFactoryEntry(factory, factoryEntry);
  2212. end;
  2213.  
  2214. function TCUIAutomation.GetPropertyProgrammaticName(property_: SYSINT; out name: WideString): HResult;
  2215. begin
  2216.   Result := DefaultInterface.GetPropertyProgrammaticName(property_, name);
  2217. end;
  2218.  
  2219. function TCUIAutomation.GetPatternProgrammaticName(pattern: SYSINT; out name: WideString): HResult;
  2220. begin
  2221.   Result := DefaultInterface.GetPatternProgrammaticName(pattern, name);
  2222. end;
  2223.  
  2224. function TCUIAutomation.PollForPotentialSupportedPatterns(const pElement: IUIAutomationElement;
  2225.                                                           out patternIds: PSafeArray;
  2226.                                                           out patternNames: PSafeArray): HResult;
  2227. begin
  2228.   Result := DefaultInterface.PollForPotentialSupportedPatterns(pElement, patternIds, patternNames);
  2229. end;
  2230.  
  2231. function TCUIAutomation.PollForPotentialSupportedProperties(const pElement: IUIAutomationElement;
  2232.                                                             out propertyIds: PSafeArray;
  2233.                                                             out propertyNames: PSafeArray): HResult;
  2234. begin
  2235.   Result := DefaultInterface.PollForPotentialSupportedProperties(pElement, propertyIds,
  2236.                                                                  propertyNames);
  2237. end;
  2238.  
  2239. function TCUIAutomation.CheckNotSupported(value: OleVariant; out isNotSupported: Integer): HResult;
  2240. begin
  2241.   Result := DefaultInterface.CheckNotSupported(value, isNotSupported);
  2242. end;
  2243.  
  2244. function TCUIAutomation.ElementFromIAccessible(const accessible: IAccessible; childId: SYSINT;
  2245.                                                out element: IUIAutomationElement): HResult;
  2246. begin
  2247.   Result := DefaultInterface.ElementFromIAccessible(accessible, childId, element);
  2248. end;
  2249.  
  2250. function TCUIAutomation.ElementFromIAccessibleBuildCache(const accessible: IAccessible;
  2251.                                                          childId: SYSINT;
  2252.                                                          const cacheRequest: IUIAutomationCacheRequest;
  2253.                                                          out element: IUIAutomationElement): HResult;
  2254. begin
  2255.   Result := DefaultInterface.ElementFromIAccessibleBuildCache(accessible, childId, cacheRequest,
  2256.                                                               element);
  2257. end;
  2258.  
  2259. {$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
  2260. constructor TCUIAutomationProperties.Create(AServer: TCUIAutomation);
  2261. begin
  2262.   inherited Create;
  2263.   FServer := AServer;
  2264. end;
  2265.  
  2266. function TCUIAutomationProperties.GetDefaultInterface: IUIAutomation;
  2267. begin
  2268.   Result := FServer.DefaultInterface;
  2269. end;
  2270.  
  2271. function TCUIAutomationProperties.Get_ControlViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  2272. begin
  2273.     Result := DefaultInterface.Get_ControlViewWalker(walker);
  2274. end;
  2275.  
  2276. function TCUIAutomationProperties.Get_ContentViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  2277. begin
  2278.     Result := DefaultInterface.Get_ContentViewWalker(walker);
  2279. end;
  2280.  
  2281. function TCUIAutomationProperties.Get_RawViewWalker(out walker: IUIAutomationTreeWalker): HResult;
  2282. begin
  2283.     Result := DefaultInterface.Get_RawViewWalker(walker);
  2284. end;
  2285.  
  2286. function TCUIAutomationProperties.Get_RawViewCondition(out condition: IUIAutomationCondition): HResult;
  2287. begin
  2288.     Result := DefaultInterface.Get_RawViewCondition(condition);
  2289. end;
  2290.  
  2291. function TCUIAutomationProperties.Get_ControlViewCondition(out condition: IUIAutomationCondition): HResult;
  2292. begin
  2293.     Result := DefaultInterface.Get_ControlViewCondition(condition);
  2294. end;
  2295.  
  2296. function TCUIAutomationProperties.Get_ContentViewCondition(out condition: IUIAutomationCondition): HResult;
  2297. begin
  2298.     Result := DefaultInterface.Get_ContentViewCondition(condition);
  2299. end;
  2300.  
  2301. function TCUIAutomationProperties.Get_ProxyFactoryMapping(out factoryMapping: IUIAutomationProxyFactoryMapping): HResult;
  2302. begin
  2303.     Result := DefaultInterface.Get_ProxyFactoryMapping(factoryMapping);
  2304. end;
  2305.  
  2306. function TCUIAutomationProperties.Get_ReservedNotSupportedValue(out notSupportedValue: IUnknown): HResult;
  2307. begin
  2308.     Result := DefaultInterface.Get_ReservedNotSupportedValue(notSupportedValue);
  2309. end;
  2310.  
  2311. function TCUIAutomationProperties.Get_ReservedMixedAttributeValue(out mixedAttributeValue: IUnknown): HResult;
  2312. begin
  2313.     Result := DefaultInterface.Get_ReservedMixedAttributeValue(mixedAttributeValue);
  2314. end;
  2315.  
  2316. {$ENDIF}
  2317.  
  2318. procedure Register;
  2319. begin
  2320.   RegisterComponents(dtlServerPage, [TCUIAutomation]);
  2321. end;
  2322.  
  2323. end.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!