Changeset 285 for Include/objbase.sbp

Timestamp:

Jul 26, 2007, 5:43:54 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

wtypes.abを追加

File:

• Include/objbase.sbp (modified) (5 diffs)

Include/objbase.sbp

@@ -1 +1 @@
 ' objbase.sbp
-
 
 #ifndef _INC_OBJBASE
 #define _INC_OBJBASE
-
-Type CSPLATFORM 'wtypes.sbp
-    dwPlatformId As DWord
-    dwVersionHi As DWord
-    dwVersionLo As DWord
-    dwProcessorArch As DWord
-End Type
-
-Type QUERYCONTEXT 'wtypes.sbp
-    dwContext As DWord
-    latform As CSPLATFORM
-    Locale As LCID
-    dwVersionHi As DWord
-    dwVersionLo As DWord
-End Type
 
 TypeDef RPC_AUTH_IDENTITY_HANDLE = VoidPtr 'Declared in Rpcdce.sbp; include Rpc.sbp.
@@ -95 +79 @@
 'typedef interface    IRpcChannelBuffer  IRpcChannelBuffer;
 
-#include <unknwn.sbp>
-#include <objidl.sbp>
+#require <wtypes.ab>
+#require <unknwn.sbp>
+#require <objidl.sbp>
 
 '-------------------
@@ -102 +87 @@
 '-------------------
 
-Const CLSCTX_INPROC_SERVER     = &H01
-Const CLSCTX_INPROC_HANDLER    = &H02
-Const CLSCTX_LOCAL_SERVER      = &H4
-Const CLSCTX_INPROC_SERVER16   = &H8
-Const CLSCTX_REMOTE_SERVER     = &H10
-Const CLSCTX_INPROC_HANDLER16  = &H20
-Const CLSCTX_INPROC_SERVERX86  = &H40
-Const CLSCTX_INPROC_HANDLERX86 = &H80
-Const CLSCTX_ESERVER_HANDLER   = &H100
-
 Const CLSCTX_INPROC = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER
+'#if (_WIN32_WINNT >= &h0400) Or defined(_WIN32_DCOM)
+#ifdef _WIN32_DCOM
 Const CLSCTX_ALL    = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or CLSCTX_LOCAL_SERVER or CLSCTX_REMOTE_SERVER
 Const CLSCTX_SERVER = CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER or CLSCTX_REMOTE_SERVER
+#else
+Const CLSCTX_ALL    = CLSCTX_INPROC_SERVER or CLSCTX_INPROC_HANDLER or CLSCTX_LOCAL_SERVER
+Const CLSCTX_SERVER = CLSCTX_INPROC_SERVER or CLSCTX_LOCAL_SERVER
+#endif
 
 Const Enum REGCLS
@@ -124 +105 @@
 End Enum
 
-Type COAUTHIDENTITY
-    User As *Word
-    UserLength As DWord
-    Domain As *Word
-    DomainLength As DWord
-    Password As *Word
-    PasswordLength As DWord
-    Flags As DWord
-End Type
-Type COAUTHINFO
-    dwAuthnSvc As DWord
-    dwAuthzSvc As DWord
-    pwszServerPrincName As LPWSTR
-    dwAuthnLevel As DWord
-    dwImpersonationLevel As DWord
-    pAuthIdentityData As *COAUTHIDENTITY
-    dwCapabilities As DWord
-End Type
-Type COSERVERINFO
-    dwReserved1 As DWord
-    pwszName As LPWSTR
-    pAuthInfo As *COAUTHINFO
-    dwReserved2 As DWord
-End Type
 Declare Function CoInitialize Lib "ole32" (pvReserved As VoidPtr) As HRESULT
 Declare Sub CoUninitialize Lib "ole32" ()
-'Declare Sub CoGetMalloc Lib "ole32" (dwMemContext As DWord, ByRef pMalloc As *IMalloc) As HRESULT
+'Declare Sub CoGetMalloc Lib "ole32" (dwMemContext As DWord, ByRef pMalloc As IMalloc) As HRESULT
 Declare Function CoGetCurrentProcess Lib "ole32" () As DWord
 'Declare Function CoRegisterMallocSpy Lib "ole32" (pMallocSpy As *IMallocSpy) As HRESULT
@@ -584 +541 @@
     Inherits IUnknown
 End Interface
-'#include <urlmon.sbp>
-'#include <propidl.sbp>
+'#require <urlmon.sbp>
+'#require <propidl.sbp>
 
 ' Standard Progress Indicator impolementation