' unknwn.sbp
' 本来はunknwn.idlから生成するのが正当ですが、これは手動で移植したものです。

#ifndef _INC_UNKNWN
#define _INC_UNKNWN

'-------------------
' Unknown Interface
'-------------------

Dim IID_IUnknown = [&H00000000, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As IID

Interface IUnknown
	Function QueryInterface(ByRef riid As IID, ByRef pvObj As Any) As HRESULT
	Function AddRef() As DWord
	Function Release() As DWord
End Interface
TypeDef LPUNKNOWN = *IUnknown

Dim IID_AsyncIUnknown = [&H000e0000, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As IID
Interface AsyncIUnknown
	Inherits IUnknown

	Function Begin_QueryInterface(
		/* [in] */ ByRef riid As IID) As HRESULT
	Function Finish_QueryInterface(
		/* [out] */ ByRef ppvObject As Any) As HRESULT
	Function Begin_AddRef() As HRESULT
	Function Finish_AddRef() As DWord
	Function Begin_Release() As HRESULT
	Function Finish_Release() As DWord
End Interface

Dim IID_IClassFactory = [&H00000000, &H0000, &H0000, [&HC0, &H00, &H00, &H00, &H00, &H00, &H00, &H46]] As IID
Interface IClassFactory
	Inherits IUnknown

	Function CreateInstance(ByVal pUnkOuter As *IUnknown, ByRef riid As IID, ByRef ppvObject As Any) As HRESULT
	Function LockServer(ByVal fLock As BOOL) As HRESULT
End Interface

#endif '_INC_UNKNWN
