Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Comprimir con UPX (https://www.clubdelphi.com/foros/showthread.php?t=28681)

Mr.Vaka 28-12-2005 23:34:09

Comprimir con UPX
 
Querría preguntar si existe algún código para comprimir aplicaciones sin necesidad de arrastrarla encima del archivo UPX, sabiendo la ruta del archivo que queremos comprimir y del archivo UPX.

Tengo pensado poner ese código en un Tbuttom y poder comprimir aplicaciones externas desde alli.

Gracias

dec 29-12-2005 00:19:53

Hola,

Podrías utilizar, por ejemplo, las funciones "ShellExecute" o "WinExec". Estas te permiten ejecutar un programa desde Delphi pasándole los parámetros que necesites y el programa admita. Para UPX, precisamente, existen ya "FrontEnd" disponibles. En Torry's Delphi Pages encuentras algunos.

Mr.Vaka 29-12-2005 10:21:27

si es eso lo que intento hacer nesesito saver cuales son los comandos de UPX, alguien me podria ayudar.

Gracias

Lepe 29-12-2005 11:18:36

desde el menú accesorios, saca el simbolo de sistema, vete a la ruta del upx y escribe

upx -h

tendrás toda la ayuda en pantalla.

saludos

Mr.Vaka 29-12-2005 12:15:18

Hola, ya consegui el comando que queria, Ahora me a surgido otro problema.:(
En el Tbuttom tengo este codigo i cuando lo hago funcionar se me abre una pantalla de MS-DOS, supuestamente la del UPX i se me cierra al instante.

Este es el codigo del TButtom
Código:

WinExec(PChar('upx -9'+edit3.text),SW_SHOWNORMAL);
El archivo UPX se encuenta dentro de la carpeta donde esta la aplicacion que tiene el Tbuttom y el edit3 es la ruta del archivo que queremos comprimir.

Gracias!

Lepe 29-12-2005 12:59:19

Ese comportamiento es normal, a menos que uses SW_HIDE como parámetro. Deberías comprobar si el archivo comprimido está ahí o en otra carpeta de windows, realiza una búsqueda. Además puede que no solo necesite la ruta del archivo, sino tambien el nombre del mismo.

A simple vista veo que no hay un espacio despues del -9, por lo que podría interpretarse como un error y no generar el archivo.

saludos

Mr.Vaka 29-12-2005 14:00:50

Gracias a todos, ya lo consegui.

Si alguien le interesa el codigo correcto es este:

Código:

WinExec(PChar('upx.exe "'+edit3.text+'" -9'),SW_SHOWNORMAL);


La franja horaria es GMT +2. Ahora son las 23:58:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi