Como descompactar zipado no delphi 5, 6 ou 7
Amigos preciso desta dica, ja tentei alguma mas naum deu certo...
O4pr3ndiz
Curtidas 0
Respostas
Edilcimar
12/02/2005
caminho := letra da unidade
Caminho := Caminho + Dia + ´\´;
WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -e ´´+Caminho+´´ ´ +´´´+ ´C:\Diretorio´ + ´´´),1);
Caminho := Caminho + Dia + ´\´;
WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -e ´´+Caminho+´´ ´ +´´´+ ´C:\Diretorio´ + ´´´),1);
GOSTEI 0