Hola Garada, buenos días.
Muchas gracias por tu ayuda. Es maravillosa.
Una duda. Has hecho cambios cambios en el código respecto a la primera versión:
DataBlob: CRYPT_BIT_BLOB; por DataBlob: CRYPT_DATA_BLOB;
PKCS12_INCLUDE_EXTENDED_PROPERTIES = $0010 por 0
Es que entonces habría que cambiar la función:
Código:
function PFXImportCertStore(var pPFX: CRYPT_BIT_BLOB;
szPassword: LPCWSTR;
dwFlags: DWORD): HCERTSTORE; stdcall; external 'Crypt32.dll';
¿Cuál es la versión correcta?
De todas formas si pongo
Código:
function PFXImportCertStore(
var pPFX: CRYPT_BIT_BLOB; szPassword: LPCWSTR; dwFlags: DWORD): HCERTSTORE; stdcall; external 'Crypt32.dll';
y cambio el tipo del datablob por un CRYPT_BIT_BLOB me sigue dando un error de "types of actual and formal var parameters must be identical"