webbrowser的SecurityManager1ProcessUrlAction怎么得到当前Activex的clsid作出判断？？

怎么得到当前Activex的clsid作出判断？？以下代码只能全部禁用或全部启用！
function TForm1.SecurityManager1ProcessUrlAction(pwszUrl: PWideChar;
  dwAction: Cardinal; pPolicy: Pointer; cbPolicy: Cardinal;
  pContext: Pointer; cbContext, dwFlags, dwReserved: Cardinal): HRESULT;
var
dwPolicy: DWORD;
st : string;
begin
Result:=S_FALSE;
dwPolicy := URLPOLICY_ALLOW;
if (dwAction <= URLACTION_ACTIVEX_MAX) and (dwAction >= URLACTION_ACTIVEX_MIN) then
  begin
    dwPolicy := URLPOLICY_DISALLOW;//这里面可以判断每个activex的clsid吗？我想禁用除了flash外的所有activex
  end
else Result:=INET_E_DEFAULT_ACTION;
if (Result = S_FALSE) and (cbPolicy >= SizeOf(DWORD)) then
  begin
    Dword(ppolicy^) := dwpolicy;
    Result := S_OK;
  end;
end;