{ GUID functions }

{$EXTERNALSYM IsEqualGUID}
function IsEqualGUID(const guid1, guid2: TGUID): Boolean; stdcall;
{$EXTERNALSYM IsEqualIID}
function IsEqualIID(const iid1, iid2: TIID): Boolean; stdcall;
{$EXTERNALSYM IsEqualCLSID}
function IsEqualCLSID(const clsid1, clsid2: TCLSID): Boolean; stdcall;


const
ole32 = 'ole32.dll';

{ Externals from ole32.dll }

function IsEqualGUID; external ole32 name 'IsEqualGUID';
function IsEqualIID; external ole32 name 'IsEqualGUID';
function IsEqualCLSID; external ole32 name 'IsEqualGUID';


-
DISSENT IS THE HIGHEST FORM OF PATRIOTISM !

--Thomas Jefferson