| 1 | #ifndef _INC_OBJIDL
|
|---|
| 2 | #define _INC_OBJIDL
|
|---|
| 3 |
|
|---|
| 4 | TypeDef SNB = **OLECHAR
|
|---|
| 5 |
|
|---|
| 6 | Type COSERVERINFO
|
|---|
| 7 | dwReserved1 As DWord
|
|---|
| 8 | pwszName As LPWSTR
|
|---|
| 9 | pAuthInfo As *COAUTHINFO
|
|---|
| 10 | dwReserved2 As DWord
|
|---|
| 11 | End Type
|
|---|
| 12 |
|
|---|
| 13 | /* interface IMarshal */
|
|---|
| 14 | /* [uuid][object][local] */
|
|---|
| 15 |
|
|---|
| 16 | Dim IID_IMarshal = [&h00000003, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 17 | Interface IMarshal
|
|---|
| 18 | Inherits IUnknown
|
|---|
| 19 |
|
|---|
| 20 | Function GetUnmarshalClass(
|
|---|
| 21 | /* [in] */ ByRef iid As IID,
|
|---|
| 22 | /* [unique][in] */ pv As VoidPtr,
|
|---|
| 23 | /* [in] */ dwDestContext As DWord,
|
|---|
| 24 | /* [unique][in] */ pvDestContext As VoidPtr,
|
|---|
| 25 | /* [in] */ mshlflags As DWord,
|
|---|
| 26 | /* [out] */ ByRef Cid As CLSID) As HRESULT
|
|---|
| 27 | Function GetMarshalSizeMax(
|
|---|
| 28 | /* [in] */ ByRef iid As IID,
|
|---|
| 29 | /* [unique][in] */ pv As VoidPtr,
|
|---|
| 30 | /* [in] */ dwDestContext As DWord,
|
|---|
| 31 | /* [unique][in] */ pvDestContext As VoidPtr,
|
|---|
| 32 | /* [in] */ mshlflags As DWord,
|
|---|
| 33 | /* [out] */ ByRef Size As DWord) As HRESULT
|
|---|
| 34 | Function MarshalInterface(
|
|---|
| 35 | /* [unique][in] */ pStm As IStream,
|
|---|
| 36 | /* [in] */ ByRef iid As IID,
|
|---|
| 37 | /* [unique][in] */ pv As VoidPtr,
|
|---|
| 38 | /* [in] */ dwDestContext As DWord,
|
|---|
| 39 | /* [unique][in] */ pvDestContext As VoidPtr,
|
|---|
| 40 | /* [in] */ mshlflags As DWord) As HRESULT
|
|---|
| 41 | Function UnmarshalInterface(
|
|---|
| 42 | /* [unique][in] */ pStm As IStream,
|
|---|
| 43 | /* [in] */ ByRef iid As IID,
|
|---|
| 44 | /* [out] */ ByRef ppv As VoidPtr) As HRESULT
|
|---|
| 45 | Function ReleaseMarshalData(
|
|---|
| 46 | /* [unique][in] */ pStm As *IStream) As HRESULT
|
|---|
| 47 | Function DisconnectObject(
|
|---|
| 48 | /* [in] */ dwReserved As DWord) As HRESULT
|
|---|
| 49 | End Interface
|
|---|
| 50 |
|
|---|
| 51 | /* interface IMarshal2 */
|
|---|
| 52 | /* [uuid][object][local] */
|
|---|
| 53 |
|
|---|
| 54 | Dim IID_IMarshal2 = [&h000001Cf, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 55 | Interface IMarshal2
|
|---|
| 56 | Inherits IMarshal
|
|---|
| 57 | End Interface
|
|---|
| 58 |
|
|---|
| 59 | /* interface IMalloc */
|
|---|
| 60 | /* [uuid][object][local] */
|
|---|
| 61 |
|
|---|
| 62 | Dim IID_IMalloc = [&h00000002, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 63 | Interface IMalloc
|
|---|
| 64 | Inherits IUnknown
|
|---|
| 65 |
|
|---|
| 66 | Function Alloc(
|
|---|
| 67 | /* [in] */ cb As SIZE_T) As VoidPtr
|
|---|
| 68 | Function Realloc(
|
|---|
| 69 | /* [in] */ pv As VoidPtr,
|
|---|
| 70 | /* [in] */ cb As SIZE_T) As VoidPtr
|
|---|
| 71 | Sub Free(
|
|---|
| 72 | /* [in] */ pv As VoidPtr)
|
|---|
| 73 | Function GetSize(pv As VoidPtr) As SIZE_T
|
|---|
| 74 | Function DidAlloc(pv As VoidPtr) As Long
|
|---|
| 75 | Sub HeapMinimize()
|
|---|
| 76 | End Interface
|
|---|
| 77 |
|
|---|
| 78 | /* interface IMallocSpy */
|
|---|
| 79 | /* [uuid][object][local] */
|
|---|
| 80 |
|
|---|
| 81 | Dim IID_IMallocSpy = [&h0000001d, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 82 | Interface IMallocSpy
|
|---|
| 83 | Inherits IUnknown
|
|---|
| 84 |
|
|---|
| 85 | Function PreAlloc(
|
|---|
| 86 | /* [in] */ cbRequest As SIZE_T) As HRESULT
|
|---|
| 87 | Function PostAlloc(
|
|---|
| 88 | /* [in] */ pActual As VoidPtr) As VoidPtr
|
|---|
| 89 | Function PreFree(
|
|---|
| 90 | /* [in] */ pRequest As VoidPtr,
|
|---|
| 91 | /* [in] */ fSpyed As BOOL) As VoidPtr
|
|---|
| 92 | Sub PostFree(
|
|---|
| 93 | /* [in] */ fSpyed As BOOL)
|
|---|
| 94 | Function PreRealloc(
|
|---|
| 95 | /* [in] */ pRequest As VoidPtr,
|
|---|
| 96 | /* [in] */ cbRequestt As SIZE_T,
|
|---|
| 97 | /* [out] */ ByRef ppNewRequest As VoidPtr,
|
|---|
| 98 | /* [in] */ fSpyed As BOOL) As HRESULT
|
|---|
| 99 | Function PostRealloc(
|
|---|
| 100 | /* [in] */ pActual As VoidPtr,
|
|---|
| 101 | /* [in] */ fSpyed As BOOL) As VoidPtr
|
|---|
| 102 | Function PreGetSize(
|
|---|
| 103 | /* [in] */ pRequest As VoidPtr,
|
|---|
| 104 | /* [in] */ fSpyed As BOOL) As VoidPtr
|
|---|
| 105 | Function PostGetSize(
|
|---|
| 106 | /* [in] */ cbActual As SIZE_T,
|
|---|
| 107 | /* [in] */ fSpyed As BOOL) As HRESULT
|
|---|
| 108 | Function PreDidAlloc(
|
|---|
| 109 | /* [in] */ pRequest As VoidPtr,
|
|---|
| 110 | /* [in] */ fSpyed As BOOL) As VoidPtr
|
|---|
| 111 | Function PostDidAlloc(
|
|---|
| 112 | /* [in] */ pRequest As VoidPtr,
|
|---|
| 113 | /* [in] */ fSpyed As BOOL,
|
|---|
| 114 | /* [in] */ fActual As Long) As Long
|
|---|
| 115 | Sub PreHeapMinimize()
|
|---|
| 116 | Sub PostHeapMinimize()
|
|---|
| 117 | End Interface
|
|---|
| 118 |
|
|---|
| 119 | /* interface IStdMarshalInfo */
|
|---|
| 120 | /* [uuid][object][local] */
|
|---|
| 121 |
|
|---|
| 122 | Dim IID_IStdMarshalInfo = [&h00000018, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 123 |
|
|---|
| 124 | Interface IStdMarshalInfo
|
|---|
| 125 | Inherits IUnknown
|
|---|
| 126 |
|
|---|
| 127 | Function GetClassForHandler(
|
|---|
| 128 | /* [in] */ dwDestContext As DWord,
|
|---|
| 129 | /* [unique][in] */ pvDestContext As VoidPtr,
|
|---|
| 130 | /* [out] */ ByRef clsid As CLSID) As HRESULT
|
|---|
| 131 | End Interface
|
|---|
| 132 |
|
|---|
| 133 | /* interface IExternalConnection */
|
|---|
| 134 | /* [uuid][local][object] */
|
|---|
| 135 |
|
|---|
| 136 | Const Enum EXTCONN
|
|---|
| 137 | EXTCONN_STRONG = 1
|
|---|
| 138 | EXTCONN_WEAK = 2
|
|---|
| 139 | EXTCONN_CALLABLE = 4
|
|---|
| 140 | End Enum
|
|---|
| 141 |
|
|---|
| 142 | Dim IID_IExternalConnection = [&h00000019, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 143 |
|
|---|
| 144 | Interface IExternalConnection
|
|---|
| 145 | Inherits IUnknown
|
|---|
| 146 |
|
|---|
| 147 | Function AddConnection(
|
|---|
| 148 | /* [in] */ extconn As DWord,
|
|---|
| 149 | /* [in] */ reserved As DWord) As DWord
|
|---|
| 150 | Function ReleaseConnection(
|
|---|
| 151 | /* [in] */ extconn As DWord,
|
|---|
| 152 | /* [in] */ reserved As DWord,
|
|---|
| 153 | /* [in] */ fLastReleaseCloses As BOOL) As DWord
|
|---|
| 154 | End Interface
|
|---|
| 155 |
|
|---|
| 156 | Type MULTI_QI
|
|---|
| 157 | pIID As * /*Const*/ IID
|
|---|
| 158 | pItf As IUnknown
|
|---|
| 159 | hr As HRESULT
|
|---|
| 160 | End Type
|
|---|
| 161 |
|
|---|
| 162 | Dim IID_IMultiQI = [&h00000020, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 163 | Interface IMultiQI
|
|---|
| 164 | Inherits IUnknown
|
|---|
| 165 |
|
|---|
| 166 | Function QueryMultipleInterfaces(
|
|---|
| 167 | /* [in] */ cMQIs As DWord,
|
|---|
| 168 | /* [out][in] */ pMQIs As *MULTI_QI) As HRESULT
|
|---|
| 169 | End Interface
|
|---|
| 170 |
|
|---|
| 171 | /* interface AsyncIMultiQI */
|
|---|
| 172 | /* [uuid][local][object] */
|
|---|
| 173 |
|
|---|
| 174 |
|
|---|
| 175 | Dim IID_AsyncIMultiQI = [&h000e0020, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 176 | Interface AsyncIMultiQI
|
|---|
| 177 | Inherits IUnknown
|
|---|
| 178 |
|
|---|
| 179 | Function Begin_QueryMultipleInterfaces(
|
|---|
| 180 | /* [in] */ cMQIs As DWord,
|
|---|
| 181 | /* [out][in] */ pMQIs As *MULTI_QI) As HRESULT
|
|---|
| 182 | Function Finish_QueryMultipleInterfaces(
|
|---|
| 183 | /* [out][in] */ pMQIs As *MULTI_QI) As HRESULT
|
|---|
| 184 | End Interface
|
|---|
| 185 |
|
|---|
| 186 | /* interface IInternalUnknown */
|
|---|
| 187 | /* [uuid][local][object] */
|
|---|
| 188 | Dim IID_IInternalUnknown = [&h00000021, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 189 | Interface IInternalUnknown
|
|---|
| 190 | Inherits IUnknown
|
|---|
| 191 |
|
|---|
| 192 | Function QueryInternalInterface(
|
|---|
| 193 | /* [in] */ ByRef riid As IID,
|
|---|
| 194 | /* [out] */ ByRef ppv As Any) As HRESULT
|
|---|
| 195 | End Interface
|
|---|
| 196 |
|
|---|
| 197 | /* interface IEnumUnknown */
|
|---|
| 198 | /* [unique][uuid][object] */
|
|---|
| 199 |
|
|---|
| 200 | Dim IID_IEnumUnknown = [&h00000100, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 201 | Interface IEnumUnknown
|
|---|
| 202 | Inherits IUnknown
|
|---|
| 203 |
|
|---|
| 204 | /* [local] */ Function Next(
|
|---|
| 205 | /* [in] */ celt As DWord,
|
|---|
| 206 | /* [out] */ rgelt As *IUnknown,
|
|---|
| 207 | /* [out] */ ByRef celtFetched As DWord) As HRESULT
|
|---|
| 208 | Function Skip(
|
|---|
| 209 | /* [in] */ celt As DWord) As HRESULT
|
|---|
| 210 | Function Reset() As HRESULT
|
|---|
| 211 | Function Clone(
|
|---|
| 212 | /* [out] */ ByRef enumUnk As IEnumUnknown) As HRESULT
|
|---|
| 213 | End Interface
|
|---|
| 214 |
|
|---|
| 215 | /* interface IBindCtx */
|
|---|
| 216 | /* [unique][uuid][object] */
|
|---|
| 217 |
|
|---|
| 218 | Type BIND_OPTS
|
|---|
| 219 | cbStruct As DWord
|
|---|
| 220 | grfFlags As DWord
|
|---|
| 221 | grfMode As DWord
|
|---|
| 222 | dwTickCountDeadline As DWord
|
|---|
| 223 | End Type
|
|---|
| 224 |
|
|---|
| 225 | Type BIND_OPTS2
|
|---|
| 226 | ' Inherits BIND_OPTS
|
|---|
| 227 | cbStruct As DWord
|
|---|
| 228 | grfFlags As DWord
|
|---|
| 229 | grfMode As DWord
|
|---|
| 230 | dwTickCountDeadline As DWord
|
|---|
| 231 |
|
|---|
| 232 | dwTrackFlags As DWord
|
|---|
| 233 | dwClassContext As DWord
|
|---|
| 234 | locale As LCID
|
|---|
| 235 | pServerInfo As *COSERVERINFO
|
|---|
| 236 | End Type
|
|---|
| 237 |
|
|---|
| 238 | Type BIND_OPTS3
|
|---|
| 239 | ' Inherits BIND_OPTS
|
|---|
| 240 | cbStruct As DWord
|
|---|
| 241 | grfFlags As DWord
|
|---|
| 242 | grfMode As DWord
|
|---|
| 243 | dwTickCountDeadline As DWord
|
|---|
| 244 |
|
|---|
| 245 | dwTrackFlags As DWord
|
|---|
| 246 | dwClassContext As DWord
|
|---|
| 247 | locale As LCID
|
|---|
| 248 | pServerInfo As *COSERVERINFO
|
|---|
| 249 |
|
|---|
| 250 | hwnd As HWND
|
|---|
| 251 | End Type
|
|---|
| 252 |
|
|---|
| 253 | Const Enum BIND_FLAGS
|
|---|
| 254 | BIND_MAYBOTHERUSER
|
|---|
| 255 | BIND_JUSTTESTEXISTENCE
|
|---|
| 256 | End Enum
|
|---|
| 257 |
|
|---|
| 258 | Dim IID_IBindCtx = [&h0000000E, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 259 | Interface IBindCtx
|
|---|
| 260 | Inherits IUnknown
|
|---|
| 261 |
|
|---|
| 262 | Function RegisterObjectBound(
|
|---|
| 263 | /* [unique][in] */ punk As IUnknown) As HRESULT
|
|---|
| 264 | Function RevokeObjectBound(
|
|---|
| 265 | /* [unique][in] */ punk As IUnknown) As HRESULT
|
|---|
| 266 | Function ReleaseBoundObjects() As HRESULT
|
|---|
| 267 | /* [local] */ Function SetBindOptions(
|
|---|
| 268 | /* [in] */ ByRef bindopts As BIND_OPTS) As HRESULT
|
|---|
| 269 | /* [local] */ Function GetBindOptions(
|
|---|
| 270 | /* [out][in] */ ByRef bindopts As BIND_OPTS) As HRESULT
|
|---|
| 271 | Function GetRunningObjectTable(
|
|---|
| 272 | /* [out] */ ByRef rot As IRunningObjectTable) As HRESULT
|
|---|
| 273 | Function RegisterObjectParam(
|
|---|
| 274 | /* [in] */ pszKey As LPOLESTR,
|
|---|
| 275 | /* [unique][in] */ unk As IUnknown) As HRESULT
|
|---|
| 276 | Function GetObjectParam(
|
|---|
| 277 | /* [in] */ pszKey As LPOLESTR,
|
|---|
| 278 | /* [out] */ ByRef unk As IUnknown) As HRESULT
|
|---|
| 279 | Function EnumObjectParam(
|
|---|
| 280 | /* [out] */ ByRef enumstr As IEnumString) As HRESULT
|
|---|
| 281 | Function RevokeObjectParam(
|
|---|
| 282 | /* [in] */ pszKey As LPOLESTR) As HRESULT
|
|---|
| 283 | End Interface
|
|---|
| 284 |
|
|---|
| 285 | /* interface IEnumMoniker */
|
|---|
| 286 | /* [unique][uuid][object] */
|
|---|
| 287 |
|
|---|
| 288 | Dim IID_IEnumMoniker = [&h00000102, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 289 | Interface IEnumMoniker
|
|---|
| 290 | Inherits IUnknown
|
|---|
| 291 | /* [local] */ Function Next_(
|
|---|
| 292 | /* [in] */ celt As DWord,
|
|---|
| 293 | /* [length_is][size_is][out] */ rgelt As *IMoniker,
|
|---|
| 294 | /* [out] */ ByRef celtFetched As DWord) As HRESULT
|
|---|
| 295 | Function Skip(
|
|---|
| 296 | /* [in] */ celt As DWord) As HRESULT
|
|---|
| 297 | Function Reset() As HRESULT
|
|---|
| 298 | Function Clone(
|
|---|
| 299 | /* [out] */ enumMon As IEnumMoniker) As HRESULT
|
|---|
| 300 | End Interface
|
|---|
| 301 |
|
|---|
| 302 | /* interface IRunningObjectTable */
|
|---|
| 303 | /* [uuid][object] */
|
|---|
| 304 |
|
|---|
| 305 | Dim IID_IRunningObjectTable = [&h00000010, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 306 | Interface IRunningObjectTable
|
|---|
| 307 | Inherits IUnknown
|
|---|
| 308 |
|
|---|
| 309 | Function Register(
|
|---|
| 310 | /* [in] */ grfFlags As DWord,
|
|---|
| 311 | /* [unique][in] */ unkObject As IUnknown,
|
|---|
| 312 | /* [unique][in] */ mkObjectName As IMoniker,
|
|---|
| 313 | /* [out] */ ByRef dwRegister As DWord) As HRESULT
|
|---|
| 314 | Function Revoke(
|
|---|
| 315 | /* [in] */ dwRegister As DWord) As HRESULT
|
|---|
| 316 | Function IsRunning(
|
|---|
| 317 | /* [unique][in] */ mkObjectName As IMoniker) As HRESULT
|
|---|
| 318 | Function GetObject(
|
|---|
| 319 | /* [unique][in] */ mkObjectName As IMoniker,
|
|---|
| 320 | /* [out] */ ByRef unkObject As IUnknown) As HRESULT
|
|---|
| 321 | Function NoteChangeTime(
|
|---|
| 322 | /* [in] */ dwRegister As DWord,
|
|---|
| 323 | /* [in] */ ByRef filetime As FILETIME) As HRESULT
|
|---|
| 324 | Function GetTimeOfLastChange(
|
|---|
| 325 | /* [unique][in] */ mkObjectName As IMoniker,
|
|---|
| 326 | /* [in] */ ByRef filetime As FILETIME) As HRESULT
|
|---|
| 327 | Function EnumRunning(
|
|---|
| 328 | /* [out] */ ByRef enumMoniker As IEnumMoniker) As HRESULT
|
|---|
| 329 | End Interface
|
|---|
| 330 |
|
|---|
| 331 | Dim IID_IPersist = [&h0000010c, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 332 | Interface IPersist
|
|---|
| 333 | Inherits IUnknown
|
|---|
| 334 |
|
|---|
| 335 | Function GetClassID(
|
|---|
| 336 | /* [out] */ ByRef ClassID As CLSID) As HRESULT
|
|---|
| 337 | End Interface
|
|---|
| 338 |
|
|---|
| 339 | Dim IID_IPersistStream = [&h00000109, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 340 | Interface IPersistStream
|
|---|
| 341 | Inherits IPersist
|
|---|
| 342 |
|
|---|
| 343 | Function IsDirty() As HRESULT
|
|---|
| 344 |
|
|---|
| 345 | Function Load(
|
|---|
| 346 | /* [unique][in] */ Stm As IStream) As HRESULT
|
|---|
| 347 | Function Save(
|
|---|
| 348 | /* [unique][in] */ Stm As IStream,
|
|---|
| 349 | /* [in] */ fClearDirty As BOOL) As HRESULT
|
|---|
| 350 | Function GetSizeMax(
|
|---|
| 351 | /* [out] */ ByRef cbSize As ULARGE_INTEGER) As HRESULT
|
|---|
| 352 | End Interface
|
|---|
| 353 |
|
|---|
| 354 | /* interface IMoniker */
|
|---|
| 355 | /* [unique][uuid][object] */
|
|---|
| 356 |
|
|---|
| 357 | Const Enum MKSYS
|
|---|
| 358 | MKSYS_NONE = 0
|
|---|
| 359 | MKSYS_GENERICCOMPOSITE = 1
|
|---|
| 360 | MKSYS_FILEMONIKER = 2
|
|---|
| 361 | MKSYS_ANTIMONIKER = 3
|
|---|
| 362 | MKSYS_ITEMMONIKER = 4
|
|---|
| 363 | MKSYS_POINTERMONIKER = 5
|
|---|
| 364 | MKSYS_CLASSMONIKER = 7
|
|---|
| 365 | MKSYS_OBJREFMONIKER = 8
|
|---|
| 366 | MKSYS_SESSIONMONIKER = 9
|
|---|
| 367 | MKSYS_LUAMONIKER = 10
|
|---|
| 368 | End Enum
|
|---|
| 369 |
|
|---|
| 370 | /* [v1_enum] */ Const Enum MKREDUCE
|
|---|
| 371 | MKRREDUCE_ONE = (3 << 16)
|
|---|
| 372 | MKRREDUCE_TOUSER = (2 << 16)
|
|---|
| 373 | MKRREDUCE_THROUGHUSER = (1 << 16)
|
|---|
| 374 | MKRREDUCE_ALL = 0
|
|---|
| 375 | End Enum
|
|---|
| 376 |
|
|---|
| 377 | Dim IID_IMoniker = [&h0000000f, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 378 | Interface IMoniker
|
|---|
| 379 | Inherits IPersistStream
|
|---|
| 380 |
|
|---|
| 381 | /* [local] */ Function BindToObject(
|
|---|
| 382 | /* [unique][in] */ bc As IBindCtx,
|
|---|
| 383 | /* [unique][in] */ mkToLeft As IMoniker,
|
|---|
| 384 | /* [in] */ ByRef riidResult As IID,
|
|---|
| 385 | /* [iid_is][out] */ ByRef Result As Any) As HRESULT
|
|---|
| 386 | /* [local] */ Function BindToStorage(
|
|---|
| 387 | /* [unique][in] */ bc As IBindCtx,
|
|---|
| 388 | /* [unique][in] */ mkToLeft As IMoniker,
|
|---|
| 389 | /* [in] */ ByRef riid As IID,
|
|---|
| 390 | /* [iid_is][out] */ ByRef Obj As Any) As HRESULT
|
|---|
| 391 | Function Reduce(
|
|---|
| 392 | /* [unique][in] */ bc As IBindCtx,
|
|---|
| 393 | /* [in] */ dwReduceHowFar As DWord,
|
|---|
| 394 | /* [unique][out][in] */ ByRef mkToLeft As IMoniker,
|
|---|
| 395 | /* [out] */ ByRef mkReduced As IMoniker) As HRESULT
|
|---|
| 396 | Function ComposeWith(
|
|---|
| 397 | /* [unique][in] */ ByRef mkRight As IMoniker,
|
|---|
| 398 | /* [in] */ fOnlyIfNotGeneric As BOOL,
|
|---|
| 399 | /* [out] */ ByRef mkComposite As IMoniker) As HRESULT
|
|---|
| 400 | Function Enum_(
|
|---|
| 401 | /* [in] */ fForward As BOOL,
|
|---|
| 402 | /* [out] */ ByRef enumMoniker As IEnumMoniker) As HRESULT
|
|---|
| 403 | Function IsEqual(
|
|---|
| 404 | /* [unique][in] */ mkOtherMoniker As IMoniker) As HRESULT
|
|---|
| 405 | Function Hash(
|
|---|
| 406 | /* [out] */ ByRef dwHash As DWord) As HRESULT
|
|---|
| 407 | Function IsRunning(
|
|---|
| 408 | /* [unique][in] */ bc As IBindCtx,
|
|---|
| 409 | /* [unique][in] */ mkToLeft As IMoniker,
|
|---|
| 410 | /* [unique][in] */ mkNewlyRunning As IMoniker) As HRESULT
|
|---|
| 411 | Function GetTimeOfLastChange(
|
|---|
| 412 | /* [unique][in] */ bc As IBindCtx,
|
|---|
| 413 | /* [unique][in] */ mkToLeft As IMoniker,
|
|---|
| 414 | /* [out] */ ByRef FileTime As FILETIME) As HRESULT
|
|---|
| 415 | Function Inverse(
|
|---|
| 416 | /* [out] */ ByRef mk As IMoniker) As HRESULT
|
|---|
| 417 | Function CommonPrefixWith(
|
|---|
| 418 | /* [unique][in] */ mkOther As IMoniker,
|
|---|
| 419 | /* [out] */ ByRef mkPrefix As IMoniker) As HRESULT
|
|---|
| 420 | Function RelativePathTo(
|
|---|
| 421 | /* [unique][in] */ mkOther As IMoniker,
|
|---|
| 422 | /* [out] */ ByRef mkRelPath As IMoniker) As HRESULT
|
|---|
| 423 | Function GetDisplayName(
|
|---|
| 424 | /* [unique][in] */ bc As IBindCtx,
|
|---|
| 425 | /* [unique][in] */ mkToLeft As IMoniker,
|
|---|
| 426 | /* [out] */ ByRef pszDisplayName As LPOLESTR) As HRESULT
|
|---|
| 427 | Function ParseDisplayName(
|
|---|
| 428 | /* [unique][in] */ bc As IBindCtx,
|
|---|
| 429 | /* [unique][in] */ mkToLeft As IMoniker,
|
|---|
| 430 | /* [in] */ pszDisplayName As LPOLESTR,
|
|---|
| 431 | /* [out] */ ByRef chEaten As DWord,
|
|---|
| 432 | /* [out] */ ByRef mkOut As IMoniker) As HRESULT
|
|---|
| 433 | Function IsSystemMoniker(
|
|---|
| 434 | /* [out] */ ByRef dwMksys As DWord) As HRESULT
|
|---|
| 435 | End Interface
|
|---|
| 436 |
|
|---|
| 437 | /* interface IEnumString */
|
|---|
| 438 | /* [unique][uuid][object] */
|
|---|
| 439 |
|
|---|
| 440 | Dim IID_IEnumString = [&h00000101, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 441 | Interface IEnumString
|
|---|
| 442 | Inherits IUnknown
|
|---|
| 443 |
|
|---|
| 444 | /* [local] */ Function Next_(
|
|---|
| 445 | /* [in] */ celt As DWord,
|
|---|
| 446 | /* [length_is][size_is][out] */ ByRef rgelt As LPOLESTR,
|
|---|
| 447 | /* [out] */ ByRef celtFetched As DWord) As HRESULT
|
|---|
| 448 | Function Skip(
|
|---|
| 449 | /* [in] */ celt As DWord) As HRESULT
|
|---|
| 450 | Function Reset() As HRESULT
|
|---|
| 451 | Function Clone(
|
|---|
| 452 | /* [out] */ ByRef enumstr As IEnumString) As HRESULT
|
|---|
| 453 | End Interface
|
|---|
| 454 |
|
|---|
| 455 | /* interface ISequentialStream */
|
|---|
| 456 | /* [unique][uuid][object] */
|
|---|
| 457 |
|
|---|
| 458 | Dim IID_ISequentialStream = [&h0c733a30, &h2a1c, &h11ce, [&had, &he5, &h00, &haa, &h00, &h44, &h77, &h3d]] As IID
|
|---|
| 459 | Interface ISequentialStream
|
|---|
| 460 | Inherits IUnknown
|
|---|
| 461 |
|
|---|
| 462 | Function Read(
|
|---|
| 463 | /* [length_is][size_is][out] */ pv As VoidPtr,
|
|---|
| 464 | /* [in] */ cb As DWord,
|
|---|
| 465 | /* [out] */ ByRef cbRead As DWord) As HRESULT
|
|---|
| 466 | Function Write(
|
|---|
| 467 | /* [size_is][in] */ pv As VoidPtr,
|
|---|
| 468 | /* [in] */ cb As DWord,
|
|---|
| 469 | /* [out] */ ByRef cbWritten As DWord) As HRESULT
|
|---|
| 470 | End Interface
|
|---|
| 471 |
|
|---|
| 472 | /* interface IStream */
|
|---|
| 473 | /* [unique][uuid][object] */
|
|---|
| 474 |
|
|---|
| 475 | Type STATSTG
|
|---|
| 476 | pwcsName As LPOLESTR
|
|---|
| 477 | type_ As DWord
|
|---|
| 478 | cbSize As ULARGE_INTEGER
|
|---|
| 479 | mtime As FILETIME
|
|---|
| 480 | ctime As FILETIME
|
|---|
| 481 | atime As FILETIME
|
|---|
| 482 | grfMode As DWord
|
|---|
| 483 | grfLocksSupported As DWord
|
|---|
| 484 | clsid As CLSID
|
|---|
| 485 | grfStateBits As DWord
|
|---|
| 486 | reserved As DWord
|
|---|
| 487 | End Type
|
|---|
| 488 |
|
|---|
| 489 | Enum STGTY
|
|---|
| 490 | STGTY_STORAGE = 1
|
|---|
| 491 | STGTY_STREAM = 2
|
|---|
| 492 | STGTY_LOCKBYTES = 3
|
|---|
| 493 | STGTY_PROPERTY = 4
|
|---|
| 494 | End Enum
|
|---|
| 495 |
|
|---|
| 496 | Enum STREAM_SEEK
|
|---|
| 497 | STREAM_SEEK_SET = 0
|
|---|
| 498 | STREAM_SEEK_CUR = 1
|
|---|
| 499 | STREAM_SEEK_END = 2
|
|---|
| 500 | End Enum
|
|---|
| 501 |
|
|---|
| 502 | Enum LOCKTYPE
|
|---|
| 503 | LOCK_WRITE = 1
|
|---|
| 504 | LOCK_EXCLUSIVE = 2
|
|---|
| 505 | LOCK_ONLYONCE = 4
|
|---|
| 506 | End Enum
|
|---|
| 507 |
|
|---|
| 508 | Dim IID_IStream = [&h0000000c, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 509 | Interface IStream
|
|---|
| 510 | Inherits ISequentialStream
|
|---|
| 511 |
|
|---|
| 512 | /* [local] */ Function Seek(
|
|---|
| 513 | /* [in] */ dlibMove As LARGE_INTEGER,
|
|---|
| 514 | /* [in] */ dwOrigin As DWord,
|
|---|
| 515 | /* [out] */ plibNewPosition As *ULARGE_INTEGER) As HRESULT
|
|---|
| 516 | Function SetSize(
|
|---|
| 517 | /* [in] */ libNewSize As ULARGE_INTEGER) As HRESULT
|
|---|
| 518 | /* [local] */ Function CopyTo(
|
|---|
| 519 | /* [unique][in] */ stm As IStream,
|
|---|
| 520 | /* [in] */ cb As ULARGE_INTEGER,
|
|---|
| 521 | /* [out] */ pcbRead As *ULARGE_INTEGER,
|
|---|
| 522 | /* [out] */ pcbWritten As *ULARGE_INTEGER) As HRESULT
|
|---|
| 523 | Function Commit(
|
|---|
| 524 | /* [in] */ grfCommitFlags As DWord) As HRESULT
|
|---|
| 525 | Function Revert() As HRESULT
|
|---|
| 526 | Function LockRegion(
|
|---|
| 527 | /* [in] */ libOffset As ULARGE_INTEGER,
|
|---|
| 528 | /* [in] */ cb As ULARGE_INTEGER,
|
|---|
| 529 | /* [in] */ dwLockType As DWord) As HRESULT
|
|---|
| 530 | Function UnlockRegion(
|
|---|
| 531 | /* [in] */ libOffset As ULARGE_INTEGER,
|
|---|
| 532 | /* [in] */ cb As ULARGE_INTEGER,
|
|---|
| 533 | /* [in] */ dwLockType As DWord) As HRESULT
|
|---|
| 534 | Function Stat(
|
|---|
| 535 | /* [out] */ pstatstg As *STATSTG,
|
|---|
| 536 | /* [in] */ grfStatFlag As DWord) As HRESULT
|
|---|
| 537 | Function Clone(
|
|---|
| 538 | /* [out] */ ByRef stm As IStream) As HRESULT
|
|---|
| 539 | End Interface
|
|---|
| 540 |
|
|---|
| 541 | TypeDef LPSTREAM = *IStream
|
|---|
| 542 |
|
|---|
| 543 | /* interface IEnumSTATSTG */
|
|---|
| 544 | /* [unique][uuid][object] */
|
|---|
| 545 |
|
|---|
| 546 | Dim IID_IEnumSTATSTG = [&h0000000d, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 547 | Interface IEnumSTATSTG
|
|---|
| 548 | Inherits IUnknown
|
|---|
| 549 |
|
|---|
| 550 | /* [local] */ Function Next_(
|
|---|
| 551 | /* [in] */ celt As DWord,
|
|---|
| 552 | /* [length_is][size_is][out] */ rgelt As *STATSTG,
|
|---|
| 553 | /* [out] */ ByRef celtFetched As DWord) As HRESULT
|
|---|
| 554 | Function Skip(
|
|---|
| 555 | /* [in] */ celt As DWord) As HRESULT
|
|---|
| 556 | Function Reset() As HRESULT
|
|---|
| 557 | Function Clone(
|
|---|
| 558 | /* [out] */ ByRef enumStat As IEnumSTATSTG) As HRESULT
|
|---|
| 559 | End Interface
|
|---|
| 560 |
|
|---|
| 561 | /* interface IStorage */
|
|---|
| 562 | /* [unique][uuid][object] */
|
|---|
| 563 |
|
|---|
| 564 | TypeDef LPSTORAGE = /* [unique] */ *IStorage
|
|---|
| 565 |
|
|---|
| 566 | Type RemSNB
|
|---|
| 567 | ulCntStr As DWord
|
|---|
| 568 | ulCntChar As DWord
|
|---|
| 569 | rgString[ELM(1)] As OLECHAR
|
|---|
| 570 | End Type
|
|---|
| 571 |
|
|---|
| 572 | TypeDef wireSNB /* [unique] */ = *RemSNB
|
|---|
| 573 |
|
|---|
| 574 | TypeDef SNB = /* [wire_marshal] */ **OLECHAR
|
|---|
| 575 |
|
|---|
| 576 | Dim IID_IStorage = [&h0000000b, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 577 | Interface IStorage
|
|---|
| 578 | Inherits IUnknown
|
|---|
| 579 |
|
|---|
| 580 | Function CreateStream(
|
|---|
| 581 | /* [string][in] */ pwcsName As *OLECHAR,
|
|---|
| 582 | /* [in] */ grfMode As DWord,
|
|---|
| 583 | /* [in] */ reserved1 As DWord,
|
|---|
| 584 | /* [in] */ reserved2 As DWord,
|
|---|
| 585 | /* [out] */ ByRef stm As IStream) As HRESULT
|
|---|
| 586 | /* [local] */ Function OpenStream(
|
|---|
| 587 | /* [string][in] */ pwcsName As *OLECHAR,
|
|---|
| 588 | /* [unique][in] */ reserved1 As VoidPtr,
|
|---|
| 589 | /* [in] */ grfMode As DWord,
|
|---|
| 590 | /* [in] */ reserved2 As DWord,
|
|---|
| 591 | /* [out] */ ByRef stm As IStream) As HRESULT
|
|---|
| 592 | Function CreateStorage(
|
|---|
| 593 | /* [string][in] */ pwcsName As *OLECHAR,
|
|---|
| 594 | /* [in] */ grfMode As DWord,
|
|---|
| 595 | /* [in] */ reserved1 As DWord,
|
|---|
| 596 | /* [in] */ reserved2 As DWord,
|
|---|
| 597 | /* [out] */ ByRef stg As IStorage) As HRESULT
|
|---|
| 598 | Function OpenStorage(
|
|---|
| 599 | /* [string][unique][in] */ pwcsName As *OLECHAR,
|
|---|
| 600 | /* [unique][in] */ pstgPriority As IStorage,
|
|---|
| 601 | /* [in] */ grfMode As DWord,
|
|---|
| 602 | /* [unique][in] */ snbExclude As SNB,
|
|---|
| 603 | /* [in] */ reserved As DWord,
|
|---|
| 604 | /* [out] */ ByRef stg As IStorage) As HRESULT
|
|---|
| 605 | /* [local] */ Function CopyTo(
|
|---|
| 606 | /* [in] */ ciidExclude As DWord,
|
|---|
| 607 | /* [size_is][unique][in] */ rgiidExclude As * /*Const*/ IID,
|
|---|
| 608 | /* [unique][in] */ snbExclude As SNB,
|
|---|
| 609 | /* [unique][in] */ stgDest As IStorage) As HRESULT
|
|---|
| 610 | Function MoveElementTo(
|
|---|
| 611 | /* [string][in] */ pwcsName As *OLECHAR,
|
|---|
| 612 | /* [unique][in] */ stgDest As IStorage,
|
|---|
| 613 | /* [string][in] */ pwcsNewName As *OLECHAR,
|
|---|
| 614 | /* [in] */ grfFlags As DWord) As HRESULT
|
|---|
| 615 | Function Commit(
|
|---|
| 616 | /* [in] */ grfCommitFlags As DWord) As HRESULT
|
|---|
| 617 | Function Revert() As HRESULT
|
|---|
| 618 | /* [local] */ Function EnumElements(
|
|---|
| 619 | /* [in] */ reserved1 As DWord,
|
|---|
| 620 | /* [size_is][unique][in] */ reserved2 As VoidPtr,
|
|---|
| 621 | /* [in] */ reserved3 As DWord,
|
|---|
| 622 | /* [out] */ ByRef enum_ As IEnumSTATSTG) As HRESULT
|
|---|
| 623 | Function DestroyElement(
|
|---|
| 624 | /* [string][in] */ pwcsName As *OLECHAR) As HRESULT
|
|---|
| 625 | Function RenameElement(
|
|---|
| 626 | /* [string][in] */ pwcsOldName As *OLECHAR,
|
|---|
| 627 | /* [string][in] */ pwcsNewName As *OLECHAR) As HRESULT
|
|---|
| 628 | Function SetElementTimes(
|
|---|
| 629 | /* [string][unique][in] */ pwcsName As *OLECHAR,
|
|---|
| 630 | /* [unique][in] */ ByRef ctime As /*Const*/ FILETIME,
|
|---|
| 631 | /* [unique][in] */ ByRef atime As /*Const*/ FILETIME,
|
|---|
| 632 | /* [unique][in] */ ByRef mtime As /*Const*/ FILETIME) As HRESULT
|
|---|
| 633 | Function SetClass(
|
|---|
| 634 | /* [in] */ ByRef clsid As CLSID) As HRESULT
|
|---|
| 635 | Function SetStateBits(
|
|---|
| 636 | /* [in] */ grfStateBits As DWord,
|
|---|
| 637 | /* [in] */ grfMask As DWord) As HRESULT
|
|---|
| 638 | Function Stat(
|
|---|
| 639 | /* [out] */ ByRef statstg As STATSTG,
|
|---|
| 640 | /* [in] */ grfStatFlag As DWord) As HRESULT
|
|---|
| 641 | End Interface
|
|---|
| 642 |
|
|---|
| 643 | /* interface IPersistFile */
|
|---|
| 644 | /* [unique][uuid][object] */
|
|---|
| 645 |
|
|---|
| 646 | Dim IID_IPersistFile = [&h0000010b, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 647 | Interface IPersistFile
|
|---|
| 648 | Inherits IPersist
|
|---|
| 649 |
|
|---|
| 650 | Function IsDirty() As HRESULT
|
|---|
| 651 | Function Load(
|
|---|
| 652 | /* [in] */ pszFileName As LPCOLESTR,
|
|---|
| 653 | /* [in] */ dwMode As DWord) As HRESULT
|
|---|
| 654 | Function Save(
|
|---|
| 655 | /* [unique][in] */ pszFileName As LPCOLESTR,
|
|---|
| 656 | /* [in] */ fRemember As BOOL) As HRESULT
|
|---|
| 657 | Function SaveCompleted(
|
|---|
| 658 | /* [unique][in] */ pszFileName As LPCOLESTR) As HRESULT
|
|---|
| 659 | Function GetCurFile(
|
|---|
| 660 | /* [out] */ ByRef pszFileName As LPOLESTR) As HRESULT
|
|---|
| 661 | End Interface
|
|---|
| 662 |
|
|---|
| 663 | /* interface IPersistStorage */
|
|---|
| 664 | /* [unique][uuid][object] */
|
|---|
| 665 |
|
|---|
| 666 | Dim IID_IPersistStorage = [&h0000010a, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 667 | Interface IPersistStorage
|
|---|
| 668 | Inherits IPersist
|
|---|
| 669 |
|
|---|
| 670 | Function IsDirty() As HRESULT
|
|---|
| 671 | Function InitNew(
|
|---|
| 672 | /* [unique][in] */ Stg As IStorage) As HRESULT
|
|---|
| 673 | Function Load(
|
|---|
| 674 | /* [unique][in] */ Stg As IStorage) As HRESULT
|
|---|
| 675 | Function Save(
|
|---|
| 676 | /* [unique][in] */ StgSave As IStorage,
|
|---|
| 677 | /* [in] */ fSameAsLoad As BOOL) As HRESULT
|
|---|
| 678 | Function SaveCompleted(
|
|---|
| 679 | /* [unique][in] */ StgNew As IStorage) As HRESULT
|
|---|
| 680 | Function HandsOffStorage() As HRESULT
|
|---|
| 681 | End Interface
|
|---|
| 682 |
|
|---|
| 683 | /* interface ILockBytes */
|
|---|
| 684 | /* [unique][uuid][object] */
|
|---|
| 685 |
|
|---|
| 686 | Dim IID_ILockBytes = [&h0000000a, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 687 | Interface ILockBytes
|
|---|
| 688 | Inherits IUnknown
|
|---|
| 689 |
|
|---|
| 690 | /* [local] */ Function ReadAt(
|
|---|
| 691 | /* [in] */ ulOffset As ULARGE_INTEGER,
|
|---|
| 692 | /* [length_is][size_is][out] */ pv As VoidPtr,
|
|---|
| 693 | /* [in] */ cb As DWord,
|
|---|
| 694 | /* [out] */ ByRef cbRead As DWord) As HRESULT
|
|---|
| 695 | /* [local] */ Function WriteAt(
|
|---|
| 696 | /* [in] */ ulOffset As ULARGE_INTEGER,
|
|---|
| 697 | /* [size_is][in] */ pv As VoidPtr,
|
|---|
| 698 | /* [in] */ cb As DWord,
|
|---|
| 699 | /* [out] */ ByRef cbWritten As DWord) As HRESULT
|
|---|
| 700 | Function Flush() As HRESULT
|
|---|
| 701 | Function SetSize(
|
|---|
| 702 | /* [in] */ cb As ULARGE_INTEGER) As HRESULT
|
|---|
| 703 | Function LockRegion(
|
|---|
| 704 | /* [in] */ libOffset As ULARGE_INTEGER,
|
|---|
| 705 | /* [in] */ cb As ULARGE_INTEGER,
|
|---|
| 706 | /* [in] */ dwLockType As DWord) As HRESULT
|
|---|
| 707 | Function UnlockRegion(
|
|---|
| 708 | /* [in] */ libOffset As ULARGE_INTEGER,
|
|---|
| 709 | /* [in] */ cb As ULARGE_INTEGER,
|
|---|
| 710 | /* [in] */ dwLockType As DWord) As HRESULT
|
|---|
| 711 | Function Stat(
|
|---|
| 712 | /* [out] */ ByRef statstg As STATSTG,
|
|---|
| 713 | /* [in] */ grfStatFlag As DWord) As HRESULT
|
|---|
| 714 | End Interface
|
|---|
| 715 |
|
|---|
| 716 | Type DVTARGETDEVICE
|
|---|
| 717 | tdSize As DWord
|
|---|
| 718 | tdDriverNameOffset As Word
|
|---|
| 719 | tdDeviceNameOffset As Word
|
|---|
| 720 | tdPortNameOffset As Word
|
|---|
| 721 | tdExtDevmodeOffset As Word
|
|---|
| 722 | tdData[ELM(1)] As Byte
|
|---|
| 723 | End Type
|
|---|
| 724 |
|
|---|
| 725 | TypeDef LPCLIPFORMAT = *CLIPFORMAT
|
|---|
| 726 |
|
|---|
| 727 | Type FORMATETC
|
|---|
| 728 | cfFormat As CLIPFORMAT
|
|---|
| 729 | ptd As *DVTARGETDEVICE
|
|---|
| 730 | dwAspect As DWord
|
|---|
| 731 | lindex As Long
|
|---|
| 732 | tymed As DWord
|
|---|
| 733 | End Type
|
|---|
| 734 |
|
|---|
| 735 | TypeDef LPFORMATETC = *FORMATETC
|
|---|
| 736 |
|
|---|
| 737 | Interface IEnumFORMATETC
|
|---|
| 738 | Inherits IUnknown
|
|---|
| 739 | End Interface
|
|---|
| 740 |
|
|---|
| 741 | Interface IEnumSTATDATA
|
|---|
| 742 | Inherits IUnknown
|
|---|
| 743 | End Interface
|
|---|
| 744 |
|
|---|
| 745 | /* interface IRootStorage */
|
|---|
| 746 | /* [unique][uuid][object] */
|
|---|
| 747 |
|
|---|
| 748 | Dim IID_IRootStorage = [&h00000012, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 749 | Interface IRootStorage
|
|---|
| 750 | Inherits IUnknown
|
|---|
| 751 |
|
|---|
| 752 | Function SwitchToFile(
|
|---|
| 753 | /* [in] */ pszFile As LPOLESTR) As HRESULT
|
|---|
| 754 | End Interface
|
|---|
| 755 |
|
|---|
| 756 | /* interface IAdviseSink */
|
|---|
| 757 | /* [unique][async_uuid][uuid][object] */
|
|---|
| 758 |
|
|---|
| 759 | Enum /*[transmit_as(long)]*/ TYMED
|
|---|
| 760 | TYMED_HGLOBAL = 1
|
|---|
| 761 | TYMED_FILE = 2
|
|---|
| 762 | TYMED_ISTREAM = 4
|
|---|
| 763 | TYMED_ISTORAGE = 8
|
|---|
| 764 | TYMED_GDI = 16
|
|---|
| 765 | TYMED_MFPICT = 32
|
|---|
| 766 | TYMED_ENHMF = 64
|
|---|
| 767 | TYMED_NULL = 0
|
|---|
| 768 | End Enum
|
|---|
| 769 |
|
|---|
| 770 | Type RemSTGMEDIUM
|
|---|
| 771 | tymed As DWord
|
|---|
| 772 | dwHandleType As DWord
|
|---|
| 773 | pData As DWord
|
|---|
| 774 | pUnkForRelease As DWord
|
|---|
| 775 | cbData As DWord
|
|---|
| 776 | data[ELM(1)] As Byte
|
|---|
| 777 | End Type
|
|---|
| 778 |
|
|---|
| 779 | /* [wire_marshal] */ Type STGMEDIUM
|
|---|
| 780 | tymed As DWord
|
|---|
| 781 | data As VoidPtr
|
|---|
| 782 | ' /* [switch_type(DWORD), switch_is((DWORD) tymed)] */
|
|---|
| 783 | ' Union
|
|---|
| 784 | ' /*[case(TYMED_GDI)]*/ hBitmap As HBITMAP
|
|---|
| 785 | ' /*[case(TYMED_MFPICT)]*/ hMetaFilePict As HMETAFILEPICT
|
|---|
| 786 | ' /*[case(TYMED_ENHMF)]*/ hEnhMetaFile As HENHMETAFILE
|
|---|
| 787 | ' /*[case(TYMED_HGLOBAL)]*/ hGlobal As HGLOBAL
|
|---|
| 788 | ' /*[case(TYMED_FILE)]*/ lpszFileName As LPWSTR
|
|---|
| 789 | ' /*[case(TYMED_ISTREAM)]*/ pstm As *IStream
|
|---|
| 790 | ' /*[case(TYMED_ISTORAGE)]*/ pstg As *IStorage
|
|---|
| 791 | ' /*[default]*/
|
|---|
| 792 | ' End Union
|
|---|
| 793 | /*[unique]*/ pUnkForRelease As *IUnknown
|
|---|
| 794 | End Type
|
|---|
| 795 |
|
|---|
| 796 | Type GDI_OBJECT
|
|---|
| 797 | ' ObjectType As DWord
|
|---|
| 798 | ' /* [switch_type] */ u As Union
|
|---|
| 799 | ' hBitmap As wireHBITMAP
|
|---|
| 800 | ' hPalette As wireHPALETTE
|
|---|
| 801 | ' hGeneric As wireHGLOBAL
|
|---|
| 802 | ' End Union
|
|---|
| 803 | End Type
|
|---|
| 804 |
|
|---|
| 805 | Type userSTGMEDIUM
|
|---|
| 806 | ' tymed As DWord
|
|---|
| 807 | ' /* [switch_type] */ u As Union
|
|---|
| 808 | ' /* Empty union arm */
|
|---|
| 809 | ' hMetaFilePict As wireHMETAFILEPICT
|
|---|
| 810 | ' hHEnhMetaFile As wireHENHMETAFILE
|
|---|
| 811 | ' hGdiHandle As *GDI_OBJECT
|
|---|
| 812 | ' hGlobal As wireHGLOBAL
|
|---|
| 813 | ' lpszFileName As LPOLESTR
|
|---|
| 814 | ' pstm As *BYTE_BLOB
|
|---|
| 815 | ' pstg As BYTE_BLOB
|
|---|
| 816 | ' End Union
|
|---|
| 817 | ' pUnkForRelease As IUnknown
|
|---|
| 818 | End Type
|
|---|
| 819 |
|
|---|
| 820 | TypeDef wireSTGMEDIUM = /* [unique] */ *userSTGMEDIUM
|
|---|
| 821 | TypeDef ASYNC_STGMEDIUM = /* [unique] */ *userSTGMEDIUM
|
|---|
| 822 | TypeDef wireSTGMEDIUM = /* [wire_marshal] */ STGMEDIUM
|
|---|
| 823 |
|
|---|
| 824 | Type userFLAG_STGMEDIUM
|
|---|
| 825 | ' ContextFlags As Long
|
|---|
| 826 | ' fPassOwnership As Long
|
|---|
| 827 | ' Stgmed As userSTGMEDIUM
|
|---|
| 828 | End Type
|
|---|
| 829 |
|
|---|
| 830 | TypeDef wireFLAG_STGMEDIUM = /* [unique] */ *userFLAG_STGMEDIUM
|
|---|
| 831 |
|
|---|
| 832 | Type /* [wire_marshal] */ FLAG_STGMEDIUM
|
|---|
| 833 | ContextFlags As Long
|
|---|
| 834 | fPassOwnership As Long
|
|---|
| 835 | Stgmed As STGMEDIUM
|
|---|
| 836 | End Type
|
|---|
| 837 |
|
|---|
| 838 | Dim IID_IAdviseSink = [&h0000010f, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 839 | Interface IAdviseSink
|
|---|
| 840 | Inherits IUnknown
|
|---|
| 841 |
|
|---|
| 842 | /* [local] */ Sub OnDataChange(
|
|---|
| 843 | /* [unique][in] */ ByRef Formatetc As FORMATETC,
|
|---|
| 844 | /* [unique][in] */ ByRef Stgmed As STGMEDIUM)
|
|---|
| 845 | /* [local] */ Sub OnViewChange(
|
|---|
| 846 | /* [in] */ dwAspect As DWord,
|
|---|
| 847 | /* [in] */ lindex As Long)
|
|---|
| 848 | /* [local] */ Sub OnRename(
|
|---|
| 849 | /* [in] */ mk As IMoniker)
|
|---|
| 850 | /* [local] */ Sub OnSave()
|
|---|
| 851 | /* [local] */ Sub OnClose()
|
|---|
| 852 | End Interface
|
|---|
| 853 |
|
|---|
| 854 | ' AsyncIAdviseSink
|
|---|
| 855 |
|
|---|
| 856 | ' IAdviseSink2
|
|---|
| 857 |
|
|---|
| 858 | ' AsyncIAdviseSink2
|
|---|
| 859 |
|
|---|
| 860 | Dim IID_IDataObject = [&h0000010e, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 861 | Interface IDataObject
|
|---|
| 862 | Inherits IUnknown
|
|---|
| 863 |
|
|---|
| 864 | Function /* [local] */ GetData(
|
|---|
| 865 | /* [unique][in] */ ByRef rformatetcIn As FORMATETC,
|
|---|
| 866 | /* [out] */ ByRef rmedium As STGMEDIUM) As HRESULT
|
|---|
| 867 | Function /* [local] */ GetDataHere(
|
|---|
| 868 | /* [unique][in] */ ByRef rformatetcIn As FORMATETC,
|
|---|
| 869 | /* [out] */ ByRef pmedium As STGMEDIUM) As HRESULT
|
|---|
| 870 | Function QueryGetData(
|
|---|
| 871 | /* [unique][in] */ ByRef pformatetc As FORMATETC) As HRESULT
|
|---|
| 872 | Function GetCanonicalFormatEtc(
|
|---|
| 873 | /* [unique][in] */ ByRef pformatetcIn As FORMATETC,
|
|---|
| 874 | /* [out] */ ByRef pmedium As STGMEDIUM) As HRESULT
|
|---|
| 875 | Function /* [local] */ SetData(
|
|---|
| 876 | /* [unique][in] */ pformatetcIn As *FORMATETC,
|
|---|
| 877 | /* [out] */ pmedium As *STGMEDIUM,
|
|---|
| 878 | /* [in] */ fRelease As BOOL) As HRESULT
|
|---|
| 879 | Function EnumFormatEtc(
|
|---|
| 880 | /* [in] */ dwDirection As DWord,
|
|---|
| 881 | /* [out] */ ByRef rpenumFormatEtc As IEnumFORMATETC) As HRESULT
|
|---|
| 882 | Function DAdvise(
|
|---|
| 883 | /* [in] */ ByRef pformatetc As FORMATETC,
|
|---|
| 884 | /* [in] */ advf As DWord,
|
|---|
| 885 | /* [unique][in] */ pAdvSink As IAdviseSink,
|
|---|
| 886 | /* [out] */ pdwConnection As *DWord) As HRESULT
|
|---|
| 887 | Function DUnadvise(
|
|---|
| 888 | /* [in] */ dwConnection As DWord) As HRESULT
|
|---|
| 889 | Function EnumDAdvise(
|
|---|
| 890 | /* [out] */ ByRef rpenumAdvise As IEnumSTATDATA) As HRESULT
|
|---|
| 891 | End Interface
|
|---|
| 892 |
|
|---|
| 893 | Interface IDataAdviseHolder
|
|---|
| 894 | Inherits IUnknown
|
|---|
| 895 | End Interface
|
|---|
| 896 |
|
|---|
| 897 | Enum CALLTYPE
|
|---|
| 898 | CALLTYPE_TOPLEVEL = 1
|
|---|
| 899 | CALLTYPE_NESTED = 2
|
|---|
| 900 | CALLTYPE_ASYNC = 3
|
|---|
| 901 | CALLTYPE_TOPLEVEL_CALLPENDING = 4
|
|---|
| 902 | CALLTYPE_ASYNC_CALLPENDING = 5
|
|---|
| 903 | End Enum
|
|---|
| 904 |
|
|---|
| 905 | Enum ERVERCALL
|
|---|
| 906 | SERVERCALL_ISHANDLED = 0
|
|---|
| 907 | SERVERCALL_REJECTED = 1
|
|---|
| 908 | SERVERCALL_RETRYLATER = 2
|
|---|
| 909 | End Enum
|
|---|
| 910 |
|
|---|
| 911 | Enum PENDINGTYPE
|
|---|
| 912 | PENDINGTYPE_TOPLEVEL = 1
|
|---|
| 913 | PENDINGTYPE_NESTED = 2
|
|---|
| 914 | End Enum
|
|---|
| 915 |
|
|---|
| 916 | Enum PENDINGMSG
|
|---|
| 917 | PENDINGMSG_CANCELCALL = 0
|
|---|
| 918 | PENDINGMSG_WAITNOPROCESS = 1
|
|---|
| 919 | PENDINGMSG_WAITDEFPROCESS = 2
|
|---|
| 920 | End Enum
|
|---|
| 921 |
|
|---|
| 922 | Type INTERFACEINFO
|
|---|
| 923 | pUnk As *IUnknown
|
|---|
| 924 | iid As IID
|
|---|
| 925 | wMethod As Word
|
|---|
| 926 | End Type
|
|---|
| 927 | TypeDef LPINTERFACEINFO = *INTERFACEINFO
|
|---|
| 928 |
|
|---|
| 929 | Dim IID_IMessageFilter = [&h00000016, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 930 | Interface IMessageFilter
|
|---|
| 931 | Inherits IUnknown
|
|---|
| 932 |
|
|---|
| 933 | Function HandleInComingCall(
|
|---|
| 934 | /* [in] */ dwCallType As DWord,
|
|---|
| 935 | /* [in] */ htaskCaller As HTASK,
|
|---|
| 936 | /* [in] */ dwTickCount As DWord,
|
|---|
| 937 | /* [in] */ lpInterfaceInfo As LPINTERFACEINFO) As DWord
|
|---|
| 938 | Function RetryRejectedCall(
|
|---|
| 939 | /* [in] */ htaskCallee As HTASK,
|
|---|
| 940 | /* [in] */ dwTickCount As DWord,
|
|---|
| 941 | /* [in] */ dwRejectType As DWord) As DWord
|
|---|
| 942 | Function MessagePending(
|
|---|
| 943 | /* [in] */ htaskCallee As HTASK,
|
|---|
| 944 | /* [in] */ dwTickCount As DWord,
|
|---|
| 945 | /* [in] */ dwPendingType As DWord) As DWord
|
|---|
| 946 | End Interface
|
|---|
| 947 |
|
|---|
| 948 | ' IRpcChannelBuffer
|
|---|
| 949 |
|
|---|
| 950 | ' IRpcChannelBuffer2
|
|---|
| 951 |
|
|---|
| 952 | ' IAsyncRpcChannelBuffer
|
|---|
| 953 |
|
|---|
| 954 | ' IRpcChannelBuffer3
|
|---|
| 955 |
|
|---|
| 956 | ' IRpcSyntaxNegotiate
|
|---|
| 957 |
|
|---|
| 958 | ' IRpcProxyBuffer
|
|---|
| 959 |
|
|---|
| 960 | ' IRpcStubBuffer
|
|---|
| 961 |
|
|---|
| 962 | ' IPSFactoryBuffer
|
|---|
| 963 |
|
|---|
| 964 | ' IChannelHook
|
|---|
| 965 |
|
|---|
| 966 | ' IClientSecurity
|
|---|
| 967 |
|
|---|
| 968 | ' IServerSecurity
|
|---|
| 969 |
|
|---|
| 970 | ' IClassActivator
|
|---|
| 971 |
|
|---|
| 972 | ' IRpcOptions
|
|---|
| 973 |
|
|---|
| 974 | Interface IFillLockBytes
|
|---|
| 975 | Inherits IUnknown
|
|---|
| 976 | End Interface
|
|---|
| 977 |
|
|---|
| 978 | ' IProgressNotify
|
|---|
| 979 |
|
|---|
| 980 | ' ILayoutStorage
|
|---|
| 981 |
|
|---|
| 982 | ' IBlockingLock
|
|---|
| 983 |
|
|---|
| 984 | ' ITimeAndNoticeControl
|
|---|
| 985 |
|
|---|
| 986 | ' IOplockStorage
|
|---|
| 987 |
|
|---|
| 988 | ' ISurrogate
|
|---|
| 989 |
|
|---|
| 990 | Dim IID_IGlobalInterfaceTable = [&h00000146, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 991 | Interface IGlobalInterfaceTable
|
|---|
| 992 | Inherits IUnknown
|
|---|
| 993 |
|
|---|
| 994 | Function RegisterInterfaceInGlobal(
|
|---|
| 995 | /* [in] */ unk As IUnknown,
|
|---|
| 996 | /* [in] */ ByRef riid As IID,
|
|---|
| 997 | /* [out] */ ByRef dwCookie As DWord) As HRESULT
|
|---|
| 998 | Function RevokeInterfaceFromGlobal(
|
|---|
| 999 | /* [in] */ dwCookie As DWord) As HRESULT
|
|---|
| 1000 | Function GetInterfaceFromGlobal(
|
|---|
| 1001 | /* [in] */ dwCookie As DWord,
|
|---|
| 1002 | /* [in] */ ByRef riid As IID,
|
|---|
| 1003 | /* [iid_is][out] */ ByRef ppv As Any) As HRESULT
|
|---|
| 1004 | End Interface
|
|---|
| 1005 |
|
|---|
| 1006 | ' IDirectWriterLock
|
|---|
| 1007 |
|
|---|
| 1008 | ' ISynchronize
|
|---|
| 1009 |
|
|---|
| 1010 | ' ISynchronizeHandle
|
|---|
| 1011 |
|
|---|
| 1012 | ' ISynchronizeEvent
|
|---|
| 1013 |
|
|---|
| 1014 | ' ISynchronizeContainer
|
|---|
| 1015 |
|
|---|
| 1016 | ' ISynchronizeMutex
|
|---|
| 1017 |
|
|---|
| 1018 | ' ICancelMethodCalls
|
|---|
| 1019 |
|
|---|
| 1020 | ' IAsyncManager
|
|---|
| 1021 |
|
|---|
| 1022 | ' ICallFactory
|
|---|
| 1023 |
|
|---|
| 1024 | ' IRpcHelper
|
|---|
| 1025 |
|
|---|
| 1026 | ' IReleaseMarshalBuffers
|
|---|
| 1027 |
|
|---|
| 1028 | ' IWaitMultiple
|
|---|
| 1029 |
|
|---|
| 1030 | ' IUrlMon
|
|---|
| 1031 |
|
|---|
| 1032 | ' IForegroundTransfer
|
|---|
| 1033 |
|
|---|
| 1034 | ' IAddrTrackingControl
|
|---|
| 1035 |
|
|---|
| 1036 | ' IAddrExclusionControl
|
|---|
| 1037 |
|
|---|
| 1038 | ' IPipeByte
|
|---|
| 1039 |
|
|---|
| 1040 | ' AsyncIPipeByte
|
|---|
| 1041 |
|
|---|
| 1042 | ' IPipeLong
|
|---|
| 1043 |
|
|---|
| 1044 | ' AsyncIPipeLong
|
|---|
| 1045 |
|
|---|
| 1046 | ' IPipeDouble
|
|---|
| 1047 |
|
|---|
| 1048 | ' AsyncIPipeDouble
|
|---|
| 1049 |
|
|---|
| 1050 | ' IThumbnailExtractor
|
|---|
| 1051 |
|
|---|
| 1052 | ' IDummyHICONIncluder
|
|---|
| 1053 |
|
|---|
| 1054 | ' IEnumContextProps
|
|---|
| 1055 |
|
|---|
| 1056 | ' IContext
|
|---|
| 1057 |
|
|---|
| 1058 | ' IObjContext
|
|---|
| 1059 |
|
|---|
| 1060 | ' IProcessLock
|
|---|
| 1061 |
|
|---|
| 1062 | ' ISurrogateService
|
|---|
| 1063 |
|
|---|
| 1064 | ' IComThreadingInfo
|
|---|
| 1065 |
|
|---|
| 1066 | ' IProcessInitControl
|
|---|
| 1067 |
|
|---|
| 1068 | ' IInitializeSpy
|
|---|
| 1069 |
|
|---|
| 1070 | #endif '_INC_OBJIDL
|
|---|
