G2A Many GEOs
SHARE
TWEET

Usando 7z en Lazarus

a guest Apr 6th, 2020 146 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. --RutaApp+'Datos\MIUS.fdb';
  9.    //UnProceso.CommandLine := 'C:\AppChis\SIIS\BDBAK\7z a C:\AppChis\SIIS\Exporta\Envio -pSECRETO
  10.                                C:\AppChis\SIIS\Exporta\*JUN2019.txt';
  11.   UnProceso.CommandLine := RutaApp+'BDBAK\7z a '+RutaApp+'Exporta\Envio -pSECRETO '+RutaApp+'Exporta\*JUN2019.txt';
  12.  
  13.   // Definimos una opción de comportamiento de 'TProccess'
  14.   // La opción poWaitOnExit hará que nuestro programa
  15.   // se detenga hasta que termine el programa lanzado
  16.   UnProceso.Options := UnProceso.Options + [poNoConsole];
  17.  
  18.   // Lanzamos la ejecución
  19.   UnProceso.Execute;
  20.  
  21.   // Nuestro programa espera hasta que finaliza.
  22.   UnProceso.Free;
  23.   ShowMessage('Archivo de envió creado');
  24. end;
RAW Paste Data
Ledger Nano X - The secure hardware wallet
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