Fórum Pessoal componente zip, zipar na unidade A: #213754

??

Já tentou olhar os 9 demos e o Help que o ZipMaster oferece??

Então o que eu tenho aqui não tem estes nove demos !.
se por ventura vc souber aonde eu posso baixar estes demos.
já me ajudaria bastante!.
Muito obrigado a tds !!.

este exemplo utiliza o winzip salvando o arquivo em uma determinada unidade, eu o utilizo para fazer backup em um cd no formato udf, basta acrescentar a unidade A: que eu não utilizo

procedure TForm79.Button2Click(Sender: TObject);
Var
SearchRec: TSearchRec;
begin
While True do
Begin
SearchRec.Name := ´´;
FindFirst(Diretorio + ´Vds*.*´, faAnyFile, SearchRec);
If SearchRec.Name <> ´´ then
DeleteFile(Diretorio + SearchRec.Name)
Else
Break;
End;
While True do
Begin
SearchRec.Name := ´´;
FindFirst(Diretorio + ´Tmp*.*´, faAnyFile, SearchRec);
If SearchRec.Name <> ´´ then
DeleteFile(Diretorio + SearchRec.Name)
Else
Break;
End;
If RadioGroup1.ItemIndex = 0 then
Caminho := ´D:\´
Else If RadioGroup1.ItemIndex = 1 then
Caminho := ´E:\´
Else If RadioGroup1.ItemIndex = 2 then
Caminho := ´F:\´
Else If RadioGroup1.ItemIndex = 3 then
Caminho := ´G:\´
Else If RadioGroup1.ItemIndex = 4 then
Caminho := ´H:\´
Else
Caminho := ´I:\´;
Caminho := Caminho + NomeFilial;
WinExec(PChar(´C:\Arquivos de Programas\WinZip\WinZip32 -min -a -r ´´+Caminho+´´ ´
+´´´+Diretorio+ ´*.*´ + ´´´),1);
end;

Eu utilizo o Ziptv e compacto desta maneira:

[b:50928fe4e5]procedure[/b:50928fe4e5] TForm1.Button1Click(Sender: TObject);
[b:50928fe4e5]var[/b:50928fe4e5] FilesCompressed: Integer;
[b:50928fe4e5]begin[/b:50928fe4e5]
Cursor := crHourGlass;
[b:50928fe4e5]if[/b:50928fe4e5] FileExists(´A:\BackUp´) [b:50928fe4e5]then[/b:50928fe4e5]
[b:50928fe4e5]if[/b:50928fe4e5] MessageDlg([color=darkblue:50928fe4e5]´Este arquivo já existe!´[/color:50928fe4e5]+ #13 + [color=darkblue:50928fe4e5]´Deseja substituí-lo?´[/color:50928fe4e5],mtConfirmation,[mbYes, mbNo],[color=darkblue:50928fe4e5]0[/color:50928fe4e5] ) = mrYes [b:50928fe4e5]then[/b:50928fe4e5]
[color=darkblue:50928fe4e5]// move para lata de lixo[/color:50928fe4e5]
EraseFile(´A:\BackUp´, doAllowUndo) [color=darkblue:50928fe4e5]// EraseFile está em ztvBase.pas[/color:50928fe4e5]
[b:50928fe4e5]else[/b:50928fe4e5]
Exit;

Zip1.ArchiveFile := ´A:\BackUp´;
Zip1.FileSpec.Add([color=darkblue:50928fe4e5]´C:\Cadastro\Banco.GDB´[/color:50928fe4e5]);
Zip1.FileSpec.Add([color=darkblue:50928fe4e5]´C:\Cadastro\OutroArquivo.exe´[/color:50928fe4e5]);
Zip1.FileSpec.Add([color=darkblue:50928fe4e5]´C:\Cadastro\*.qualquerextenção´[/color:50928fe4e5]);

FilesCompressed := Zip1.Compress( );
ShowMessage(IntToStr( FilesCompressed )+´ Arquivos compactados!´);
Cursor := crDefault;

[b:50928fe4e5]end;[/b:50928fe4e5]

No meu entender, você deveria criar um CD ou disquete de instalação do software com um banco vazio.
Dentro do próprio software criar uma rotina de backup/restore do banco (INTERBASE).
Os componentes são IbBackupService e IbRestoreService da paleta Ib Admin

Boa Sorte.