Fórum WInRar pelo Delphi #501521

Vi outro problema que pode ser:

Primeiro:
Passe os caminhos com barra invertida e não barra normal (isso eu acho que o winrar interpreta, maaaas).
Ao invés de '/resultados/D_quina.zip'
Passe '\resultados\D_quina.zip'

Segundo:
O problema pode ser o caminho que está passando no quarto parâmetro do ShellExecute, que são os parâmetros para o WinRar.
Se tiver espaço no caminho ExtractFilePath(Application.Exename) o winrar não vai conseguir interpretar como um parâmetro único.

Exemplo:
- Se o caminho do seu exe for: c:\teste de winrar\projeto.exe
O winrar vai ser chamado assim: winrar e -ibck c:\teste de winrar\resultados\D_quina.zip c:\teste de winrar\resultados\
- No arquivo a ser extraído e caminho, deve passar com aspas para suprir o "problema" dos espaços e o winrar interpretar como parâmetros únicos, pois o delimitados de parâmetros é o espaço
Ficando assim: winrar e -ibck "c:\teste de winrar\resultados\D_quina.zip" "c:\teste de winrar\resultados\"

No seu projeto fica assim:

ShellExecute(
0,
nil,
'Winrar.exe',
Pchar('e -ibck "'+ExtractFilePath(Application.Exename)+'/resultados/D_quina.zip'+'" "'+ExtractFilePath(Application.Exename)+'/resultados/' + '"'),
Pchar('"C:\Program Files (x86)\WinRAR\"'), // caminho do executável
sw_show);