Ledger Nano X - The secure hardware wallet
SHARE
TWEET

Usando 7z en Lazarus

a guest Apr 6th, 2020 214 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. procedure TFrmExporta.BtnZipClick(Sender: TObject);
  2. var
  3.    UnProceso: TProcess;
  4. begin
  5.    // Ahora creamos UnProceso.
  6.    UnProceso := TProcess.Create(nil);
  7.  
  8.    // Asignamos a UnProceso la orden que debe ejecutar.
  9.    UnProceso.CommandLine := RutaApp+'BDBAK\7z a '+RutaApp+'Exporta\Envio -pSECRETO '+RutaApp+'Exporta\*JUN2019.txt';
  10.  
  11.    // Definimos una opción de comportamiento de 'TProccess'
  12.    // La opción poWaitOnExit hará que nuestro programa
  13.    // se detenga hasta que termine el programa lanzado
  14.    UnProceso.Options := UnProceso.Options + [poNoConsole];
  15.  
  16.    // Lanzamos la ejecución
  17.    UnProceso.Execute;
  18.  
  19.    // Nuestro programa espera hasta que finaliza.
  20.    UnProceso.Free;
  21.    ShowMessage('Archivo de envió creado');
  22. end;
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top