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