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