List Windows Current User Certificates

Demonstrates how to open the registry-based Current User certificate store on a Windows OS and list the digital certificates.

uses
    Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
    Dialogs, StdCtrls,
    CHILKATCERTIFICATELib_TLB,
    OleCtrls;

...

procedure TForm1.Button1Click(Sender: TObject);
var
ccs: TChilkatCreateCS;
cs: CHILKATCERTIFICATELib_TLB.IChilkatCertStore;
cert: IChilkatCert;
numCerts: Integer;
i: Integer;

begin
//  This example demonstrates how to list the certificates
//  in the logged-on user's registry-based Current User Certificate Store.

//  This is our certificate store factory object:
ccs := TChilkatCreateCS.Create(Self);
ccs.ReadOnly := 1;

//  Open the current-user certificate store:

cs := ccs.OpenCurrentUserStore();

if (not (cs = nil )) then
  begin

    numCerts := cs.NumCertificates;

    //  Print the distinguished name of each certificate
    for i := 0 to numCerts - 1 do
      begin
        cert := cs.GetCertificate(i) As IChilkatCert;
        Memo1.Lines.Add(cert.SubjectDN);
      end;

  end
else
  begin
    ShowMessage(ccs.LastErrorText);
  end;

//  The Chilkat Certificate, Certificate Store, Private Key,
//  Public Key, and Key Container classes / objects are freeware.

//  They are used by and included with the Chilkat Email,
//  Crypt, S/MIME, and other commercial Chilkat components.

end;