求一行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)
