1 | 'oleidl.ab
|
---|
2 |
|
---|
3 | #require <objidl.sbp>
|
---|
4 |
|
---|
5 | Dim IID_IOleAdviseHolder = [&h00000111, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
---|
6 | Interface IOleAdviseHolder
|
---|
7 | Inherits IUnknown
|
---|
8 |
|
---|
9 | Function Advise(
|
---|
10 | /* [unique][in] */ Advise As IAdviseSink,
|
---|
11 | /* [out] */ ByRef dwConnection As DWord) As HRESULT
|
---|
12 | Function Unadvise(
|
---|
13 | /* [in] */ dwConnection As DWord) As HRESULT
|
---|
14 | Function EnumAdvise(
|
---|
15 | /* [out] */ ByRef enumAdvise As IEnumSTATDATA) As HRESULT
|
---|
16 | Function SendOnRename(
|
---|
17 | /* [unique][in] */ pmk As IMoniker) As HRESULT
|
---|
18 | Function SendOnSave() As HRESULT
|
---|
19 | Function SendOnClose() As HRESULT
|
---|
20 | End Interface
|
---|
21 |
|
---|
22 | 'IOleCache
|
---|
23 | 'IOleCache2
|
---|
24 | 'IOleCacheControl
|
---|
25 |
|
---|
26 | /* interface IParseDisplayName */
|
---|
27 | /* [unique][uuid][object] */
|
---|
28 |
|
---|
29 | Dim IID_IParseDisplayName = [&h0000011a, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
---|
30 |
|
---|
31 | Interface IParseDisplayName
|
---|
32 | Inherits IUnknown
|
---|
33 |
|
---|
34 | Function ParseDisplayName(
|
---|
35 | /* [unique][in] */ bc As IBindCtx,
|
---|
36 | /* [in] */ pszDisplayName As LPOLESTR,
|
---|
37 | /* [out] */ ByRef chEaten As DWord,
|
---|
38 | /* [out] */ ByRef mkOut As IMoniker) As HRESULT
|
---|
39 | End Interface
|
---|
40 |
|
---|
41 | /* interface IOleContainer */
|
---|
42 | /* [unique][uuid][object] */
|
---|
43 |
|
---|
44 | Dim IID_IOleContainer = [&h0000011b, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
---|
45 | Interface IOleContainer
|
---|
46 | Inherits IParseDisplayName
|
---|
47 |
|
---|
48 | Function EnumObjects(
|
---|
49 | /* [in] */ grfFlags As DWord,
|
---|
50 | /* [out] */ ByRef enumUnk As IEnumUnknown) As HRESULT
|
---|
51 | Function LockContainer(
|
---|
52 | /* [in] */ fLock As BOOL) As HRESULT
|
---|
53 | End Interface
|
---|
54 |
|
---|
55 | Const Enum OLERENDER
|
---|
56 | OLERENDER_NONE = 0
|
---|
57 | OLERENDER_DRAW = 1
|
---|
58 | OLERENDER_FORMAT = 2
|
---|
59 | OLERENDER_ASIS = 3
|
---|
60 | End Enum
|
---|
61 |
|
---|
62 | Dim IID_IOleClientSite = [&h00000118, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
---|
63 | Interface IOleClientSite
|
---|
64 | Inherits IUnknown
|
---|
65 |
|
---|
66 | Function SaveObject() As HRESULT
|
---|
67 | Function GetMoniker(
|
---|
68 | /* [in] */ dwAssign As DWord,
|
---|
69 | /* [in] */ dwWhichMoniker As DWord,
|
---|
70 | /* [out] */ ByRef mk As IMoniker) As HRESULT
|
---|
71 | Function GetContainer(
|
---|
72 | /* [out] */ ByRef Container As IOleContainer) As HRESULT
|
---|
73 | Function ShowObject() As HRESULT
|
---|
74 | Function OnShowWindow(
|
---|
75 | fShow As BOOL) As HRESULT
|
---|
76 | Function RequestNewObjectLayout() As HRESULT
|
---|
77 | End Interface
|
---|
78 |
|
---|
79 | /* interface IOleObject */
|
---|
80 | /* [unique][uuid][object] */
|
---|
81 |
|
---|
82 | Const Enum OLEGETMONIKER
|
---|
83 | OLEGETMONIKER_ONLYIFTHERE = 1
|
---|
84 | OLEGETMONIKER_FORCEASSIGN = 2
|
---|
85 | OLEGETMONIKER_UNASSIGN = 3
|
---|
86 | OLEGETMONIKER_TEMPFORUSER = 4
|
---|
87 | End Enum
|
---|
88 |
|
---|
89 | Const Enum OLEWHICHMK
|
---|
90 | OLEWHICHMK_CONTAINER = 1
|
---|
91 | OLEWHICHMK_OBJREL = 2
|
---|
92 | OLEWHICHMK_OBJFULL = 3
|
---|
93 | End Enum
|
---|
94 |
|
---|
95 | Const Enum USERCLASSTYPE
|
---|
96 | USERCLASSTYPE_FULL = 1
|
---|
97 | USERCLASSTYPE_SHORT = 2
|
---|
98 | USERCLASSTYPE_APPNAME = 3
|
---|
99 | End Enum
|
---|
100 |
|
---|
101 | Const Enum OLEMISC
|
---|
102 | OLEMISC_RECOMPOSEONRESIZE = &h1
|
---|
103 | OLEMISC_ONLYICONIC = &h2
|
---|
104 | OLEMISC_INSERTNOTREPLACE = &h4
|
---|
105 | OLEMISC_STATIC = &h8
|
---|
106 | OLEMISC_CANTLINKINSIDE = &h10
|
---|
107 | OLEMISC_CANLINKBYOLE1 = &h20
|
---|
108 | OLEMISC_ISLINKOBJECT = &h40
|
---|
109 | OLEMISC_INSIDEOUT = &h80
|
---|
110 | OLEMISC_ACTIVATEWHENVISIBLE = &h100
|
---|
111 | OLEMISC_RENDERINGISDEVICEINDEPENDENT = &h200
|
---|
112 | OLEMISC_INVISIBLEATRUNTIME = &h400
|
---|
113 | OLEMISC_ALWAYSRUN = &h800
|
---|
114 | OLEMISC_ACTSLIKEBUTTON = &h1000
|
---|
115 | OLEMISC_ACTSLIKELABEL = &h2000
|
---|
116 | OLEMISC_NOUIACTIVATE = &h4000
|
---|
117 | OLEMISC_ALIGNABLE = &h8000
|
---|
118 | OLEMISC_SIMPLEFRAME = &h10000
|
---|
119 | OLEMISC_SETCLIENTSITEFIRST = &h20000
|
---|
120 | OLEMISC_IMEMODE = &h40000
|
---|
121 | OLEMISC_IGNOREACTIVATEWHENVISIBLE = &h80000
|
---|
122 | OLEMISC_WANTSTOMENUMERGE = &h100000
|
---|
123 | OLEMISC_SUPPORTSMULTILEVELUNDO = &h200000
|
---|
124 | End Enum
|
---|
125 |
|
---|
126 | Const Enum OLECLOSE
|
---|
127 | OLECLOSE_SAVEIFDIRTY = 0
|
---|
128 | OLECLOSE_NOSAVE = 1
|
---|
129 | OLECLOSE_PROMPTSAVE = 2
|
---|
130 | End Enum
|
---|
131 |
|
---|
132 | Dim IID_IOleObject = [&h00000112, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
---|
133 | Interface IOleObject
|
---|
134 | Inherits IUnknown
|
---|
135 |
|
---|
136 | Function SetClientSite(
|
---|
137 | /* [unique][in] */ ClientSite As IOleClientSite) As HRESULT
|
---|
138 | Function GetClientSite(
|
---|
139 | /* [out] */ ByRef ClientSite As IOleClientSite) As HRESULT
|
---|
140 | Function SetHostNames(
|
---|
141 | /* [in] */ szContainerApp As LPCOLESTR,
|
---|
142 | /* [unique][in] */ szContainerObj As LPCOLESTR) As HRESULT
|
---|
143 | Function Close(
|
---|
144 | /* [in] */ dwSaveOption As DWord) As HRESULT
|
---|
145 | Function SetMoniker(
|
---|
146 | /* [in] */ dwWhichMoniker As DWord,
|
---|
147 | /* [unique][in] */ mk As IMoniker) As HRESULT
|
---|
148 | Function GetMoniker(
|
---|
149 | /* [in] */ dwAssign As DWord,
|
---|
150 | /* [in] */ dwWhichMoniker As DWord,
|
---|
151 | /* [out] */ ByRef mk As IMoniker) As HRESULT
|
---|
152 | Function InitFromData(
|
---|
153 | /* [unique][in] */ DataObject As IDataObject,
|
---|
154 | /* [in] */ fCreation As BOOL,
|
---|
155 | /* [in] */ dwReserved As DWord) As HRESULT
|
---|
156 | Function GetClipboardData(
|
---|
157 | /* [in] */ dwReserved As DWord,
|
---|
158 | /* [out] */ ByRef DataObject As IDataObject) As HRESULT
|
---|
159 | Function DoVerb(
|
---|
160 | /* [in] */ iVerb As Long,
|
---|
161 | /* [unique][in] */ lpmsg As *MSG,
|
---|
162 | /* [unique][in] */ ActiveSite As IOleClientSite,
|
---|
163 | /* [in] */ lindex As Long,
|
---|
164 | /* [in] */ hwndParent As HWND,
|
---|
165 | /* [unique][in] */ lprcPosRect As *RECT /*LPCRECT*/) As HRESULT
|
---|
166 | Function EnumVerbs(
|
---|
167 | /* [out] */ ByRef EnumOleVerb As IUnknown /*IEnumOLEVERB*/) As HRESULT
|
---|
168 | Function Update() As HRESULT
|
---|
169 | Function IsUpToDate() As HRESULT
|
---|
170 | Function GetUserClassID(
|
---|
171 | /* [out] */ ByRef Clsid As CLSID) As HRESULT
|
---|
172 | Function GetUserType(
|
---|
173 | /* [in] */ dwFormOfType As DWord,
|
---|
174 | /* [out] */ ByRef pszUserType As LPOLESTR) As HRESULT
|
---|
175 | Function SetExtent(
|
---|
176 | /* [in] */ dwDrawAspect As DWord,
|
---|
177 | /* [in] */ ByRef sizel As SIZEL) As HRESULT
|
---|
178 | Function GetExtent(
|
---|
179 | /* [in] */ dwDrawAspect As DWord,
|
---|
180 | /* [out] */ ByRef sizel As SIZEL) As HRESULT
|
---|
181 | Function Advise(
|
---|
182 | /* [unique][in] */ AdvSink As IAdviseSink,
|
---|
183 | /* [out] */ ByRef dwConnection As DWord) As HRESULT
|
---|
184 | Function Unadvise(
|
---|
185 | /* [in] */ dwConnection As DWord) As HRESULT
|
---|
186 | Function EnumAdvise(
|
---|
187 | /* [out] */ ByRef penumAdvise As IEnumSTATDATA) As HRESULT
|
---|
188 | Function GetMiscStatus(
|
---|
189 | /* [in] */ dwAspect As DWord,
|
---|
190 | /* [out] */ ByRef dwStatus As DWord) As HRESULT
|
---|
191 | Function SetColorScheme(
|
---|
192 | /* [in] */ ByRef Logpal As LOGPALETTE) As HRESULT
|
---|
193 | End Interface
|
---|
194 |
|
---|
195 | /* interface IOleWindow */
|
---|
196 | /* [unique][uuid][object] */
|
---|
197 |
|
---|
198 | Dim IID_IOleWindow = [&h00000114, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
---|
199 | Interface IOleWindow
|
---|
200 | Inherits IUnknown
|
---|
201 |
|
---|
202 | /* [input_sync] */ Function GetWindow(
|
---|
203 | /* [out] */ ByRef hwnd As HWND) As HRESULT
|
---|
204 | Function ContextSensitiveHelp(
|
---|
205 | /* [in] */ fEnterMode As BOOL) As HRESULT
|
---|
206 | End Interface
|
---|
207 |
|
---|
208 | 'IOleLink
|
---|
209 | 'IOleItemContainer
|
---|
210 | 'IOleInPlaceUIWindow
|
---|
211 | 'IOleInPlaceActiveObject
|
---|
212 | Interface IOleInPlaceActiveObject
|
---|
213 | Inherits IOleWindow
|
---|
214 | End Interface
|
---|
215 |
|
---|
216 | 'IOleInPlaceFrame
|
---|
217 | Interface IOleInPlaceFrame
|
---|
218 | Inherits IOleWindow
|
---|
219 | End Interface
|
---|
220 |
|
---|
221 | 'IOleInPlaceObject
|
---|
222 | 'IOleInPlaceSite
|
---|
223 | 'IContinue
|
---|
224 | 'IViewObject
|
---|
225 | 'IViewObject2
|
---|
226 |
|
---|
227 | /* interface IDropSource */
|
---|
228 | /* [uuid][object][local] */
|
---|
229 |
|
---|
230 | Dim IID_IDropSource = [&h00000121, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
---|
231 |
|
---|
232 | Interface IDropSource
|
---|
233 | Inherits IUnknown
|
---|
234 |
|
---|
235 | Function QueryContinueDrag(
|
---|
236 | fEscapePressed As DWord,
|
---|
237 | grfKeyState As DWord) As HRESULT
|
---|
238 | Function GiveFeedback(
|
---|
239 | dwEffect As DWord) As HRESULT
|
---|
240 | End Interface
|
---|
241 |
|
---|
242 | /* interface IDropTarget */
|
---|
243 | /* [unique][uuid][object] */
|
---|
244 |
|
---|
245 | Const MK_ALT = &h20
|
---|
246 |
|
---|
247 | Const DROPEFFECT_NONE = 0
|
---|
248 | Const DROPEFFECT_COPY = 1
|
---|
249 | Const DROPEFFECT_MOVE = 2
|
---|
250 | Const DROPEFFECT_LINK = 4
|
---|
251 | Const DROPEFFECT_SCROLL = &h80000000
|
---|
252 |
|
---|
253 | Const DD_DEFSCROLLINSET = 11
|
---|
254 | Const DD_DEFSCROLLDELAY = 50
|
---|
255 | Const DD_DEFSCROLLINTERVAL = 50
|
---|
256 | Const DD_DEFDRAGDELAY = 200
|
---|
257 | Const DD_DEFDRAGMINDIST = 2
|
---|
258 |
|
---|
259 | Dim IID_IDropTarget = [&h00000122, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
---|
260 | Interface IDropTarget
|
---|
261 | Inherits IUnknown
|
---|
262 |
|
---|
263 | Function DragEnter(
|
---|
264 | /* [unique][in] */ DataObj As IDataObject,
|
---|
265 | /* [in] */ grfKeyState As DWord,
|
---|
266 | /* [in] */ x As Long, y As Long,
|
---|
267 | /* [out][in] */ ByRef effect As DWord) As HRESULT
|
---|
268 | Function DragOver(
|
---|
269 | /* [in] */ grfKeyState As DWord,
|
---|
270 | /* [in] */ x As Long, y As Long,
|
---|
271 | /* [out][in] */ ByRef effect As DWord) As HRESULT
|
---|
272 | Function DragLeave() As HRESULT
|
---|
273 | Function Drop(
|
---|
274 | /* [unique][in] */ DataObj As IDataObject,
|
---|
275 | /* [in] */ grfKeyState As DWord,
|
---|
276 | /* [in] */ x As Long, y As Long,
|
---|
277 | /* [out][in] */ ByRef effect As DWord) As HRESULT
|
---|
278 | End Interface
|
---|
279 |
|
---|
280 | /* interface IDropSourceNotify */
|
---|
281 | /* [unique][uuid][object][local] */
|
---|
282 |
|
---|
283 | Dim IID_IDropSourceNotify = [&h0000012B, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
---|
284 | Interface IDropSourceNotify
|
---|
285 | Inherits IUnknown
|
---|
286 |
|
---|
287 | Function DragEnterTarget(
|
---|
288 | /* [in] */ hwndTarget As HWND) As HRESULT
|
---|
289 | Function DragLeaveTarget() As HRESULT
|
---|
290 | End Interface
|
---|
291 |
|
---|
292 | /* interface IEnumOLEVERB */
|
---|
293 | /* [unique][uuid][object] */
|
---|
294 |
|
---|
295 | Type OLEVERB
|
---|
296 | lVerb As Long
|
---|
297 | lpszVerbName As LPOLESTR
|
---|
298 | fuFlags As DWord
|
---|
299 | grfAttribs As DWord
|
---|
300 | End Type
|
---|
301 |
|
---|
302 | /* [v1_enum] */ Const Enum OLEVERBATTRIB
|
---|
303 | OLEVERBATTRIB_NEVERDIRTIES = 1
|
---|
304 | OLEVERBATTRIB_ONCONTAINERMENU = 2
|
---|
305 | End Enum
|
---|
306 |
|
---|
307 | Dim IID_IEnumOLEVERB = [&h00000104, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
---|
308 | Interface IEnumOLEVERB
|
---|
309 | Inherits IUnknown
|
---|
310 |
|
---|
311 | /* [local] */ Function Next_(
|
---|
312 | /* [in] */ celt As DWord,
|
---|
313 | /* [length_is][size_is][out] */ rgelt As *OLEVERB,
|
---|
314 | /* [out] */ ByRef celtFetched As DWord) As HRESULT
|
---|
315 | Function Skip(
|
---|
316 | /* [in] */ celt As DWord) As HRESULT
|
---|
317 | Function Reset() As HRESULT
|
---|
318 | Function Clone(
|
---|
319 | /* [out] */ ByRef enumOleVerb As IEnumOLEVERB) As HRESULT
|
---|
320 | End Interface
|
---|