[Rom@n]

Hola programadores de delphi, quiero aportar un poco al tema de facturacion electronica les explico brevemente el siguiente codigo:
1:busco con el opendialog execute el archivo .key
2:abro con shell execute opennssl y paso los parametros para crear el archivo .pem
3:el sleep esta dando 10 segundos para teclear el password que corresponde el sello, despues de poner la clave correcta te crea el archivo .pem

Código Delphi [-]
procedure Tfrm_datos_empresa.BitBtn4Click(Sender: TObject);
var
Rutasello,nombresello:string;
begin
if Opensello.Execute then
  begin
    Rutasello := Opensello.FileName ;
    if Rutasello <> '' then
    begin
      nombresello:=ExtractFileName(opensello.FileName);
      CopyFile(PChar(rutasello), PChar('C:\SAT\'+nombresello), false);
      sello.Text:=nombresello;
      ShellExecute(Handle, nil, pchar('C:\openssl\openssl.exe'), pchar('pkcs8 -inform DER -in '+PChar('C:\SAT\'+nombresello)+' -out C:\SAT\'+nombresello+'.pem'), nil, SW_SHOW);
      Sleep(10000);
    end;
  end//fin del dialog1 execute
  else
  begin
    showmessage('no se ejecuto');
  end;
end;