procedure  BinToHexInverted( Buffer, Text: PChar; BufSize: Integer);
 const 
  Convert :  Array  [  0 .. 15  ]  of  Char = '0123456789abcdef';
 var 
  ii : Integer;
 begin 
   for  ii := BufSize -  1   downto   0   do 
   begin 
    Text[  0  ] := Convert[ Byte( Buffer[ ii ])  shr   4  ];
    Text[  1  ] := Convert[ Byte( Buffer[ ii ])  and  $F ];
    Inc( Text,  2  );
   end ;
 end ;

 function  DecodeSerialNumber( Source : PCRYPT_INTEGER_BLOB ) :  String ;
 begin 
  SetLength( Result, Source.cbData *  2  );
  BinToHexInverted( PChar( Source.pbData ), Pointer( Result ), Source.cbData );
 end ;

 function  DecodeName( Source : PCRYPTOAPI_BLOB ) :  String ;
 var  iLength : DWORD;
 begin 
  iLength := CertNameToStr( MY_ENCODING_TYPE,
                            PCERT_NAME_BLOB( Source ),
                            CERT_OID_NAME_STR,
                             nil ,  0  );
  SetLength( Result, iLength );
  iLength := CertNameToStr( MY_ENCODING_TYPE,
                            PCERT_NAME_BLOB( Source ),
                            CERT_OID_NAME_STR,
                            Pointer( Result ), iLength );
  SetLength( Result, iLength );
 end ;

  ...
  DecodeName( @Certificate.pCertInfo.Subject )
  DecodeName( @Certificate.pCertInfo.Issuer )
  DecodeSerialNumber( @Certificate.pCertInfo.SerialNumber )
  ...

 var 
  Store : HCERTSTORE;
  Blob : CRYPTOAPI_BLOB;
  pStream : TMemoryStream;
  Certificate : PCCERT_CONTEXT;
 begin 
  pStream := TMemoryStream.Create;
   try 
    Stream.LoadFromFile( 'c:\test.sig' );
    Blob.cbData := pStream.Size;
    Blob.pbData := pStream.Memory;
    Store := CertOpenStore( CERT_STORE_PROV_PKCS7, MY_ENCODING_TYPE,  0 ,  0 , @Blob );
     if   not  Assigned( Store )  then 
      Err( 'Не удалось открыть хранилище' );
    Certificate :=  nil ;
     repeat 
      Certificate := CertEnumCertificatesInStore( Store, Certificate );
       if  Assigned( Certificate )  then 
       begin 
         { тут можно делать с контекстом серитфиката все, что вашей душе угодно } 
       end ;
     until   not  assigned( Certificate );
     if  (  not  CertCloseStore( Store, CERT_CLOSE_STORE_CHECK_FLAG ))  then 
      Err( 'Ошибка закрытия хранилища' );
   finally 
    FreeAndNil( pStream );
   end ;

signtool.exe signwizard

C:\Program Files\Microsoft.NET\SDK\v1.1\Bin\signcode.exe

SigParams.HashAlgorithm.pszObjId := szOID_PKCS_7;

FreeAndNil(SigParams);

FillChar(SigParams, SizeOf(SigParams),  0 );
FillChar(SignedBlob, SizeOf(SignedBlob),  0 );