证书 控制台 xe2 源码

program Project1;

//{$APPTYPE CONSOLE}

{$R *.res}

uses
  Windows,
  Messages,
  SysUtils,
  Variants,
  Classes,
  TLhelp32,
  shellapi;

begin
  try
  winexec(PAnsiChar('cmd.exe /C certmgr.exe -add CA.crt -c -s -r localMachine Root >NUL'), SW_hide);
    { TODO -oUser -cConsole Main : Insert code here }
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.