|
Last change
on this file since 560 was 497, checked in by イグトランス (egtra), 16 years ago |
|
インクルードガードとその他不要な前処理定義などの削除
|
|
File size:
1004 bytes
|
| Line | |
|---|
| 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.
