| 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 | TypeDef LPMARSHAL = /* [unique] */ *IMarshal
|
|---|
| 17 |
|
|---|
| 18 | Dim IID_IMarshal = [&h00000003, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 19 | Interface IMarshal
|
|---|
| 20 | Inherits IUnknown
|
|---|
| 21 |
|
|---|
| 22 | Function GetUnmarshalClass(
|
|---|
| 23 | /* [in] */ ByRef iid As IID,
|
|---|
| 24 | /* [unique][in] */ pv As VoidPtr,
|
|---|
| 25 | /* [in] */ dwDestContext As DWord,
|
|---|
| 26 | /* [unique][in] */ pvDestContext As VoidPtr,
|
|---|
| 27 | /* [in] */ mshlflags As DWord,
|
|---|
| 28 | /* [out] */ ByRef Cid As CLSID) As HRESULT
|
|---|
| 29 | Function GetMarshalSizeMax(
|
|---|
| 30 | /* [in] */ ByRef iid As IID,
|
|---|
| 31 | /* [unique][in] */ pv As VoidPtr,
|
|---|
| 32 | /* [in] */ dwDestContext As DWord,
|
|---|
| 33 | /* [unique][in] */ pvDestContext As VoidPtr,
|
|---|
| 34 | /* [in] */ mshlflags As DWord,
|
|---|
| 35 | /* [out] */ ByRef Size As DWord) As HRESULT
|
|---|
| 36 | Function MarshalInterface(
|
|---|
| 37 | /* [unique][in] */ pStm As IStream,
|
|---|
| 38 | /* [in] */ ByRef iid As IID,
|
|---|
| 39 | /* [unique][in] */ pv As VoidPtr,
|
|---|
| 40 | /* [in] */ dwDestContext As DWord,
|
|---|
| 41 | /* [unique][in] */ pvDestContext As VoidPtr,
|
|---|
| 42 | /* [in] */ mshlflags As DWord) As HRESULT
|
|---|
| 43 | Function UnmarshalInterface(
|
|---|
| 44 | /* [unique][in] */ pStm As IStream,
|
|---|
| 45 | /* [in] */ ByRef iid As IID,
|
|---|
| 46 | /* [out] */ ByRef ppv As VoidPtr) As HRESULT
|
|---|
| 47 | Function ReleaseMarshalData(
|
|---|
| 48 | /* [unique][in] */ pStm As *IStream) As HRESULT
|
|---|
| 49 | Function DisconnectObject(
|
|---|
| 50 | /* [in] */ dwReserved As DWord) As HRESULT
|
|---|
| 51 | End Interface
|
|---|
| 52 |
|
|---|
| 53 | ' IMarshal2
|
|---|
| 54 |
|
|---|
| 55 | Dim IID_IMalloc = [&h00000002, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 56 | Interface IMalloc
|
|---|
| 57 | Inherits IUnknown
|
|---|
| 58 |
|
|---|
| 59 | Function Alloc(
|
|---|
| 60 | /* [in] */ cb As SIZE_T) As VoidPtr
|
|---|
| 61 | Function Realloc(
|
|---|
| 62 | /* [in] */ pv As VoidPtr,
|
|---|
| 63 | /* [in] */ cb As SIZE_T) As VoidPtr
|
|---|
| 64 | Sub Free(
|
|---|
| 65 | /* [in] */ pv As VoidPtr)
|
|---|
| 66 | Function GetSize(pv As VoidPtr) As SIZE_T
|
|---|
| 67 | Function DidAlloc(pv As VoidPtr) As Long
|
|---|
| 68 | Sub HeapMinimize()
|
|---|
| 69 | End Interface
|
|---|
| 70 |
|
|---|
| 71 | ' IMallocSpy
|
|---|
| 72 |
|
|---|
| 73 | ' IStdMarshalInfo
|
|---|
| 74 |
|
|---|
| 75 | ' IExternalCennection
|
|---|
| 76 |
|
|---|
| 77 | Type MULTI_QI
|
|---|
| 78 | pIID As * /*Const*/ IID
|
|---|
| 79 | pItf As *IUnknown
|
|---|
| 80 | hr As HRESULT
|
|---|
| 81 | End Type
|
|---|
| 82 |
|
|---|
| 83 | Dim IID_IMultiQI = [&h00000020, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| 84 |
|
|---|
| 85 | Interface IMultiQI
|
|---|
| 86 | Inherits IUnknown
|
|---|
| 87 |
|
|---|
| 88 | Function QueryMultipleInterfaces(
|
|---|
| 89 | /* [in] */ cMQIs As DWord,
|
|---|
| 90 | /* [out][in] */ pMQIs As *MULTI_QI) As HRESULT
|
|---|
| 91 | End Interface
|
|---|
| 92 |
|
|---|
| 93 | ' AsyncIMultiQI
|
|---|
| 94 |
|
|---|
| 95 | ' IInternalUnknown
|
|---|
| 96 |
|
|---|
| 97 | ' IEnumUnknown
|
|---|
| 98 |
|
|---|
| 99 | Type BIND_OPTS
|
|---|
| 100 | cbStruct As DWord
|
|---|
| 101 | grfFlags As DWord
|
|---|
| 102 | grfMode As DWord
|
|---|
| 103 | dwTickCountDeadline As DWord
|
|---|
| 104 | End Type
|
|---|
| 105 |
|
|---|
| 106 | Type BIND_OPTS2
|
|---|
| 107 | ' Inherits BIND_OPTS
|
|---|
| 108 | cbStruct As DWord
|
|---|
| 109 | grfFlags As DWord
|
|---|
| 110 | grfMode As DWord
|
|---|
| 111 | dwTickCountDeadline As DWord
|
|---|
| 112 |
|
|---|
| 113 | dwTrackFlags As DWord
|
|---|
| 114 | dwClassContext As DWord
|
|---|
| 115 | locale As LCID
|
|---|
| 116 | pServerInfo As *COSERVERINFO
|
|---|
| 117 | End Type
|
|---|
| 118 |
|
|---|
| 119 | Type BIND_OPTS3
|
|---|
| 120 | ' Inherits BIND_OPTS
|
|---|
| 121 | cbStruct As DWord
|
|---|
| 122 | grfFlags As DWord
|
|---|
| 123 | grfMode As DWord
|
|---|
| 124 | dwTickCountDeadline As DWord
|
|---|
| 125 |
|
|---|
| 126 | dwTrackFlags As DWord
|
|---|
| 127 | dwClassContext As DWord
|
|---|
| 128 | locale As LCID
|
|---|
| 129 | pServerInfo As *COSERVERINFO
|
|---|
| 130 |
|
|---|
| 131 | hwnd As HWND
|
|---|
| 132 | End Type
|
|---|
| 133 |
|
|---|
| 134 | Const Enum BIND_FLAGS
|
|---|
| 135 | BIND_MAYBOTHERUSER
|
|---|
| 136 | BIND_JUSTTESTEXISTENCE
|
|---|
| 137 | End Enum
|
|---|
| 138 |
|
|---|
| 139 | Dim IID_IBindCtx = [&h0000000E, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 140 | Interface IBindCtx
|
|---|
| 141 | Inherits IUnknown
|
|---|
| 142 |
|
|---|
| 143 | Function RegisterObjectBound(
|
|---|
| 144 | /* [unique][in] */ punk As IUnknown) As HRESULT
|
|---|
| 145 | Function RevokeObjectBound(
|
|---|
| 146 | /* [unique][in] */ punk As IUnknown) As HRESULT
|
|---|
| 147 | Function ReleaseBoundObjects() As HRESULT
|
|---|
| 148 | /* [local] */ Function SetBindOptions(
|
|---|
| 149 | /* [in] */ ByRef bindopts As BIND_OPTS) As HRESULT
|
|---|
| 150 | /* [local] */ Function GetBindOptions(
|
|---|
| 151 | /* [out][in] */ ByRef bindopts As BIND_OPTS) As HRESULT
|
|---|
| 152 | Function GetRunningObjectTable(
|
|---|
| 153 | /* [out] */ ByRef rot As IRunningObjectTable) As HRESULT
|
|---|
| 154 | Function RegisterObjectParam(
|
|---|
| 155 | /* [in] */ pszKey As LPOLESTR,
|
|---|
| 156 | /* [unique][in] */ unk As IUnknown) As HRESULT
|
|---|
| 157 | Function GetObjectParam(
|
|---|
| 158 | /* [in] */ pszKey As LPOLESTR,
|
|---|
| 159 | /* [out] */ ByRef unk As IUnknown) As HRESULT
|
|---|
| 160 | Function EnumObjectParam(
|
|---|
| 161 | /* [out] */ ByRef enumstr As IEnumString) As HRESULT
|
|---|
| 162 | Function RevokeObjectParam(
|
|---|
| 163 | /* [in] */ pszKey As LPOLESTR) As HRESULT
|
|---|
| 164 | End Interface
|
|---|
| 165 |
|
|---|
| 166 | ' IEnumMoniker
|
|---|
| 167 |
|
|---|
| 168 | Interface IRunningObjectTable
|
|---|
| 169 | Inherits IUnknown
|
|---|
| 170 | End Interface
|
|---|
| 171 |
|
|---|
| 172 | Dim IID_IPersist = [&h0000010c, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| 173 | Interface IPersist
|
|---|
| 174 | Inherits IUnknown
|
|---|
| 175 |
|
|---|
| 176 | Function GetClassID(
|
|---|
| 177 | /* [out] */ ByRef ClassID As CLSID) As HRESULT
|
|---|
| 178 | End Interface
|
|---|
| 179 |
|
|---|
| 180 | Dim IID_IPersistStream = [&h00000109, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| 181 | Interface IPersistStream
|
|---|
| 182 | Inherits IPersist
|
|---|
| 183 |
|
|---|
| 184 | Function IsDirty() As HRESULT
|
|---|
| 185 |
|
|---|
| 186 | Function Load(
|
|---|
| 187 | /* [unique][in] */ Stm As IStream) As HRESULT
|
|---|
| 188 |
|
|---|
| 189 | Function Save(
|
|---|
| 190 | /* [unique][in] */ Stm As IStream,
|
|---|
| 191 | /* [in] */ fClearDirty As BOOL) As HRESULT
|
|---|
| 192 |
|
|---|
| 193 | Function GetSizeMax(
|
|---|
| 194 | /* [out] */ ByRef cbSize As ULARGE_INTEGER) As HRESULT
|
|---|
| 195 | End Interface
|
|---|
| 196 |
|
|---|
| 197 | Interface IMoniker
|
|---|
| 198 | Inherits IPersistStream
|
|---|
| 199 | End Interface
|
|---|
| 200 |
|
|---|
| 201 | Dim IID_IEnumString = [&h00000101, 0, 0, [&hC0, 0, 0, 0, 0, 0, 0, &h46]] As IID
|
|---|
| 202 | Interface IEnumString
|
|---|
| 203 | Inherits IUnknown
|
|---|
| 204 |
|
|---|
| 205 | /* [local] */ Function Next_(
|
|---|
| 206 | /* [in] */ celt As DWord,
|
|---|
| 207 | /* [length_is][size_is][out] */ ByRef rgelt As LPOLESTR,
|
|---|
| 208 | /* [out] */ ByRef celtFetched As DWord) As HRESULT
|
|---|
| 209 | Function Skip(
|
|---|
| 210 | /* [in] */ celt As DWord) As HRESULT
|
|---|
| 211 | Function Reset() As HRESULT
|
|---|
| 212 | Function Clone(
|
|---|
| 213 | /* [out] */ ByRef enumstr As IEnumString) As HRESULT
|
|---|
| 214 | End Interface
|
|---|
| 215 |
|
|---|
| 216 | Dim IID_ISequentialStream = [&h0c733a30, &h2a1c, &h11ce, [&had, &he5, &h00, &haa, &h00, &h44, &h77, &h3d]] As IID
|
|---|
| 217 | Interface ISequentialStream
|
|---|
| 218 | Inherits IUnknown
|
|---|
| 219 |
|
|---|
| 220 | Function Read(pv As VoidPtr, cb As DWord, ByRef cbRead As DWord) As HRESULT
|
|---|
| 221 | Function Write(pv As VoidPtr, cb As DWord, ByRef cbWritten As DWord) As HRESULT
|
|---|
| 222 | End Interface
|
|---|
| 223 |
|
|---|
| 224 | Type STATSTG
|
|---|
| 225 | pwcsName As LPOLESTR
|
|---|
| 226 | type_ As DWord
|
|---|
| 227 | cbSize As ULARGE_INTEGER
|
|---|
| 228 | mtime As FILETIME
|
|---|
| 229 | ctime As FILETIME
|
|---|
| 230 | atime As FILETIME
|
|---|
| 231 | grfMode As DWord
|
|---|
| 232 | grfLocksSupported As DWord
|
|---|
| 233 | clsid As CLSID
|
|---|
| 234 | grfStateBits As DWord
|
|---|
| 235 | reserved As DWord
|
|---|
| 236 | End Type
|
|---|
| 237 |
|
|---|
| 238 | Enum STGTY
|
|---|
| 239 | STGTY_STORAGE = 1
|
|---|
| 240 | STGTY_STREAM = 2
|
|---|
| 241 | STGTY_LOCKBYTES = 3
|
|---|
| 242 | STGTY_PROPERTY = 4
|
|---|
| 243 | End Enum
|
|---|
| 244 |
|
|---|
| 245 | Enum STREAM_SEEK
|
|---|
| 246 | STREAM_SEEK_SET = 0
|
|---|
| 247 | STREAM_SEEK_CUR = 1
|
|---|
| 248 | STREAM_SEEK_END = 2
|
|---|
| 249 | End Enum
|
|---|
| 250 |
|
|---|
| 251 | Enum LOCKTYPE
|
|---|
| 252 | LOCK_WRITE = 1
|
|---|
| 253 | LOCK_EXCLUSIVE = 2
|
|---|
| 254 | LOCK_ONLYONCE = 4
|
|---|
| 255 | End Enum
|
|---|
| 256 |
|
|---|
| 257 | Dim IID_IStream = [&h0000000c, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| 258 | Interface IStream
|
|---|
| 259 | Inherits ISequentialStream
|
|---|
| 260 |
|
|---|
| 261 | Function Seek(dlibMove As LARGE_INTEGER, dwOrigin As DWord, plibNewPosition As *ULARGE_INTEGER) As HRESULT
|
|---|
| 262 | Function SetSize(libNewSize As ULARGE_INTEGER) As HRESULT
|
|---|
| 263 | Function CopyTo(pstm As *IStream, cb As ULARGE_INTEGER, pcbRead As *ULARGE_INTEGER, pcbWritten As *ULARGE_INTEGER) As HRESULT
|
|---|
| 264 | Function Commit(grfCommitFlags As DWord) As HRESULT
|
|---|
| 265 | Function Revert() As HRESULT
|
|---|
| 266 | Function LockRegion(libOffset As ULARGE_INTEGER, cb As ULARGE_INTEGER, dwLockType As DWord) As HRESULT
|
|---|
| 267 | Function UnlockRegion(libOffset As ULARGE_INTEGER, cb As ULARGE_INTEGER, dwLockType As DWord) As HRESULT
|
|---|
| 268 | Function Stat(pstatstg As *STATSTG, grfStatFlag As DWord) As HRESULT
|
|---|
| 269 | Function Clone(ByRef stm As IStream) As HRESULT
|
|---|
| 270 | End Interface
|
|---|
| 271 | TypeDef LPSTREAM = *IStream
|
|---|
| 272 |
|
|---|
| 273 | Interface IEnumSTATSTG
|
|---|
| 274 | Inherits IUnknown
|
|---|
| 275 | End Interface
|
|---|
| 276 |
|
|---|
| 277 | #ifndef __IStorage_INTERFACE_DEFINED__
|
|---|
| 278 | #define __IStorage_INTERFACE_DEFINED__
|
|---|
| 279 |
|
|---|
| 280 | /* interface IStorage */
|
|---|
| 281 | /* [unique][uuid][object] */
|
|---|
| 282 |
|
|---|
| 283 | TypeDef LPSTORAGE = /* [unique] */ *IStorage
|
|---|
| 284 |
|
|---|
| 285 | Type RemSNB
|
|---|
| 286 | ulCntStr As DWord
|
|---|
| 287 | ulCntChar As DWord
|
|---|
| 288 | rgString[ELM(1)] As OLECHAR
|
|---|
| 289 | End Type
|
|---|
| 290 |
|
|---|
| 291 | TypeDef wireSNB /* [unique] */ = *RemSNB
|
|---|
| 292 |
|
|---|
| 293 | TypeDef SNB = /* [wire_marshal] */ **OLECHAR
|
|---|
| 294 |
|
|---|
| 295 | Dim IID_IStorage = [&h0000000b, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| 296 |
|
|---|
| 297 | Interface IStorage
|
|---|
| 298 | Inherits IUnknown
|
|---|
| 299 |
|
|---|
| 300 | Function CreateStream(
|
|---|
| 301 | /* [string][in] */ pwcsName As *OLECHAR,
|
|---|
| 302 | /* [in] */ grfMode As DWord,
|
|---|
| 303 | /* [in] */ reserved1 As DWord,
|
|---|
| 304 | /* [in] */ reserved2 As DWord,
|
|---|
| 305 | /* [out] */ ByRef stm As IStream) As HRESULT
|
|---|
| 306 | /* [local] */ Function OpenStream(
|
|---|
| 307 | /* [string][in] */ pwcsName As *OLECHAR,
|
|---|
| 308 | /* [unique][in] */ reserved1 As VoidPtr,
|
|---|
| 309 | /* [in] */ grfMode As DWord,
|
|---|
| 310 | /* [in] */ reserved2 As DWord,
|
|---|
| 311 | /* [out] */ ByRef stm As IStream) As HRESULT
|
|---|
| 312 | Function CreateStorage(
|
|---|
| 313 | /* [string][in] */ pwcsName As *OLECHAR,
|
|---|
| 314 | /* [in] */ grfMode As DWord,
|
|---|
| 315 | /* [in] */ reserved1 As DWord,
|
|---|
| 316 | /* [in] */ reserved2 As DWord,
|
|---|
| 317 | /* [out] */ ByRef stg As IStorage) As HRESULT
|
|---|
| 318 | Function OpenStorage(
|
|---|
| 319 | /* [string][unique][in] */ pwcsName As *OLECHAR,
|
|---|
| 320 | /* [unique][in] */ pstgPriority As IStorage,
|
|---|
| 321 | /* [in] */ grfMode As DWord,
|
|---|
| 322 | /* [unique][in] */ snbExclude As SNB,
|
|---|
| 323 | /* [in] */ reserved As DWord,
|
|---|
| 324 | /* [out] */ ByRef stg As IStorage) As HRESULT
|
|---|
| 325 | /* [local] */ Function CopyTo(
|
|---|
| 326 | /* [in] */ ciidExclude As DWord,
|
|---|
| 327 | /* [size_is][unique][in] */ rgiidExclude As * /*Const*/ IID,
|
|---|
| 328 | /* [unique][in] */ snbExclude As SNB,
|
|---|
| 329 | /* [unique][in] */ stgDest As IStorage) As HRESULT
|
|---|
| 330 | Function MoveElementTo(
|
|---|
| 331 | /* [string][in] */ pwcsName As *OLECHAR,
|
|---|
| 332 | /* [unique][in] */ stgDest As IStorage,
|
|---|
| 333 | /* [string][in] */ pwcsNewName As *OLECHAR,
|
|---|
| 334 | /* [in] */ grfFlags As DWord) As HRESULT
|
|---|
| 335 | Function Commit(
|
|---|
| 336 | /* [in] */ grfCommitFlags As DWord) As HRESULT
|
|---|
| 337 | Function Revert() As HRESULT
|
|---|
| 338 | /* [local] */ Function EnumElements(
|
|---|
| 339 | /* [in] */ reserved1 As DWord,
|
|---|
| 340 | /* [size_is][unique][in] */ reserved2 As VoidPtr,
|
|---|
| 341 | /* [in] */ reserved3 As DWord,
|
|---|
| 342 | /* [out] */ ByRef enum_ As IEnumSTATSTG) As HRESULT
|
|---|
| 343 | Function DestroyElement(
|
|---|
| 344 | /* [string][in] */ pwcsName As *OLECHAR) As HRESULT
|
|---|
| 345 | Function RenameElement(
|
|---|
| 346 | /* [string][in] */ pwcsOldName As *OLECHAR,
|
|---|
| 347 | /* [string][in] */ pwcsNewName As *OLECHAR) As HRESULT
|
|---|
| 348 | Function SetElementTimes(
|
|---|
| 349 | /* [string][unique][in] */ pwcsName As *OLECHAR,
|
|---|
| 350 | /* [unique][in] */ ByRef ctime As /*Const*/ FILETIME,
|
|---|
| 351 | /* [unique][in] */ ByRef atime As /*Const*/ FILETIME,
|
|---|
| 352 | /* [unique][in] */ ByRef mtime As /*Const*/ FILETIME) As HRESULT
|
|---|
| 353 | Function SetClass(
|
|---|
| 354 | /* [in] */ ByRef clsid As CLSID) As HRESULT
|
|---|
| 355 | Function SetStateBits(
|
|---|
| 356 | /* [in] */ grfStateBits As DWord,
|
|---|
| 357 | /* [in] */ grfMask As DWord) As HRESULT
|
|---|
| 358 | Function Stat(
|
|---|
| 359 | /* [out] */ ByRef statstg As STATSTG,
|
|---|
| 360 | /* [in] */ grfStatFlag As DWord) As HRESULT
|
|---|
| 361 | End Interface
|
|---|
| 362 |
|
|---|
| 363 | #endif /* __IStorage_INTERFACE_DEFINED__ */
|
|---|
| 364 |
|
|---|
| 365 | Interface IPersistFile
|
|---|
| 366 | Inherits IPersist
|
|---|
| 367 |
|
|---|
| 368 | Function IsDirty() As HRESULT
|
|---|
| 369 | Function Load(
|
|---|
| 370 | /* [in] */ pszFileName As LPCOLESTR,
|
|---|
| 371 | /* [in] */ dwMode As DWord) As HRESULT
|
|---|
| 372 | Function Save(
|
|---|
| 373 | /* [unique][in] */ pszFileName As LPCOLESTR,
|
|---|
| 374 | /* [in] */ fRemember As BOOL) As HRESULT
|
|---|
| 375 | Function SaveCompleted(
|
|---|
| 376 | /* [unique][in] */ pszFileName As LPCOLESTR) As HRESULT
|
|---|
| 377 | Function GetCurFile(
|
|---|
| 378 | /* [out] */ ByRef pszFileName As LPOLESTR) As HRESULT
|
|---|
| 379 | End Interface
|
|---|
| 380 |
|
|---|
| 381 |
|
|---|
| 382 | ' IPersistStrage
|
|---|
| 383 |
|
|---|
| 384 | Interface ILockBytes
|
|---|
| 385 | Inherits IUnknown
|
|---|
| 386 | End Interface
|
|---|
| 387 |
|
|---|
| 388 | Type DVTARGETDEVICE
|
|---|
| 389 | tdSize As DWord
|
|---|
| 390 | tdDriverNameOffset As Word
|
|---|
| 391 | tdDeviceNameOffset As Word
|
|---|
| 392 | tdPortNameOffset As Word
|
|---|
| 393 | tdExtDevmodeOffset As Word
|
|---|
| 394 | tdData[ELM(1)] As Byte
|
|---|
| 395 | End Type
|
|---|
| 396 |
|
|---|
| 397 | TypeDef LPCLIPFORMAT = *CLIPFORMAT
|
|---|
| 398 |
|
|---|
| 399 | Type FORMATETC
|
|---|
| 400 | cfFormat As CLIPFORMAT
|
|---|
| 401 | ptd As *DVTARGETDEVICE
|
|---|
| 402 | dwAspect As DWord
|
|---|
| 403 | lindex As Long
|
|---|
| 404 | tymed As DWord
|
|---|
| 405 | End Type
|
|---|
| 406 |
|
|---|
| 407 | TypeDef LPFORMATETC = *FORMATETC
|
|---|
| 408 |
|
|---|
| 409 | Interface IEnumFORMATETC
|
|---|
| 410 | Inherits IUnknown
|
|---|
| 411 | End Interface
|
|---|
| 412 |
|
|---|
| 413 | Interface IEnumSTATDATA
|
|---|
| 414 | Inherits IUnknown
|
|---|
| 415 | End Interface
|
|---|
| 416 |
|
|---|
| 417 | ' IRootStorage
|
|---|
| 418 |
|
|---|
| 419 | Enum /*[transmit_as(long)]*/ TYMED
|
|---|
| 420 | TYMED_HGLOBAL = 1
|
|---|
| 421 | TYMED_FILE = 2
|
|---|
| 422 | TYMED_ISTREAM = 4
|
|---|
| 423 | TYMED_ISTORAGE = 8
|
|---|
| 424 | TYMED_GDI = 16
|
|---|
| 425 | TYMED_MFPICT = 32
|
|---|
| 426 | TYMED_ENHMF = 64
|
|---|
| 427 | TYMED_NULL = 0
|
|---|
| 428 | End Enum
|
|---|
| 429 |
|
|---|
| 430 | Type STGMEDIUM
|
|---|
| 431 | tymed As DWord
|
|---|
| 432 | data As VoidPtr
|
|---|
| 433 | ' /* [switch_type(DWORD), switch_is((DWORD) tymed)] */
|
|---|
| 434 | ' Union
|
|---|
| 435 | ' /*[case(TYMED_GDI)]*/ hBitmap As HBITMAP
|
|---|
| 436 | ' /*[case(TYMED_MFPICT)]*/ hMetaFilePict As HMETAFILEPICT
|
|---|
| 437 | ' /*[case(TYMED_ENHMF)]*/ hEnhMetaFile As HENHMETAFILE
|
|---|
| 438 | ' /*[case(TYMED_HGLOBAL)]*/ hGlobal As HGLOBAL
|
|---|
| 439 | ' /*[case(TYMED_FILE)]*/ lpszFileName As LPWSTR
|
|---|
| 440 | ' /*[case(TYMED_ISTREAM)]*/ pstm As *IStream
|
|---|
| 441 | ' /*[case(TYMED_ISTORAGE)]*/ pstg As *IStorage
|
|---|
| 442 | ' /*[default]*/
|
|---|
| 443 | ' End Union
|
|---|
| 444 | /*[unique]*/ pUnkForRelease As *IUnknown
|
|---|
| 445 | End Type
|
|---|
| 446 |
|
|---|
| 447 | Interface IAdviseSink
|
|---|
| 448 | Inherits IUnknown
|
|---|
| 449 | End Interface
|
|---|
| 450 |
|
|---|
| 451 | ' AsyncIAdviseSink
|
|---|
| 452 |
|
|---|
| 453 | ' IAdviseSink2
|
|---|
| 454 |
|
|---|
| 455 | ' AsyncIAdviseSink2
|
|---|
| 456 |
|
|---|
| 457 | Interface IDataObject
|
|---|
| 458 | Inherits IUnknown
|
|---|
| 459 |
|
|---|
| 460 | Function /* [local] */ GetData(
|
|---|
| 461 | /* [unique][in] */ ByRef rformatetcIn As FORMATETC,
|
|---|
| 462 | /* [out] */ ByRef rmedium As STGMEDIUM) As HRESULT
|
|---|
| 463 | Function /* [local] */ GetDataHere(
|
|---|
| 464 | /* [unique][in] */ ByRef rformatetcIn As FORMATETC,
|
|---|
| 465 | /* [out] */ ByRef pmedium As STGMEDIUM) As HRESULT
|
|---|
| 466 | Function QueryGetData(
|
|---|
| 467 | /* [unique][in] */ ByRef pformatetc As FORMATETC) As HRESULT
|
|---|
| 468 | Function GetCanonicalFormatEtc(
|
|---|
| 469 | /* [unique][in] */ ByRef pformatetcIn As FORMATETC,
|
|---|
| 470 | /* [out] */ ByRef pmedium As STGMEDIUM) As HRESULT
|
|---|
| 471 | Function /* [local] */ SetData(
|
|---|
| 472 | /* [unique][in] */ pformatetcIn As *FORMATETC,
|
|---|
| 473 | /* [out] */ pmedium As *STGMEDIUM,
|
|---|
| 474 | /* [in] */ fRelease As BOOL) As HRESULT
|
|---|
| 475 | Function EnumFormatEtc(
|
|---|
| 476 | /* [in] */ dwDirection As DWord,
|
|---|
| 477 | /* [out] */ ByRef rpenumFormatEtc As IEnumFORMATETC) As HRESULT
|
|---|
| 478 | Function DAdvise(
|
|---|
| 479 | /* [in] */ ByRef pformatetc As FORMATETC,
|
|---|
| 480 | /* [in] */ advf As DWord,
|
|---|
| 481 | /* [unique][in] */ pAdvSink As IAdviseSink,
|
|---|
| 482 | /* [out] */ pdwConnection As *DWord) As HRESULT
|
|---|
| 483 | Function DUnadvise(
|
|---|
| 484 | /* [in] */ dwConnection As DWord) As HRESULT
|
|---|
| 485 | Function EnumDAdvise(
|
|---|
| 486 | /* [out] */ ByRef rpenumAdvise As IEnumSTATDATA) As HRESULT
|
|---|
| 487 | End Interface
|
|---|
| 488 |
|
|---|
| 489 | Interface IDataAdviseHolder
|
|---|
| 490 | Inherits IUnknown
|
|---|
| 491 | End Interface
|
|---|
| 492 |
|
|---|
| 493 | Enum CALLTYPE
|
|---|
| 494 | CALLTYPE_TOPLEVEL = 1
|
|---|
| 495 | CALLTYPE_NESTED = 2
|
|---|
| 496 | CALLTYPE_ASYNC = 3
|
|---|
| 497 | CALLTYPE_TOPLEVEL_CALLPENDING = 4
|
|---|
| 498 | CALLTYPE_ASYNC_CALLPENDING = 5
|
|---|
| 499 | End Enum
|
|---|
| 500 |
|
|---|
| 501 | Enum ERVERCALL
|
|---|
| 502 | SERVERCALL_ISHANDLED = 0
|
|---|
| 503 | SERVERCALL_REJECTED = 1
|
|---|
| 504 | SERVERCALL_RETRYLATER = 2
|
|---|
| 505 | End Enum
|
|---|
| 506 |
|
|---|
| 507 | Enum PENDINGTYPE
|
|---|
| 508 | PENDINGTYPE_TOPLEVEL = 1
|
|---|
| 509 | PENDINGTYPE_NESTED = 2
|
|---|
| 510 | End Enum
|
|---|
| 511 |
|
|---|
| 512 | Enum PENDINGMSG
|
|---|
| 513 | PENDINGMSG_CANCELCALL = 0
|
|---|
| 514 | PENDINGMSG_WAITNOPROCESS = 1
|
|---|
| 515 | PENDINGMSG_WAITDEFPROCESS = 2
|
|---|
| 516 | End Enum
|
|---|
| 517 |
|
|---|
| 518 | Type INTERFACEINFO
|
|---|
| 519 | pUnk As *IUnknown
|
|---|
| 520 | iid As IID
|
|---|
| 521 | wMethod As Word
|
|---|
| 522 | End Type
|
|---|
| 523 | TypeDef LPINTERFACEINFO = *INTERFACEINFO
|
|---|
| 524 |
|
|---|
| 525 | Dim IID_IMessageFilter = [&h00000016, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As IID
|
|---|
| 526 |
|
|---|
| 527 | Interface IMessageFilter
|
|---|
| 528 | Inherits IUnknown
|
|---|
| 529 |
|
|---|
| 530 | Function HandleInComingCall(
|
|---|
| 531 | /* [in] */ dwCallType As DWord,
|
|---|
| 532 | /* [in] */ htaskCaller As HTASK,
|
|---|
| 533 | /* [in] */ dwTickCount As DWord,
|
|---|
| 534 | /* [in] */ lpInterfaceInfo As LPINTERFACEINFO) As DWord
|
|---|
| 535 |
|
|---|
| 536 | Function RetryRejectedCall(
|
|---|
| 537 | /* [in] */ htaskCallee As HTASK,
|
|---|
| 538 | /* [in] */ dwTickCount As DWord,
|
|---|
| 539 | /* [in] */ dwRejectType As DWord) As DWord
|
|---|
| 540 |
|
|---|
| 541 | Function MessagePending(
|
|---|
| 542 | /* [in] */ htaskCallee As HTASK,
|
|---|
| 543 | /* [in] */ dwTickCount As DWord,
|
|---|
| 544 | /* [in] */ dwPendingType As DWord) As DWord
|
|---|
| 545 | End Interface
|
|---|
| 546 |
|
|---|
| 547 | ' IRpcChannelBuffer
|
|---|
| 548 |
|
|---|
| 549 | ' IRpcChannelBuffer2
|
|---|
| 550 |
|
|---|
| 551 | ' IAsyncRpcChannelBuffer
|
|---|
| 552 |
|
|---|
| 553 | ' IRpcChannelBuffer3
|
|---|
| 554 |
|
|---|
| 555 | ' IRpcSyntaxNegotiate
|
|---|
| 556 |
|
|---|
| 557 | ' IRpcProxyBuffer
|
|---|
| 558 |
|
|---|
| 559 | ' IRpcStubBuffer
|
|---|
| 560 |
|
|---|
| 561 | ' IPSFactoryBuffer
|
|---|
| 562 |
|
|---|
| 563 | ' IChannelHook
|
|---|
| 564 |
|
|---|
| 565 | ' IClientSecurity
|
|---|
| 566 |
|
|---|
| 567 | ' IServerSecurity
|
|---|
| 568 |
|
|---|
| 569 | ' IClassActivator
|
|---|
| 570 |
|
|---|
| 571 | ' IRpcOptions
|
|---|
| 572 |
|
|---|
| 573 | Interface IFillLockBytes
|
|---|
| 574 | Inherits IUnknown
|
|---|
| 575 | End Interface
|
|---|
| 576 |
|
|---|
| 577 | ' IProgressNotify
|
|---|
| 578 |
|
|---|
| 579 | ' ILayoutStorage
|
|---|
| 580 |
|
|---|
| 581 | ' IBlockingLock
|
|---|
| 582 |
|
|---|
| 583 | ' ITimeAndNoticeControl
|
|---|
| 584 |
|
|---|
| 585 | ' IOplockStorage
|
|---|
| 586 |
|
|---|
| 587 | ' ISurrogate
|
|---|
| 588 |
|
|---|
| 589 | ' IGlobalInterfaceTable
|
|---|
| 590 |
|
|---|
| 591 | ' IDirectWriterLock
|
|---|
| 592 |
|
|---|
| 593 | ' ISynchronize
|
|---|
| 594 |
|
|---|
| 595 | ' ISynchronizeHandle
|
|---|
| 596 |
|
|---|
| 597 | ' ISynchronizeEvent
|
|---|
| 598 |
|
|---|
| 599 | ' ISynchronizeContainer
|
|---|
| 600 |
|
|---|
| 601 | ' ISynchronizeMutex
|
|---|
| 602 |
|
|---|
| 603 | ' ICancelMethodCalls
|
|---|
| 604 |
|
|---|
| 605 | ' IAsyncManager
|
|---|
| 606 |
|
|---|
| 607 | ' ICallFactory
|
|---|
| 608 |
|
|---|
| 609 | ' IRpcHelper
|
|---|
| 610 |
|
|---|
| 611 | ' IReleaseMarshalBuffers
|
|---|
| 612 |
|
|---|
| 613 | ' IWaitMultiple
|
|---|
| 614 |
|
|---|
| 615 | ' IUrlMon
|
|---|
| 616 |
|
|---|
| 617 | ' IForegroundTransfer
|
|---|
| 618 |
|
|---|
| 619 | ' IAddrTrackingControl
|
|---|
| 620 |
|
|---|
| 621 | ' IAddrExclusionControl
|
|---|
| 622 |
|
|---|
| 623 | ' IPipeByte
|
|---|
| 624 |
|
|---|
| 625 | ' AsyncIPipeByte
|
|---|
| 626 |
|
|---|
| 627 | ' IPipeLong
|
|---|
| 628 |
|
|---|
| 629 | ' AsyncIPipeLong
|
|---|
| 630 |
|
|---|
| 631 | ' IPipeDouble
|
|---|
| 632 |
|
|---|
| 633 | ' AsyncIPipeDouble
|
|---|
| 634 |
|
|---|
| 635 | ' IThumbnailExtractor
|
|---|
| 636 |
|
|---|
| 637 | ' IDummyHICONIncluder
|
|---|
| 638 |
|
|---|
| 639 | ' IEnumContextProps
|
|---|
| 640 |
|
|---|
| 641 | ' IContext
|
|---|
| 642 |
|
|---|
| 643 | ' IObjContext
|
|---|
| 644 |
|
|---|
| 645 | ' IProcessLock
|
|---|
| 646 |
|
|---|
| 647 | ' ISurrogateService
|
|---|
| 648 |
|
|---|
| 649 | ' IComThreadingInfo
|
|---|
| 650 |
|
|---|
| 651 | ' IProcessInitControl
|
|---|
| 652 |
|
|---|
| 653 | ' IInitializeSpy
|
|---|
| 654 |
|
|---|
| 655 | #endif'_INC_OBJIDL
|
|---|