Compactando arquivos com Winrar

Question

Gostaria de uma orienta��o de como compactar um arquivo utilizando o winexec, para executar o winrar e comprimir o arquivo especificado. Se alguem puder ajudar, agrade�o....

Carlos Oliveira · Answer

Ol� Gabriel, n�o sei da rela��o do Delphi com o Winrar, me desculpe, mas existe algo mais especifico entre as duas tecnologias?...

Jhon · Answer

Bom, o que eu consegui encontrar foi isso >

winexec(PAnsiChar(AnsiString('"C:\Arquivos de programas\WinRAR\WinRAR.exe" a '+'C:\teste.rar'+' "'+'C:\teste.txt'+'"')),sw_normal);

Este comando executa o winrar e compacta o arquivo teste.txt, porem desta forma este comando se torna muito limitado, vou tentar trabalhar com Edit para inserir o caminho ou com selDir. Obrigado pela aten��o.

Carlos Oliveira · Answer

Te pe�o desculpas, mas s� conhe�o a forma de usar o Winrar de forma independente, n�o com outro programa....

Jhon · Answer

Amigo, tenho um pequeno problema com o este comando, por exemplo, caso o arquivo que eu for compactar esteja dentro de outras pastas, o winrar n�o compacta apenas o arquivo, mas sim a pasta do destino do arquivo, veja o comando, por gentileza >

procedure TForm1.Button1Click(Sender: TObject);
var
selDir : string;
begin
SelectDirectory('Selecione uma pasta', 'meu computador:\', selDir);
winexec(PAnsiChar(AnsiString('"C:\Arquivos de programas\WinRAR\WinRAR.exe" a '+selDir+'\Estoque.rar'+' "'+'C:\Teste\banco\ESTOQUE.gdb'+'"')),sw_normal);
end;

Neste caso ent�o, dentro do arquivo compactado tem a pasta teste a pasta banco, e ai ent�o o arquivo estoque.gdb. E gostaria que no arquivo compactado estivese apenas o estoque.gdb. Se puder ajudar, agrade�o.

Carlos Oliveira · Answer

Desculpas, realmente eu n�o sei....

F�rum Compactando arquivos com Winrar #506952