Hola
Aun no he conseguido ke me funcione
Código:
WinExec(pansichar('"C:\Archivos de programa\WinRAR\rar.exe" x C:\prueba\Escritorio.rar C:\prueba /p'+an), SW_NORMAL);
Este es el codigo que dices que te funciona no? Si es asi dime que delphi tienes porfavor igual es x la version de delphi o algun componente.
Saludos