Changeset 170 for Include/objbase.sbp

Timestamp:

Mar 16, 2007, 10:01:14 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

winnt.ab, windef.ab, guiddef.abを導入

File:

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

Include/objbase.sbp

@@ -22 +22 @@
 TypeDef RPC_AUTH_IDENTITY_HANDLE = VoidPtr 'Declared in Rpcdce.sbp; include Rpc.sbp.
 TypeDef RPC_AUTHZ_HANDLE = VoidPtr 'Declared in Rpcdce.sbp; include Rpc.sbp.
-
-TypeDef IID = GUID
-TypeDef CLSID = GUID
 
 Sub LISet32(ByRef li As LARGE_INTEGER, v As Long)
@@ -193 +190 @@
 'Declare Sub DebugCoSetRpcFault Lib "" (ul As DWord)
 '#endif
-
-Dim GUID_NULL = [0, 0, 0, [0, 0, 0, 0, 0, 0, 0, 0]] As GUID
-
-Function IsEqualGUID(ByRef rguid1 As GUID, ByRef rguid2 As GUID) As BOOL
-    IsEqualGUID = Not memcmp(VarPtr(rguid1),VarPtr(rguid2),SizeOf(GUID))
-End Function
-Function IsEqualIID(ByRef riid1 As GUID, ByRef riid2 As GUID) As BOOL
-    IsEqualIID=IsEqualGUID(riid1,riid2)
-End Function
-Function IsEqualCLSID(ByRef rclsid1 As CLSID, ByRef rclsid2 As CLSID) As BOOL
-    IsEqualCLSID=IsEqualGUID(rclsid1,rclsid2)
-End Function
 
 '#if (_WIN32_WINNT >= 0x0500)