[[nlsgarcia]]

tulio,

Empezado por tulio

...copie el ejemplo tal cual, me instale el 7Zip y no me funciona, no da error pero no hace nada...

Sustituye:

Código Delphi [-]
PChar( GetEnvironmentVariable('Archivos de programa') + '\7-Zip\7zfm.exe' ), //(2)

Por:

Código Delphi [-]
PChar( GetEnvironmentVariable('ProgramFiles') + '\7-Zip\7z.exe' ), //(2)

Revisa esta información:

1- GetEnvironmentVariable function

2- Windows Environment Variables

3- SET

Espero sea útil

Nelson.