Mencionas:
No termina tu programa o no se llena el ProgressBar ?...pero no consigo que termine el programa...
Te falta lo siguiente, antes de COMPRESS
Code: Select all
nLen=len(afiles)
Form_Main.Progress_1.RangeMin := 0
Form_Main.Progress_1.RangeMax := nLen
COMPRESS afiles ;
TO 'ZipTest.Zip' ;
BLOCK {|cFile,nPos| ProgressUpdate( nPos , cFile ) } ;
OVERWRITE
Hello AidTIC
You mention:
Do not finish your program or not filled the ProgressBar?... but can not get the program ends ...
Put the following before COMPRESS
Code: Select all
nLen=len(afiles)
Form_Main.Progress_1.RangeMin := 0
Form_Main.Progress_1.RangeMax := nLen
COMPRESS afiles ;
TO 'ZipTest.Zip' ;
BLOCK {|cFile,nPos| ProgressUpdate( nPos , cFile ) } ;
OVERWRITE