Descompactação Winrar Delphi
Bom dia , eu estou com um problema, já pesquisei e não encontrei nenhuma solução. Eu preciso descompactar um arquivo que está salvo em um pendrive para uma pasta no computador. Ele descompacta porém o arquivo está sendo descompactado no diretório do executável do programa e não no diretório passado por parâmetro, o código está assim.
procedure TCompactarWinrar.Descompactar; var cmd: string; begin cmd := PathInstalacao + ' X '+ ArquivoOriginal + ' ' + Extensao + ' ' + Destino; WinExec(PChar(cmd),SW_HIDE); end;
Lucas Domiciano
Curtidas 0
Melhor post
Flavio Silva
19/12/2018
Olá deve ser esoecificado entre aspas "
procedure TCompactarWinrar.Descompactar;
var
cmd: string;
begin
cmd := PathInstalacao + ' X "'+ ArquivoOriginal + '" ' +
Extensao + ' "' + Destino + '"';
WinExec(PChar(cmd),SW_HIDE);
end;
//unrar.exe x c:\\yourfile.rar *.gif c:\\extractfolder\\
https://cects.com/using-the-winrar-command-line-tools-in-windows/
procedure TCompactarWinrar.Descompactar;
var
cmd: string;
begin
cmd := PathInstalacao + ' X "'+ ArquivoOriginal + '" ' +
Extensao + ' "' + Destino + '"';
WinExec(PChar(cmd),SW_HIDE);
end;
//unrar.exe x c:\\yourfile.rar *.gif c:\\extractfolder\\
https://cects.com/using-the-winrar-command-line-tools-in-windows/
GOSTEI 1
Mais Respostas
Lucas Domiciano
17/12/2018
Olá deve ser esoecificado entre aspas "
procedure TCompactarWinrar.Descompactar;
var
cmd: string;
begin
cmd := PathInstalacao + ' X "'+ ArquivoOriginal + '" ' +
Extensao + ' "' + Destino + '"';
WinExec(PChar(cmd),SW_HIDE);
end;
//unrar.exe x c:\\\\yourfile.rar *.gif c:\\\\extractfolder\\\\
https://cects.com/using-the-winrar-command-line-tools-in-windows/
procedure TCompactarWinrar.Descompactar;
var
cmd: string;
begin
cmd := PathInstalacao + ' X "'+ ArquivoOriginal + '" ' +
Extensao + ' "' + Destino + '"';
WinExec(PChar(cmd),SW_HIDE);
end;
//unrar.exe x c:\\\\yourfile.rar *.gif c:\\\\extractfolder\\\\
https://cects.com/using-the-winrar-command-line-tools-in-windows/
Muito bom , resolveu meu problema. Obrigado !
GOSTEI 0