Windows UI Dialog to show existing certificates is problematic...
Now you can built your own Window, to select the certificate, using ACBrNFe1.SSL.LerCertificadosStore and ACBrNFe1.SSL.ListaCertificados[] ... Check this code in Demo:
procedure TForm1.sbtnGetCert1Click(Sender: TObject);
var
I: Integer;
begin
frSelecionarCertificado := TfrSelecionarCertificado.Create(Self);
try
ACBrNFe1.SSL.LerCertificadosStore;
For I := 0 to ACBrNFe1.SSL.ListaCertificados.Count-1 do
begin
with ACBrNFe1.SSL.ListaCertificados[I] do
begin
if (CNPJ <> '') then
begin
with frSelecionarCertificado.StringGrid1 do
begin
RowCount := RowCount + 1;
Cells[ 0, RowCount-1] := NumeroSerie;
Cells[ 1, RowCount-1] := RazaoSocial;
Cells[ 2, RowCount-1] := CNPJ;
Cells[ 3, RowCount-1] := FormatDateBr(DataVenc);
Cells[ 4, RowCount-1] := Certificadora;
end;
end;
end;
end;
frSelecionarCertificado.ShowModal;
if frSelecionarCertificado.ModalResult = mrOK then
edtNumSerie.Text := frSelecionarCertificado.StringGrid1.Cells[ 0,
frSelecionarCertificado.StringGrid1.Row];
finally
frSelecionarCertificado.Free;
end;
end;