Foros Club Delphi - Ayuda descomprimir archivos con pass

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Ayuda descomprimir archivos con pass (https://www.clubdelphi.com/foros/showthread.php?t=64300)

Ayuda descomprimir archivos con pass

Estoy probando este codigo ke me funciona perfectamente pero no a la ke le añado el pass no me funciona

Código:

begin

ShellExecute(Handle, 'Open', 'C:\Archivos de programa\WinRAR\rar.exe', 'x C:\prueba\Escritorio.rar C:\prueba\', nil, SW_HIDE);

end;

le añado al lado de la 'x' de la accion que significa extraer el p[123] dnd 123 es el pass y nada no lo consigo haber si alguien me puede hechar una mano

Saludos

Código Delphi [-] WinExec('"C:\Archivos de programa\WinRAR\rar.exe" x C:\prueba\Escritorio.rar C:\prueba /p123', SW_HIDE);

Añado que existe un componente supuestamente gratis hecha por el fabricante para Delphi (solo para descomprimir) http://www.winrar.es/descargas/fuentes

Cita:

Licencia de uso de UnRAR

El código fuente de UnRAR se distribuye como freeware, esto significa:

1. Todos los derechos de copia son propiedad exclusiva de Alexander Roshal.
2. El código fuente de UnRAR puede usarse libremente en cualquier programa para manejar archivos RAR sin limitaciones y libre de cargos, pero no puede usarse para re-crear el algoritmo de compresión RAR, que es propietario. Se permite la distribución del código fuente modificado del UnRAR de forma separada o incluida en otros programas siempre que la documentación y los comentarios en el código fuente hagan referencia clara a la prohibición de usar dicho código en el desarrollo de un compresor compatible con RAR.
3. La utilidad UnRAR se puede distribuir libremente siempre que no se modifique de ninguna forma el paquete original de distribución. Ninguna persona o empresa puede cobrar por la distribución de UnRAR sin el permiso por escrito del dueño de los derechos de copia.
4. UNRAR SE DISTRIBUYE "TAL COMO ES". NO SE EXPRESA NI IMPLICA NINGUN TIPO DE GARANTIA. DEBE USARLO A SU PROPIO RIESGO. NI AUTOR NI NINGUNO DE SUS AGENTES SE HARA RESPONSABLE DE PERDIDAS DE DATOS, DAÑOS, PERDIDA DE BENEFICIOS O CUALQUIER OTRO TIPO DE PERDIDA DERIVADA DEL USO CORRECTO O INCORRECTO DE ESTE PROGRAMA.
5. Instalar y usar este programa significa aceptar los términos condiciones de esta licencia.
6. Si usted no está de acuerdo con los términos de esta licencia está obligado a borrar los ficheros que componen este programa de todos sus dispositivos de almacenamiento y dejar de usarlo.

Gracias por usar este programa legalmente

Alexander L. Roshal

Cita:

Empezado por cHackAll (Mensaje 342744)

Código Delphi [-] WinExec('"C:\Archivos de programa\WinRAR\rar.exe" x C:\prueba\Escritorio.rar C:\prueba /p123', SW_HIDE);

Lo he utilizado y me funciona bien x no consigo concatenar una variable de tipo string con ello.

Código:

WinExec('"C:\Archivos de programa\WinRAR\rar.exe" x C:\prueba\Escritorio.rar C:\prueba /p'+vari_string+'', SW_HIDE);

Me sale un error que no habia visto nunca de incoptible types string and Pansichar. Entiendo que tipo de error es x no entiendo que es el Pansichar.

Saludos

Código Delphi [-] WinExec(PChar('"C:\Archivos de programa\WinRAR\rar.exe" x C:\prueba\Escritorio.rar C:\prueba /p' + vari_string), SW_HIDE);

Cita:

Empezado por cHackAll (Mensaje 342880)

WinExec(PChar('"C:\Archivos de programa\WinRAR\rar.exe" x C:\prueba\Escritorio.rar C:\prueba /p' + vari_string), SW_HIDE);

Siento molestar de nuevo pero esta solucion tampoco me funciona me sale el error de Incompatible types: Char and Ansichar Saludos

Cita:

Empezado por dellarts (Mensaje 342907)

Siento molestar de nuevo pero esta solucion tampoco me funciona me sale el error de Incompatible types: Char and Ansichar Saludos

Cambia PChar por PAnsiChar !

Gracias a todos en especial a cHackAll, ya consegui compilarlo. No hace lo que yo kiero x sigo investigando.

Saludos