求一行C代码翻译成delphi代码！！谢谢！！
这部分已经改成delphi了
ProcessUrlAction(pwszUrl: PWideChar; dwAction: Cardinal; pPolicy: Pointer; cbPolicy: Cardinal; pContext: Pointer; cbContext, dwFlags, dwReserved: Cardinal): HRESULT


帮忙下面这行代码翻译成delphi

IsEqualIID(*(CLSID *) pContext, CLSID_CDefViewOC)






.
[解决办法]
type PCLSID = ^CLSID end;

IsEqualIID((PCLSID(pContext))^, CLSID_CDefViewOC)