Ayuda descomprimir archivos con pass

[dellarts]

Hola

Este codigo compila perfectamente pero no hace lo que deberia ya no se que mas probar alguien sabe el xk no funciona? igual no es posible hacerlo en delphi.

an := 'a';

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

"an" es una variable de tipo string que tiene el valor del pass del archivo comprimido.


Saludos