source: trunk/Include/objbase.sbp @ 435

Last change on this file since 435 was 303, checked in by イグトランス (egtra), 16 years ago

フルコンパイルでのミスあぶり出し。註：修正は全て@300や@301以前に行われた。
File size: 21.8 KB
Line 
1' objbase.sbp
2
3#ifndef _INC_OBJBASE
4#define _INC_OBJBASE
5
6TypeDef RPC_AUTH_IDENTITY_HANDLE = VoidPtr 'Declared in Rpcdce.sbp; include Rpc.sbp.
7TypeDef RPC_AUTHZ_HANDLE = VoidPtr 'Declared in Rpcdce.sbp; include Rpc.sbp.
8
9Sub LISet32(ByRef li As LARGE_INTEGER, v As Long)
10    With li
11        If v < 0 Then
12            .HighPart = -1
13        Else
14            .HighPart = 0
15        End If
16        .LowPart = v
17    End With
18End Sub
19Sub ULISet32(ByRef li As ULARGE_INTEGER, v As DWord)
20    With li
21        .HighPart = 0
22        .LowPart = v
23    End With
24End Sub
25
26Const MARSHALINTERFACE_MIN = 500
27
28Const CWCSTORAGENAME = 32
29
30/* Storage instantiation modes */
31Const STGM_DIRECT             = &h00000000
32Const STGM_TRANSACTED         = &h00010000
33Const STGM_SIMPLE             = &h08000000
34
35Const STGM_READ               = &h00000000
36Const STGM_WRITE              = &h00000001
37Const STGM_READWRITE          = &h00000002
38
39Const STGM_SHARE_DENY_NONE    = &h00000040
40Const STGM_SHARE_DENY_READ    = &h00000030
41Const STGM_SHARE_DENY_WRITE   = &h00000020
42Const STGM_SHARE_EXCLUSIVE    = &h00000010
43
44Const STGM_PRIORITY           = &h00040000
45Const STGM_DELETEONRELEASE    = &h04000000
46'#if (WINVER >= &h400)
47Const STGM_NOSCRATCH          = &h00100000
48'#endif /* WINVER */
49
50Const STGM_CREATE             = &h00001000
51Const STGM_CONVERT            = &h00020000
52Const STGM_FAILIFTHERE        = &h00000000
53
54Const STGM_NOSNAPSHOT         = &h00200000
55'#if (_WIN32_WINNT >= &h0500)
56Const STGM_DIRECT_SWMR        = &h00400000
57'#endif
58
59/*  flags for internet asyncronous and layout docfile */
60Const ASYNC_MODE_COMPATIBILITY    = &h00000001
61Const ASYNC_MODE_DEFAULT          = &h00000000
62
63Const STGTY_REPEAT                = &h00000100
64Const STG_TOEND                   = &hFFFFFFFF
65
66Const STG_LAYOUT_SEQUENTIAL       = &h00000000
67Const STG_LAYOUT_INTERLEAVED      = &h00000001
68
69Const STGFMT_STORAGE          = 0
70Const STGFMT_NATIVE           = 1
71Const STGFMT_FILE             = 3
72Const STGFMT_ANY              = 4
73Const STGFMT_DOCFILE          = 5
74
75Const STGFMT_DOCUMENT = 0
76
77'/* here is where we pull in the MIDL generated headers for the interfaces */
78'typedef interface    IRpcStubBuffer     IRpcStubBuffer;
79'typedef interface    IRpcChannelBuffer  IRpcChannelBuffer;
80
81#require <wtypes.ab>
82#require <unknwn.sbp>
83#require <objidl.sbp>
84
85'-------------------
86' IStream Interface
87'-------------------
88
89Const CLSCTX_INPROC = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER
90'#if (_WIN32_WINNT >= &h0400) Or defined(_WIN32_DCOM)
91#ifdef _WIN32_DCOM
92Const CLSCTX_ALL    = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or CLSCTX_LOCAL_SERVER or CLSCTX_REMOTE_SERVER
93Const CLSCTX_SERVER = CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER or CLSCTX_REMOTE_SERVER
94#else
95Const CLSCTX_ALL    = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or CLSCTX_LOCAL_SERVER
96Const CLSCTX_SERVER = CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER
97#endif
98
99Const Enum REGCLS
100    REGCLS_SINGLEUSE = 0
101    REGCLS_MULTIPLEUSE = 1
102    REGCLS_MULTI_SEPARATE = 2
103    REGCLS_SUSPENDED = 4
104    REGCLS_SURROGATE = 8
105End Enum
106
107Declare Function CoInitialize Lib "ole32" (pvReserved As VoidPtr) As HRESULT
108Declare Sub CoUninitialize Lib "ole32" ()
109'Declare Sub CoGetMalloc Lib "ole32" (dwMemContext As DWord, ByRef Malloc As IMalloc) As HRESULT
110Declare Function CoGetCurrentProcess Lib "ole32" () As DWord
111'Declare Function CoRegisterMallocSpy Lib "ole32" (ByRef MallocSpy As IMallocSpy) As HRESULT
112Declare Function CoRevokeMallocSpy Lib "ole32" () As HRESULT
113'Declare Function CoCreateStandardMalloc Lib "ole32" (memctx As DWord, ByRef Malloc As IMalloc) As HRESULT
114
115
116'#if (_WIN32_WINNT >= &h0400) Or defined(_WIN32_DCOM)
117#ifdef _WIN32_DCOM
118Const Enum COINIT
119    COINIT_MULTITHREADED     = &h0
120    COINIT_APARTMENTTHREADED = &h2
121    COINIT_DISABLE_OLE1DDE   = &h4
122    COINIT_SPEED_OVER_MEMORY = &h8
123End Enum
124Declare Function CoInitializeEx Lib "ole32" (pvReserved As VoidPtr, dwCoInit As DWord) As HRESULT
125Declare Function CoGetCallerTID Lib "ole32" (ByRef dwTID AS DWord) As HRESULT
126#endif
127
128#ifdef __UNDECLARED__
129'#if (_WIN32_WINNT >= &h0501)
130' 注意：このcokkieは本来ULARGE_INTEGER型
131'Declare Function CoRegisterInitializeSpy Lib "ole32" (Spy As IInitializeSpy, ByRef uliCokkie As QWord) As HRESULT
132Declare Function CoRevokeInitializeSpy Lib "ole32" (uliCookie As QWord) As HRESULT
133
134Declare Function CoGetContextToken Lib "ole32" (ByRef token As ULONG_PTR) As HRESULT
135
136Const Enum COMSD
137    SD_LAUNCHPERMISSIONS = 0
138    SD_ACCESSPERMISSIONS = 1
139    SD_LAUNCHRESTRICTIONS = 2
140    SD_ACCESSRESTRICTIONS = 3
141End Enum
142'Declare Function CoGetSystemSecurityPermissions(comSDType As COMSD, ByRef ppSD As *SECURITY_DESCRIPTOR) As HRESULT
143#endif
144
145'#if DBG == 1
146'Declare Function DebugCoGetRpcFault Lib "" () As DWord
147'Declare Sub DebugCoSetRpcFault Lib "" (ul As DWord)
148'#endif
149
150'#if (_WIN32_WINNT >= &h0500)
151
152Type SOleTlsDataPublic
153    pvReserved0[ELM(2)] As VoidPtr
154    dwReserved0[ELM(3)] As DWord
155    pvReserved1[ELM(1)] As VoidPtr
156    dwReserved1[ELM(3)] As DWord
157    pvReserved2[ELM(4)] As VoidPtr
158    dwReserved2[ELM(1)] As DWord
159    pCurrentCtx As VoidPtr
160End Type
161
162'#endif
163
164/* COM+ APIs */
165
166Declare Function CoGetObjectContext Lib "ole32" (ByRef riid As IID, ByRef ppv As Any) As HRESULT
167
168/* register/revoke/get class objects */
169
170Declare Function CoGetClassObject Lib "ole32" (ByRef rclsid As CLSID, dwClsContext As DWord, pServerInfo As *COSERVERINFO, ByRef refiid As IID, ByRef ppv As Any) As HRESULT
171Declare Function CoRegisterClassObject Lib "ole32" (ByRef rclsid As CLSID, pUnk As *IUnknown, dwClsContext As DWord, flags As DWord, ByRef dwRegister As DWord) As HRESULT
172Declare Function CoRevokeClassObject Lib "ole32" (dwRegister As DWord) As HRESULT
173Declare Function CoResumeClassObjects Lib "ole32" () As HRESULT
174Declare Function CoSuspendClassObjects Lib "ole32" () As HRESULT
175Declare Function CoAddRefServerProcess Lib "ole32" () As DWord
176Declare Function CoReleaseServerProcess Lib "ole32" () As DWord
177Declare Function CoGetPSClsid Lib "ole32" (ByRef riid As IID, ByRef rclsid As CLSID) As HRESULT
178Declare Function CoRegisterPSClsid Lib "ole32" (ByRef riid As IID, ByRef rclsid As CLSID) As HRESULT
179
180/* Registering surrogate processes */
181'Declare Function CoRegisterSurrogate Lib "ole32" (Surrogate As ISurrogate) As HRESULT
182
183/* marshaling interface pointers */
184
185Declare Function CoGetMarshalSizeMax Lib "ole32" (ByRef ulSize As DWord, ByRef riid As IID, pUnk As *IUnknown, dwDestContext As DWord, pvDestContext As VoidPtr, mshlflags As DWord) As HRESULT
186Declare Function CoMarshalInterface Lib "ole32" (pStm As *IStream, ByRef riid As IID, pUnk As *IUnknown, dwDestContext As DWord, pvDestContext As VoidPtr, mshlflags As DWord) As HRESULT
187Declare Function CoUnmarshalInterface Lib "ole32" (pstm As *IStream, ByRef riid As IID, ByRef ppv As Any) As HRESULT
188Declare Function CoMarshalHresult Lib "ole32" (pstm As *IStream, hresult As HRESULT) As HRESULT
189Declare Function CoUnmarshalHresult Lib "ole32" (pstm As *IStream, ByRef phresult As HRESULT) As HRESULT
190Declare Function CoReleaseMarshalData Lib "ole32" (pstm As *IStream) As HRESULT
191Declare Function CoDisconnectObject Lib "ole32" (pUnk As *IUnknown, dwReserved As DWord) As HRESULT
192Declare Function CoLockObjectExternal Lib "ole32" (pUnk As *IUnknown, fLock As BOOL, fLastUnlockReleases As BOOL) As HRESULT
193'Declare Function CoGetStandardMarshal Lib "ole32" (ByRef riid As IID, pUnk As *IUnknown, dwDestContext As DWord, pvDestContext As VoidPtr, mshlflags As DWord, ByRef pMarshal As *IMarshal) As HRESULT
194
195Declare Function CoGetStdMarshalEx Lib "ole32" (pUnkOuter As *IUnknown, smexflags As DWord, ByRef pUnkInner As *IUnknown) As HRESULT
196
197/* flags for CoGetStdMarshalEx */
198Const Enum STDMSHLFLAGS
199    SMEXF_SERVER  = &h01
200    SMEXF_HANDLER = &h02
201End Enum
202
203Declare Function CoIsHandlerConnected Lib "ole32" (pUnk As *IUnknown) As BOOL
204
205/* Apartment model inter-thread interface passing helpers */
206Declare Function CoMarshalInterThreadInterfaceInStream Lib "ole32" (ByRef riid As IID, pUnk As *IUnknown, ByRef pStm As *IStream) As HRESULT
207
208Declare Function CoGetInterfaceAndReleaseStream Lib "ole32" (pStm As *IStream, ByRef riid As IID, ByRef ppv As Any) As HRESULT
209Declare Function CoCreateFreeThreadedMarshaler Lib "ole32" (punkOuter As *IUnknown, ByRef punkMarshal As *IUnknown) As HRESULT
210
211/* dll loading helpers; keeps track of ref counts and unloads all on exit */
212
213Declare Function CoLoadLibrary Lib "ole32" (lpszLibName As LPOLESTR, bAutoFree As BOOL) As HINSTANCE
214Declare Sub CoFreeLibrary Lib "ole32" (hInst As HINSTANCE)
215Declare Sub CoFreeAllLibraries Lib "ole32" ()
216Declare Sub CoFreeUnusedLibraries Lib "ole32" ()
217'#if  (_WIN32_WINNT >= &h0501)
218Declare Sub CoFreeUnusedLibrariesEx Lib "ole32" (dwUnloadDelay As DWord, dwReserved As DWord)
219'#endif
220
221'#if (_WIN32_WINNT >= &h0400) Or defined(_WIN32_DCOM) 'DCOM
222#ifdef _WIN32_DCOM
223
224/* Call Security. */
225
226Declare Function CoInitializeSecurity Lib "ole32" (
227    ByVal pSecDesc As *SECURITY_DESCRIPTOR,
228    ByVal cAuthSvc As *SOLE_AUTHENTICATION_SERVICE,
229    ByVal pReserved1 As VoidPtr,
230    ByVal dwAuthnLevel As DWord,
231    ByVal dwImpLevel As DWord,
232    ByVal pAuthList As VoidPtr,
233    ByVal dwCapabilities As DWord
234    ByVal pReserved3 As VoidPtr) As HRESULT
235Declare Function CoGetCallContext Lib "ole32" (
236    ByRef riid As IID,
237    ByRef pInterface As Any) As HRESULT
238Declare Function CoQueryProxyBlanket Lib "ole32" (
239    ByVal pProxy As *IUnknown,
240    ByRef AuthnSvc As DWord,
241    ByVal pAuthzSvc As *DWord,
242    ByVal pServerPrincName As **OLECHAR,
243    ByVal pAuthnLevel As *DWord,
244    ByVal pImpLevel As *DWord,
245    ByVal pAuthInfo As *RPC_AUTH_IDENTITY_HANDLE
246    ByVal pCapabilites As *DWord) As HRESULT
247Declare Function CoSetProxyBlanket Lib "ole32" (
248    ByVal pProxy As *IUnknown,
249    ByVal dwAuthnSvc As DWord,
250    ByVal dwAuthzSvc As DWord,
251    ByVal pServerPrincName As *OLECHAR,
252    ByVal dwAuthnLevel As DWord,
253    ByVal dwImpLevel As DWord,
254    ByVal pAuthInfo As RPC_AUTH_IDENTITY_HANDLE,
255    ByVal dwCapabilities As DWord) As HRESULT
256Declare Function CoCopyProxy Lib "ole32" (
257    ByVal pProxySrc As *IUnknown,
258    ByRef pProxyDst As *IUnknown) As HRESULT
259Declare Function CoQueryClientBlanket Lib "ole32" (
260    ByVal pAuthnSvc As *DWord,
261    ByVal pAuthzSvc As *DWord,
262    ByVal pServerPrincName As **OLECHAR,
263    ByVal pAuthnLevel As *DWord,
264    ByVal pImpLevel As *DWord,
265    ByVal pPrivs As *RPC_AUTHZ_HANDLE
266    ByVal pCapabilities As *DWord) As HRESULT
267Declare Function CoImpersonateClient Lib "ole32" () As HRESULT
268Declare Function CoRevertToSelf Lib "ole32" () As HRESULT
269/*
270Declare Function CoRevertToSelf Lib "ole32" (
271    ByRef cAuthSvc As DWord,
272    ByRef asAuthSvc As *SOLE_AUTHENTICATION_SERVICE) As HRESULT
273*/
274Declare Function CoSwitchCallContext Lib "ole32" (
275    ByVal pNewObject As *IUnknown,
276    ByRef ppOldObject As *IUnknown) As HRESULT
277
278Const COM_RIGHTS_EXECUTE = 1
279Const COM_RIGHTS_EXECUTE_LOCAL = 2
280Const COM_RIGHTS_EXECUTE_REMOTE = 4
281Const COM_RIGHTS_ACTIVATE_LOCAL = 8
282Const COM_RIGHTS_ACTIVATE_REMOTE = 16
283
284#endif ' DCOM
285
286Declare Function CoCreateInstance Lib "ole32" (ByRef clsid As CLSID, pUnknown As *IUnknown, dwClsContext As DWord, ByRef refiid As IID, ByRef pObj As Any) As HRESULT
287
288'#if (_WIN32_WINNT >= &h0400) Or defined(_WIN32_DCOM) 'DCOM
289#ifdef _WIN32_DCOM
290Declare Function CoGetInstanceFromFile Lib "ole32" (
291    ByVal pServerInfo As *COSERVERINFO,
292    ByRef clsid As CLSID,
293    ByVal punkOuter As *IUnknown,
294    ByVal dwClsCtx As DWord,
295    ByVal grfMode As DWord,
296    ByVal pwszName As *OLECHAR
297    ByVal dwCount As DWord,
298    ByVal pResults As *MULTI_QI) As HRESULT
299
300Declare Function CoGetInstanceFromIStorage Lib "ole32" (
301    ByVal pServerInfo As *COSERVERINFO,
302    ByRef clsid As CLSID,
303    ByVal punkOuter As *IUnknown,
304    ByVal dwClsCtx As DWord,
305    ByVal grfMode As DWord,
306    ByVal pstg As *IStorage
307    ByVal dwCount As DWord,
308    ByVal pResults As *MULTI_QI) As HRESULT
309
310Declare Function CoCreateInstanceEx Lib "ole32" (
311    ByRef clsid As CLSID,
312    ByVal punkOuter As *IUnknown,
313    ByVal dwClsCtx As DWord,
314    ByVal pServerInfo As COSERVERINFO,
315    ByVal dwCount As DWord,
316    ByVal pResults As *MULTI_QI) As HRESULT
317#endif ' DCOM
318
319/* Call related APIs */
320'#if (_WIN32_WINNT >= &h0400) Or defined(_WIN32_DCOM) 'DCOM
321#ifdef _WIN32_DCOM
322
323Declare Function CoGetCancelObject Lib "ole32" (dwThreadId As DWord, ByRef iid As IID, ByRef pUnk As Any) As HRESULT
324Declare Function CoSetCancelObject Lib "ole32" (pUnk As *IUnknown) As HRESULT
325Declare Function CoCancelCall Lib "ole32" (dwThreadId As DWord, ulTimeout As DWord) As HRESULT
326Declare Function CoTestCancel Lib "ole32" () As HRESULT
327Declare Function CoEnableCallCancellation Lib "ole32" (pReserved As VoidPtr) As HRESULT
328Declare Function CoDisableCallCancellation Lib "ole32" (pReserved As VoidPtr) As HRESULT
329Declare Function CoAllowSetForegroundWindow Lib "ole32" (pUnk As *IUnknown, pvReserved As VoidPtr) As HRESULT
330Declare Function DcomChannelSetHResult Lib "ole32" (pvReserved As HRESULT, pulReserved As DWord, appsHR As HRESULT) As HRESULT
331
332#endif
333
334/* other helpers */
335
336Declare Function StringFromCLSID Lib "ole32" (ByRef rclsid As CLSID, ByRef lpsz As LPOLESTR) As HRESULT
337Declare Function CLSIDFromString Lib "ole32" (lpsz As LPOLESTR, ByRef clsid As CLSID) As HRESULT
338Declare Function StringFromIID Lib "ole32" (ByRef iid As IID, ByRef lpsz As LPOLESTR) As HRESULT
339Declare Function IIDFromString Lib "ole32" (lpsz As LPOLESTR, ByRef iid As IID) As HRESULT
340Declare Function CoIsOle1Class Lib "ole32" (ByRef rclsid As CLSID) As BOOL
341Declare Function ProgIDFromCLSID  Lib "ole32" (ByRef clsid As CLSID, ByRef lpszProgID As LPOLESTR) As HRESULT
342Declare Function CLSIDFromProgID  Lib "ole32" (lpszProgID As LPCOLESTR, ByRef clsid As CLSID) As HRESULT
343Declare Function CLSIDFromProgIDEx  Lib "ole32" (lpszProgID As LPCOLESTR, ByRef clsid As CLSID) As HRESULT
344Declare Function StringFromGUID2 Lib "ole32" (ByRef rguid As GUID, lpsz As LPOLESTR, cchMax As Long) As Long
345
346Declare Function CoCreateGuid Lib "ole32" (ByRef guid As GUID) As HRESULT
347
348Declare Function CoFileTimeToDosDateTime Lib "ole32" (ByRef FileTime As FILETIME, ByRef DosDate As Word, ByRef DosTime As Word) As BOOL
349Declare Function CoDosDateTimeToFileTime Lib "ole32" (nDosDate As Word, nDosTime As Word, ByRef FileTime As FILETIME) As BOOL
350Declare Function CoFileTimeNow Lib "ole32" (ByRef FileTime As FILETIME) As HRESULT
351
352Declare Function CoRegisterMessageFilter Lib "ole32" (pMessageFilter As *IMessageFilter, ByRef pMessageFilter As *IMessageFilter) As HRESULT
353
354'#if (_WIN32_WINNT >= &h0400) Or defined(_WIN32_DCOM) 'DCOM
355#ifdef _WIN32_DCOM
356Declare Function CoRegisterChannelHook Lib "ole32" (ByRef ExtensionUuid As GUID, pChannelHook As *IChannelHook) As HRESULT
357#endif ' DCOM
358
359'#if (_WIN32_WINNT >= &h0400) Or defined(_WIN32_DCOM) 'DCOM
360#ifdef _WIN32_DCOM
361
362Declare Function CoWaitForMultipleHandles Lib "ole32" (
363    ByVal dwFlags As DWord,
364    ByVal dwTimeout As DWord,
365    ByVal cHandles As DWord,
366    ByVal pHandles As *HANDLE,
367    ByRef dwindex As DWord) As HRESULT
368
369/* Flags for Synchronization API and Classes */
370
371Const Enum COWAIT_FLAGS
372    COWAIT_WAITALL = 1
373    COWAIT_ALERTABLE = 2
374    COWAIT_INPUTAVAILABLE = 4
375End Enum
376
377#endif ' DCOM
378
379/* for flushing OLESCM remote binding handles */
380
381#ifdef __UNDECLARED__
382'#if  (_WIN32_WINNT >= &h0501)
383Declare Function CoInvalidateRemoteMachineBindings Lib "ole32" (pszMachineName As LPOLESTR) As HRESULT
384#endif
385
386/* TreatAs APIS */
387
388Declare Function CoGetTreatAsClass Lib "ole32" (ByRef clsidOld As CLSID, ByRef ClsidNew As CLSID) As HRESULT
389Declare Function CoTreatAsClass Lib "ole32" (ByRef clsidOld As CLSID, ByRef clsidNew As CLSID) As HRESULT
390
391/* the server dlls must define their DllGetClassObject and DllCanUnloadNow
392 * to match these; the typedefs are located here to ensure all are changed at
393 * the same time.
394 */
395
396TypeDef LPFNGETCLASSOBJECT = *Function(ByRef rclsid As CLSID, ByRef riid As IID, ByRef ppv As Any) As HRESULT
397TypeDef LPFNCANUNLOADNOW = *Function() As HRESULT
398
399/*
400Declare Function DllGetClassObject(ByRef rclsid As CLSID, ByRef riid As IID, ByVal ppv As *VoidPtr) As HRESULT
401Declare Function DllCanUnloadNow() As HRESULT
402*/
403
404/****** Default Memory Allocation ******************************************/
405Declare Function CoTaskMemAlloc Lib "ole32" (cb As SIZE_T) As VoidPtr
406Declare Function CoTaskMemRealloc Lib "ole32" (pv As VoidPtr, cb As SIZE_T) As VoidPtr
407Declare Sub CoTaskMemFree Lib "ole32" (pv As VoidPtr)
408
409/****** DV APIs ***********************************************************/
410
411/* This function is declared in objbase.h and ole2.h */
412Declare Function CreateDataAdviseHolder Lib "ole32" (ByRef pDAHolder As *IDataAdviseHolder) As HRESULT
413Declare Function CreateDataCache Lib "ole32" (pUnkOuter As *IUnknown, ByRef rclsid As CLSID, ByRef riid As IID, ByRef ppv As Any) As HRESULT
414
415/****** Storage API Prototypes ********************************************/
416
417
418Declare Function StgCreateDocfile Lib "ole32" (
419    ByVal pwcsName As *OLECHAR,
420    ByVal grfMode As DWord,
421    ByVal reserved As DWord,
422    ByRef pstgOpen As *IStorage) As HRESULT
423
424Declare Function StgCreateDocfileOnILockBytes Lib "ole32" (
425    ByVal plkbyt As *ILockBytes,
426    ByVal grfMode As DWord,
427    ByVal reserved As DWord,
428    ByRef pstgOpen As *IStorage) As HRESULT
429
430Declare Function StgOpenStorage Lib "ole32" (
431    ByVal pwcsName As *OLECHAR,
432    ByVal pstgPriority As *IStorage,
433    ByVal grfMode As DWord,
434    ByVal snbExclude As SNB,
435    ByVal reserved As DWord,
436    ByRef pstgOpen As *IStorage) As HRESULT
437Declare Function StgOpenStorageOnILockBytes Lib "ole32" (
438    ByVal plkbyt As *ILockBytes,
439    ByVal pstgPriority As *IStorage,
440    ByVal grfMode As DWord,
441    ByVal snbExclude As SNB,
442    ByVal reserved As DWord,
443    ByRef pstgOpen As *IStorage) As HRESULT
444
445Declare Function StgIsStorageFile Lib "ole32" (pwcsName As *OLECHAR) As HRESULT
446Declare Function StgIsStorageILockBytes Lib "ole32" (plkbyt As *ILockBytes) As HRESULT
447
448Declare Function StgSetTimes Lib "ole32" (
449    ByVal pszName As *OLECHAR,
450    ByRef pctime As FILETIME,
451    ByRef patime As FILETIME,
452    ByRef pmtime As FILETIME) As HRESULT
453
454Declare Function StgOpenAsyncDocfileOnIFillLockBytes Lib "ole32" (
455    ByVal pflb As *IFillLockBytes,
456    ByVal grfMode As DWord,
457    ByVal asyncFlags As DWord,
458    ByRef pstgOpen As *IStorage) As HRESULT
459
460Declare Function StgGetIFillLockBytesOnILockBytes Lib "ole32" (
461    ByVal pilb As *ILockBytes,
462    ByRef pflb As *IFillLockBytes) As HRESULT
463
464Declare Function StgGetIFillLockBytesOnFile Lib "ole32" (
465    ByVal pwcsName As *OLECHAR,
466    ByRef pflb As *IFillLockBytes) As HRESULT
467/*
468Declare Function StgOpenLayoutDocfile Lib "ole32" (
469    ByVal pwcsName As *OLECHAR,
470    ByVal grfMode As DWord,
471    ByVal reserved As DWord,
472    ByRef pstgOpen As *IStorage) As HRESULT
473*/
474/*
475// STG initialization options for StgCreateStorageEx and StgOpenStorageEx
476#if _WIN32_WINNT == &h500
477#define STGOPTIONS_VERSION 1
478#elif _WIN32_WINNT > &h500
479#define STGOPTIONS_VERSION 2
480#else
481#define STGOPTIONS_VERSION 0
482#endif
483*/
484Type STGOPTIONS
485    usVersion As Word
486    reserved As Word
487    ulSectorSize As DWord
488'#if STGOPTIONS_VERSION >= 2
489'   pwcsTemplateFile As PCWSTR /' version 2 or above
490'#endif
491End Type
492
493Declare Function StgCreateStorageEx Lib "ole32" (
494    ByVal pwcsName As *OLECHAR,
495    ByVal grfMode As DWord,
496    ByVal stgfmt As DWord,
497    ByVal grfAttrs As DWord,
498    ByVal pStgOptions As *STGOPTIONS,
499    ByVal reserved As VoidPtr,
500    ByRef riid As IID,
501    ByRef pObjectOpen As Any) As HRESULT
502
503Declare Function StgOpenStorageEx Lib "ole32" (
504    ByVal pwcsName As *OLECHAR,
505    ByVal grfMode As DWord,
506    ByVal stgfmt As DWord,
507    ByVal grfAttrs As DWord,
508    ByVal pStgOptions As *STGOPTIONS,
509    ByVal reserved As VoidPtr,
510    ByRef riid As IID,
511    ByRef pObjectOpen As Any) As HRESULT
512
513
514' Moniker APIs
515
516Declare Function BindMoniker Lib "ole32" (pmk As *IMoniker, grfOpt As DWord, ByRef iidResult As IID, ByRef pvResult As Any) As HRESULT
517/*
518Declare Function CoInstall Lib "ole32" (
519    ByVal pbc As *IBindCtx,
520    ByVal dwFlags As DWord,
521    ByRef pClassSpec As uCLSSPEC,
522    ByRef pQuery As QUERYCONTEXT,
523    ByVal pszCodeBase As PWSTR) As HRESULT
524*/
525Declare Function CoGetObject Lib "ole32" (pszName As PCWSTR, pBindOptions As *BIND_OPTS, ByRef riid As IID, ByRef ppv As Any) As HRESULT
526Declare Function MkParseDisplayName Lib "ole32" (pbc As *IBindCtx, szUserName As LPCOLESTR, ByRef pchEaten As DWord, ByRef pmk As *IMoniker) As HRESULT
527Declare Function MonikerRelativePathTo Lib "ole32" (pmkSrc As *IMoniker, pmkDest As *IMoniker, ByRef pmkRelPath As *IMoniker, dwReserved As BOOL) As HRESULT
528Declare Function MonikerCommonPrefixWith Lib "ole32" (pmkThis As *IMoniker, pmkOther As *IMoniker, ByRef ppmkCommon As *IMoniker) As HRESULT
529Declare Function CreateBindCtx Lib "ole32" (reserved As DWord, ByRef pbc As *IBindCtx) As HRESULT
530Declare Function CreateGenericComposite Lib "ole32" ( pmkFirst As *IMoniker, pmkRest As *IMoniker, ByRef pmkComposite As *IMoniker) As HRESULT
531Declare Function GetClassFile Lib "ole32" (szFilename As LPCOLESTR, ByRef clsid As CLSID) As HRESULT
532Declare Function CreateClassMoniker Lib "ole32" (ByRef rclsid As CLSID, ByRef pmk As *IMoniker) As HRESULT
533Declare Function CreateFileMoniker Lib "ole32" (lpszPathName As LPCOLESTR, ByRef pmk As *IMoniker) As HRESULT
534Declare Function CreateItemMoniker Lib "ole32" (lpszDelim As LPCOLESTR, lpszItem As LPCOLESTR, ByRef pmk As *IMoniker) As HRESULT
535Declare Function CreateAntiMoniker Lib "ole32" (ByRef pmk As *IMoniker) As HRESULT
536Declare Function CreatePointerMoniker Lib "ole32" (punk As *IUnknown, ByRef pmk As *IMoniker) As HRESULT
537Declare Function CreateObjrefMoniker Lib "ole32" (punk As *IUnknown, ByRef pmk As *IMoniker) As HRESULT
538Declare Function  GetRunningObjectTable Lib "ole32" (reserved As DWord, ByRef prot As *IRunningObjectTable) As HRESULT
539
540Interface IBindStatusCallback ' urlmon.sbp
541    Inherits IUnknown
542End Interface
543'#require <urlmon.sbp>
544'#require <propidl.sbp>
545
546' Standard Progress Indicator impolementation
547
548Declare Function CreateStdProgressIndicator Lib "ole32" (
549    ByVal hwndParent As HWND,
550    ByVal pszTitle As LPCOLESTR,
551    ByVal pIbscCaller As *IBindStatusCallback,
552    ByRef pIbsc As *IBindStatusCallback) As HRESULT
553
554
555#endif '_INC_OBJBASE
Note: See TracBrowser for help on using the repository browser.