Last change
on this file since 497 was 497, checked in by イグトランス (egtra), 16 years ago |
インクルードガードとその他不要な前処理定義などの削除
|
File size:
1004 bytes
|
Rev | Line | |
---|
[170] | 1 | ' guiddef.ab
|
---|
| 2 |
|
---|
| 3 | Type GUID
|
---|
| 4 | Data1 As DWord
|
---|
| 5 | Data2 As Word
|
---|
| 6 | Data3 As Word
|
---|
| 7 | Data4[7] As Byte
|
---|
| 8 | End Type
|
---|
| 9 |
|
---|
| 10 | Dim GUID_NULL = [0, 0, 0, [0, 0, 0, 0, 0, 0, 0, 0]] As GUID
|
---|
| 11 |
|
---|
| 12 | TypeDef IID = GUID
|
---|
| 13 | TypeDef CLSID = GUID
|
---|
| 14 | TypeDef FMTID = GUID
|
---|
| 15 |
|
---|
| 16 | 'Dim IID_NULL = GUID_NULL
|
---|
| 17 | 'Dim CLSID_NULL = GUID_NULL
|
---|
| 18 | 'Dim FMTID_NULL = GUID_NULL
|
---|
| 19 |
|
---|
| 20 | Function IsEqualGUID(ByRef x As GUID, ByRef y As GUID) As BOOL
|
---|
| 21 | IsEqualGUID = (memcmp(VarPtr(x), VarPtr(y), SizeOf (GUID)) = 0)
|
---|
| 22 | End Function
|
---|
| 23 |
|
---|
| 24 | Function IsEqualIID(ByRef x As IID, ByRef y As IID) As BOOL
|
---|
| 25 | IsEqualIID = (memcmp(VarPtr(x), VarPtr(y), SizeOf (IID)) = 0)
|
---|
| 26 | End Function
|
---|
| 27 |
|
---|
| 28 | Function IsEqualCLSID(ByRef x As CLSID, ByRef y As CLSID) As BOOL
|
---|
| 29 | IsEqualCLSID = (memcmp(VarPtr(x), VarPtr(y), SizeOf (CLSID)) = 0)
|
---|
| 30 | End Function
|
---|
| 31 |
|
---|
| 32 | /*
|
---|
| 33 | Function Operator ==(ByRef x As GUID, ByRef y As GUID) As Boolean
|
---|
| 34 | Return IsEqualGUID(x, y) <> FALSE
|
---|
| 35 | End Function
|
---|
| 36 |
|
---|
| 37 | Function Operator <>(ByRef x As GUID, ByRef y As GUID) As Boolean
|
---|
| 38 | Return IsEqualGUID(x, y) = FALSE
|
---|
| 39 | End Function
|
---|
| 40 | */
|
---|
Note:
See
TracBrowser
for help on using the repository browser.