Экспорт сертификата с помощью CryptoAPI.

const
  Cryptui     = 'Cryptui.dll';

type
  PCCRYPTUI_WIZ_EXPORT_INFO = ^CCRYPTUI_WIZ_EXPORT_INFO;
  CCRYPTUI_WIZ_EXPORT_INFO = [b]record[/b]
  dwSize: DWORD;
  pwszExportFileName: LPCWSTR;
  dwSubjectChoice: DWORD;
  pCertContext: PCCERT_CONTEXT;
  cStores: DWORD;
  rghStores: HCERTSTORE;

  end;

function[/b] CryptUIWizExport(dwFlags: DWORD;
                          hwndParent: HWND;
                          pwszWizardTitle: LPCWSTR;
                          pExportInfo: PCCRYPTUI_WIZ_EXPORT_INFO;
                          pvoid: PVOID) :BOOL;stdcall;

function CryptUIWizExport        ;external Cryptui name 'CryptUIWizExport';

// Описание процедуры экспорта
procedure ExportCert;
var
    prov: HCRYPTPROV;
    store: HCERTSTORE;
    cont, stor: PChar;
    err: string;
    cert: PCCERT_CONTEXT;
    encType: DWORD;
    PCCRYPTUI: PCCRYPTUI_WIZ_EXPORT_INFO;
begin
encType := PKCS_7_ASN_ENCODING or X509_ASN_ENCODING;

if CryptAcquireContext(@prov, nil, nil, PROV_RSA_FULL, 0) = false then
ShowMessage('ошибка');

err := 'MY';
stor := StrAlloc(length(err) + 1);
StrPCopy(stor, err);

//открываем хранилище сертификатов
store := CertOpenSystemStore(prov, stor);

//получаем сертификат
cert := CertEnumCertificatesInStore(store, nil);


PCCRYPTUI:=New(PCCRYPTUI_WIZ_EXPORT_INFO); // Выделяем память
 PCCRYPTUI.dwSize := sizeof(PCCRYPTUI);
 PCCRYPTUI.pwszExportFileName := 'E:\10.cer';
 PCCRYPTUI.dwSubjectChoice := 1; // CRYPTUI_WIZ_EXPORT_CERT_CONTEXT
 PCCRYPTUI.pCertContext := cert;
 PCCRYPTUI.cStores := 0;
 PCCRYPTUI.rghStores := store;

// пытаюсь экспортировать сертификат
if  [i]CryptUIWizExport[/i](1, // CRYPTUI_WIZ_NO_UI
 0, 0, PCCRYPTUI, PCCRYPTUI) = false then
    MessageDlg('Ошибка экспорта сертификата: ' + IntToStr(int64(GetLastError)), mtError, [mbOK], 0);

Dispose(PCCRYPTUI); // Уничтожаем память
End;

type
  PCRYPTUI_WIZ_EXPORT_CERTCONTEXT_INFO = ^CRYPTUI_WIZ_EXPORT_CERTCONTEXT_INFO;
  CRYPTUI_WIZ_EXPORT_CERTCONTEXT_INFO = record
  dwSize: DWORD;
  dwExportFormat: DWORD;
  fExportChain: BOOL;
  fExportPrivateKeys: BOOL;
  pwszPassword: LPCWSTR;
  fStrongEncryption: BOOL;
  end;

var
…
    PCRYPTUI_CERTCONTEXT: PCRYPTUI_WIZ_EXPORT_CERTCONTEXT_INFO;

…
PCRYPTUI_CERTCONTEXT:=New(PCRYPTUI_WIZ_EXPORT_CERTCONTEXT_INFO); 
 PCRYPTUI_CERTCONTEXT.dwSize := sizeof(CRYPTUI_WIZ_EXPORT_CERTCONTEXT_INFO);
 PCRYPTUI_CERTCONTEXT.dwExportFormat := 1;//CRYPTUI_WIZ_EXPORT_FORMAT_DER
 PCRYPTUI_CERTCONTEXT.fExportChain := false;
 PCRYPTUI_CERTCONTEXT.fExportPrivateKeys := false;
 PCRYPTUI_CERTCONTEXT.pwszPassword := 0;
 PCRYPTUI_CERTCONTEXT.fStrongEncryption := false;

if  CryptUIWizExport(1,
                   0,
                   0,
                   PCCRYPTUI,
                   PCRYPTUI_CERTCONTEXT
) = false then
    MessageDlg('Ошибка экспорта сертификата: ' + (IntToStr(GetLastError)), mtError, [mbOK], 0);

 Dispose(PCRYPTUI_CERTCONTEXT); 
 Dispose(PCCRYPTUI);