Descompactação Winrar Delphi
17/12/2018
0
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
Curtir tópico
+ 0
Responder
Post mais votado
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/
Flavio Silva
Responder
Mais Posts
19/12/2018
Lucas Domiciano
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 !
Responder
Clique aqui para fazer login e interagir na Comunidade :)
