typedef struct _CONTAINER_EXTENSION {
    BOOL bCritical; /*!< Флаг критического расширения. */
    DWORD cbExtension; /*!< Длина данных в pbExtension. */
    BYTE pbExtension[1]; /*!< Данные. */
    char sOid[1]; /*!< Строка с OID-ом расширения (невыровненный указатель). */
} CONTAINER_EXTENSION;

PCONTAINER_EXTENSION = ^CONTAINER_EXTENSION;
_CONTAINER_EXTENSION =record
  bCritical: BOOL;
 cbExtension:DWORD;
 pbExtension:array[0..0] of byte;
  sOid:array [0..0] of char;
 end;
CONTAINER_EXTENSION = _CONTAINER_EXTENSION;
///
var cExtension:PCONTAINER_EXTENSION;
///
Flag :=CRYPT_FIRST;
if CryptGetProvParam(Prov,PP_ENUM_CONTAINER_EXTENSION,nil,Size,Flag) then
 begin
     GetMem(Info,Size);
   try
   while  CryptGetProvParam(Prov,PP_ENUM_CONTAINER_EXTENSION,Info,Size,Flag) do
    begin
        //
    cExtension:=PCONTAINER_EXTENSION(Info);
     Flag := CRYPT_NEXT;
    end;
   finally
   FreeMem(Info,Size);
  end;
end;