[navigator]

Доброго времени!

Делаю формочку для генерации запроса сертификата. Дело в том что ключ генерится как надо и кладётся в папку проекта, однако сам запрос не генерится, чувствую где-то засада, но где? CreateProcess начал тока не давно осваивать.

Код:

type
  TForm1 = class(TForm)
    GenReq: TButton;
    BillingSystemBox: TComboBox;
    procedure GenReqClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.GenReqClick(Sender: TObject);

var cod:byte;
    NameKey,PathKeyGen,PathGenReq,NameReq,f:String;
    pi: TProcessInformation;
    si: TStartupInfo;
begin
NameKey:=BillingSystemBox.Text+'.key';
NameReq:=BillingSystemBox.Text+'.req';
PathKeyGen:='C:\Program Files\openssl\bin\openssl.exe genrsa -out '+NameKey+' 1024';
PathGenReq:='C:\Program Files\openssl\bin\openssl.exe req -new -key '+NameKey+' -config data.cfg -out '+NameReq;

FillMemory(@si, sizeof(si), 0);
si.cb := sizeof(si);
CreateProcess(nil, PChar(PathKeyGen), nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, si, pi);
CloseHandle(pi.hProcess);
CloseHandle(pi.hThread);

FillMemory(@si, sizeof(si), 0);
si.cb := sizeof(si);
CreateProcess(nil, PChar(PathGenReq), nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, si, pi);
СloseHandle(pi.hProcess);
CloseHandle(pi.hThread);

end;

end.

Спасибо.