source: cprs/trunk/VA/VA508Accessibility/oleacc2.pas@ 1085

Last change on this file since 1085 was 829, checked in by Kevin Toppenberg, 14 years ago

Upgrade to version 27
File size: 14.2 KB
RevLine 
[829]1unit oleacc2;
2(******************************************************************************
3 * WARNING *
4 * ------- *
5 * The types declared in this file were generated from data read from a *
6 * Type Library. Then the file was manually cleaned up. Do not regenerate *
7 * this file! *
8 * *
9 ******************************************************************************)
10{$TYPEDADDRESS OFF} // Unit must be compiled without type-checked pointers.
11{$WARN SYMBOL_PLATFORM OFF}
12{$WRITEABLECONST ON}
13{$VARPROPSETTER ON}
14
15// ************************************************************************ //
16// PASTLWTR : 1.2
17// File generated on 05/31/2006 09:18:28 AM from Type Library described below.
18
19// ************************************************************************ //
20// Type Lib: C:\WINDOWS\system32\oleacc.dll (1)
21// LIBID: {1EA4DBF0-3C3B-11CF-810C-00AA00389B71}
22// LCID: 0
23// Helpfile:
24// HelpString:
25// DepndLst:
26// (1) v2.0 stdole, (C:\WINDOWS\system32\stdole2.tlb)
27// ************************************************************************ //
28interface
29
30uses
31 Windows, ActiveX, Classes, Graphics, OleServer, StdVCL, Variants;
32
33// *********************************************************************//
34// GUIDS declared in the TypeLibrary. Following prefixes are used:
35// Type Libraries : LIBID_xxxx
36// CoClasses : CLASS_xxxx
37// DISPInterfaces : DIID_xxxx
38// Non-DISP interfaces: IID_xxxx
39// *********************************************************************//
40const
41 // TypeLibrary Major and minor versions
42 AccessibilityMajorVersion = 1;
43 AccessibilityMinorVersion = 1;
44
45 LIBID_Accessibility: TGUID = '{1EA4DBF0-3C3B-11CF-810C-00AA00389B71}';
46
47 IID_IAccessible: TGUID = '{618736E0-3C3D-11CF-810C-00AA00389B71}';
48 IID_IAccessibleHandler: TGUID = '{03022430-ABC4-11D0-BDE2-00AA001A1953}';
49 IID_IAccIdentity: TGUID = '{7852B78D-1CFD-41C1-A615-9C0C85960B5F}';
50 IID_IAccPropServer: TGUID = '{76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}';
51 IID_IAccPropServices: TGUID = '{6E26E776-04F0-495D-80E4-3330352E3169}';
52 CLASS_CAccPropServices: TGUID = '{B5F8350B-0548-48B1-A6EE-88BD00B4A5E7}';
53
54// *********************************************************************//
55// Declaration of Enumerations defined in Type Library
56// *********************************************************************//
57// Constants for enum AnnoScope
58type
59 AnnoScope = TOleEnum;
60 MSAAPROPID = TGUID;
61 PMSAAPROPID = ^TGUID;
62
63const
64 ANNO_THIS = $00000000;
65 ANNO_CONTAINER = $00000001;
66
67type
68
69// *********************************************************************//
70// Forward declaration of types defined in TypeLibrary
71// *********************************************************************//
72 IAccessible = interface;
73 IAccessibleDisp = dispinterface;
74 IAccessibleHandler = interface;
75 IAccIdentity = interface;
76 IAccPropServer = interface;
77 IAccPropServices = interface;
78
79// *********************************************************************//
80// Declaration of CoClasses defined in Type Library
81// (NOTE: Here we map each CoClass to its Default Interface)
82// *********************************************************************//
83 CAccPropServices = IAccPropServices;
84
85// *********************************************************************//
86// Interface: IAccessible
87// Flags: (4432) Hidden Dual OleAutomation Dispatchable
88// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
89// *********************************************************************//
90 IAccessible = interface(IDispatch)
91 ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
92 function Get_accParent: IDispatch; safecall;
93 function Get_accChildCount: Integer; safecall;
94 function Get_accChild(varChild: OleVariant): IDispatch; safecall;
95 function Get_accName(varChild: OleVariant): WideString; safecall;
96 function Get_accValue(varChild: OleVariant): WideString; safecall;
97 function Get_accDescription(varChild: OleVariant): WideString; safecall;
98 function Get_accRole(varChild: OleVariant): OleVariant; safecall;
99 function Get_accState(varChild: OleVariant): OleVariant; safecall;
100 function Get_accHelp(varChild: OleVariant): WideString; safecall;
101 function Get_accHelpTopic(out pszHelpFile: WideString; varChild: OleVariant): Integer; safecall;
102 function Get_accKeyboardShortcut(varChild: OleVariant): WideString; safecall;
103 function Get_accFocus: OleVariant; safecall;
104 function Get_accSelection: OleVariant; safecall;
105 function Get_accDefaultAction(varChild: OleVariant): WideString; safecall;
106 procedure accSelect(flagsSelect: Integer; varChild: OleVariant); safecall;
107 procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
108 out pcyHeight: Integer; varChild: OleVariant); safecall;
109 function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; safecall;
110 function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; safecall;
111 procedure accDoDefaultAction(varChild: OleVariant); safecall;
112 procedure Set_accName(varChild: OleVariant; const pszName: WideString); safecall;
113 procedure Set_accValue(varChild: OleVariant; const pszValue: WideString); safecall;
114 property accParent: IDispatch read Get_accParent;
115 property accChildCount: Integer read Get_accChildCount;
116 property accChild[varChild: OleVariant]: IDispatch read Get_accChild;
117 property accName[varChild: OleVariant]: WideString read Get_accName write Set_accName;
118 property accValue[varChild: OleVariant]: WideString read Get_accValue write Set_accValue;
119 property accDescription[varChild: OleVariant]: WideString read Get_accDescription;
120 property accRole[varChild: OleVariant]: OleVariant read Get_accRole;
121 property accState[varChild: OleVariant]: OleVariant read Get_accState;
122 property accHelp[varChild: OleVariant]: WideString read Get_accHelp;
123 property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer read Get_accHelpTopic;
124 property accKeyboardShortcut[varChild: OleVariant]: WideString read Get_accKeyboardShortcut;
125 property accFocus: OleVariant read Get_accFocus;
126 property accSelection: OleVariant read Get_accSelection;
127 property accDefaultAction[varChild: OleVariant]: WideString read Get_accDefaultAction;
128 end;
129
130// *********************************************************************//
131// DispIntf: IAccessibleDisp
132// Flags: (4432) Hidden Dual OleAutomation Dispatchable
133// GUID: {618736E0-3C3D-11CF-810C-00AA00389B71}
134// *********************************************************************//
135 IAccessibleDisp = dispinterface
136 ['{618736E0-3C3D-11CF-810C-00AA00389B71}']
137 property accParent: IDispatch readonly dispid -5000;
138 property accChildCount: Integer readonly dispid -5001;
139 property accChild[varChild: OleVariant]: IDispatch readonly dispid -5002;
140 property accName[varChild: OleVariant]: WideString dispid -5003;
141 property accValue[varChild: OleVariant]: WideString dispid -5004;
142 property accDescription[varChild: OleVariant]: WideString readonly dispid -5005;
143 property accRole[varChild: OleVariant]: OleVariant readonly dispid -5006;
144 property accState[varChild: OleVariant]: OleVariant readonly dispid -5007;
145 property accHelp[varChild: OleVariant]: WideString readonly dispid -5008;
146 property accHelpTopic[out pszHelpFile: WideString; varChild: OleVariant]: Integer readonly dispid -5009;
147 property accKeyboardShortcut[varChild: OleVariant]: WideString readonly dispid -5010;
148 property accFocus: OleVariant readonly dispid -5011;
149 property accSelection: OleVariant readonly dispid -5012;
150 property accDefaultAction[varChild: OleVariant]: WideString readonly dispid -5013;
151 procedure accSelect(flagsSelect: Integer; varChild: OleVariant); dispid -5014;
152 procedure accLocation(out pxLeft: Integer; out pyTop: Integer; out pcxWidth: Integer;
153 out pcyHeight: Integer; varChild: OleVariant); dispid -5015;
154 function accNavigate(navDir: Integer; varStart: OleVariant): OleVariant; dispid -5016;
155 function accHitTest(xLeft: Integer; yTop: Integer): OleVariant; dispid -5017;
156 procedure accDoDefaultAction(varChild: OleVariant); dispid -5018;
157 end;
158
159// *********************************************************************//
160// Interface: IAccessibleHandler
161// Flags: (272) Hidden OleAutomation
162// GUID: {03022430-ABC4-11D0-BDE2-00AA001A1953}
163// *********************************************************************//
164 IAccessibleHandler = interface(IUnknown)
165 ['{03022430-ABC4-11D0-BDE2-00AA001A1953}']
166 function AccessibleObjectFromID(hwnd: Integer; lObjectID: Integer;
167 out pIAccessible: IAccessible): HResult; stdcall;
168 end;
169
170// *********************************************************************//
171// Interface: IAccIdentity
172// Flags: (0)
173// GUID: {7852B78D-1CFD-41C1-A615-9C0C85960B5F}
174// *********************************************************************//
175 IAccIdentity = interface(IUnknown)
176 ['{7852B78D-1CFD-41C1-A615-9C0C85960B5F}']
177 function GetIdentityString(dwIDChild: LongWord; out ppIDString: PByte;
178 out pdwIDStringLen: LongWord): HResult; stdcall;
179 end;
180
181// *********************************************************************//
182// Interface: IAccPropServer
183// Flags: (0)
184// GUID: {76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}
185// *********************************************************************//
186 IAccPropServer = interface(IUnknown)
187 ['{76C0DBBB-15E0-4E7B-B61B-20EEEA2001E0}']
188 function GetPropValue(const pIDString: PByte; dwIDStringLen: LongWord; idProp: MSAAPROPID;
189 out pvarValue: OleVariant; out pfHasProp: Integer): HResult; stdcall;
190 end;
191
192// *********************************************************************//
193// Interface: IAccPropServices
194// Flags: (0)
195// GUID: {6E26E776-04F0-495D-80E4-3330352E3169}
196// *********************************************************************//
197 IAccPropServices = interface(IUnknown)
198 ['{6E26E776-04F0-495D-80E4-3330352E3169}']
199 function SetPropValue(const pIDString: PByte; dwIDStringLen: LongWord; idProp: MSAAPROPID;
200 varValue: OleVariant): HResult; stdcall;
201 function SetPropServer(const pIDString: PByte; dwIDStringLen: LongWord; paProps: PMSAAPROPID;
202 cProps: SYSINT; const pServer: IAccPropServer; AnnoScope: AnnoScope): HResult; stdcall;
203 function ClearProps(const pIDString: PByte; dwIDStringLen: LongWord; paProps: PMSAAPROPID;
204 cProps: SYSINT): HResult; stdcall;
205 function SetHwndProp(hwnd: HWND; idObject: LongWord; idChild: LongWord;
206 idProp: MSAAPROPID; varValue: OleVariant): HResult; stdcall;
207 function SetHwndPropStr(hwnd: HWND; idObject: LongWord; idChild: LongWord;
208 idProp: MSAAPROPID; str: PWideChar): HResult; stdcall;
209 function SetHwndPropServer(hwnd: HWND; idObject: LongWord; idChild: LongWord;
210 paProps: PMSAAPROPID; cProps: SYSINT; const pServer: IAccPropServer;
211 AnnoScope: AnnoScope): HResult; stdcall;
212 function ClearHwndProps(hwnd: HWND; idObject: LongWord; idChild: LongWord;
213 paProps: PMSAAPROPID; cProps: SYSINT): HResult; stdcall;
214 function ComposeHwndIdentityString(hwnd: HWND; idObject: LongWord; idChild: LongWord;
215 out ppIDString: PByte; out pdwIDStringLen: LongWord): HResult; stdcall;
216 function DecomposeHwndIdentityString(const pIDString: PByte; dwIDStringLen: LongWord;
217 out phwnd: HWND; out pidObject: LongWord; out pidChild: LongWord): HResult; stdcall;
218 function SetHmenuProp(hmenu: HMENU; idChild: LongWord; idProp: MSAAPROPID;
219 varValue: OleVariant): HResult; stdcall;
220 function SetHmenuPropStr(hmenu: HMENU; idChild: LongWord; idProp: MSAAPROPID;
221 str: PWideChar): HResult; stdcall;
222 function SetHmenuPropServer(hmenu: HMENU; idChild: LongWord; paProps: PMSAAPROPID;
223 cProps: SYSINT; const pServer: IAccPropServer; AnnoScope: AnnoScope): HResult; stdcall;
224 function ClearHmenuProps(hmenu: HMENU; idChild: LongWord; paProps: PMSAAPROPID;
225 cProps: SYSINT): HResult; stdcall;
226 function ComposeHmenuIdentityString(hmenu: HMENU; idChild: LongWord;
227 out ppIDString: PByte; out pdwIDStringLen: LongWord): HResult; stdcall;
228 function DecomposeHmenuIdentityString(const pIDString: PByte; dwIDStringLen: LongWord;
229 out phmenu: HMENU; out pidChild: LongWord): HResult; stdcall;
230 end;
231
232// *********************************************************************//
233// The Class CoCAccPropServices provides a Create and CreateRemote method to
234// create instances of the default interface IAccPropServices exposed by
235// the CoClass CAccPropServices. The functions are intended to be used by
236// clients wishing to automate the CoClass objects exposed by the
237// server of this typelibrary.
238// *********************************************************************//
239 CoCAccPropServices = class
240 class function Create: IAccPropServices;
241 class function CreateRemote(const MachineName: string): IAccPropServices;
242 end;
243
244// *********************************************************************//
245// Function definitions
246// *********************************************************************//
247
248function AccessibleObjectFromWindow(hwnd: HWND; dwObjectID: DWORD;
249 const riid: TGUID; out ppvObject: IAccessible): HResult; stdcall;
250 external 'OLEACC.DLL' name 'AccessibleObjectFromWindow';
251
252function AccessibleObjectFromPoint(pt: tagPOINT; out ppvObject: IAccessible;
253 out v1: Variant): HResult; stdcall;
254 external 'OLEACC.DLL' name 'AccessibleObjectFromPoint';
255
256implementation
257
258uses ComObj;
259
260class function CoCAccPropServices.Create: IAccPropServices;
261begin
262 Result := CreateComObject(CLASS_CAccPropServices) as IAccPropServices;
263end;
264
265class function CoCAccPropServices.CreateRemote(const MachineName: string): IAccPropServices;
266begin
267 Result := CreateRemoteComObject(MachineName, CLASS_CAccPropServices) as IAccPropServices;
268end;
269
270end.
Note: See TracBrowser for help on using the repository browser.