200分求教BACKFILE这个控件怎么用.(200分)

我已经下载了,并安装了.就是不会用就是看了HELP也一知半解的.

如:

backupfile1.backup( listbox1.items, 'A:backup.bck');
如何备份C:/LION/LION.DBF 到 A:盘处.

和如何恢复a:/BACKUP.BCK 到 C:/LION/LION.DBF

谢谢

请多举例子,第二中方法也行,可以压缩有例字就行.

BACKFILE控件那里有下载？？？

前卫兄:

很久不见
http://vcl.vclxx.com/DELPHI/D32FREE/BACKFILE.ZIP

procedure TForm1.Button1Click(Sender: TObject); //备份文件
var
StringList:TStringList;
begin
StringList:=TStringList.Create;
try
StringList.Add('c:/temp/d.mdb');
StringList.Add('c:/temp/db1.mdb');
{...}
BackupFile1.BackupMode:=bmAll;
backupfile1.compressionLevel:=clMax;
backupfile1.SaveFileID:=True;


if backupfile1.Backup(StringList,'c:/temp/shenqw.bck')
then Showmessage('Backup sucessful. Compression rate = '+inttostr(BackupFile1.compressionrate)+' %')
else Showmessage('Backup failed or aborted');
finally
StringList.Free;
end;
end;

procedure TForm1.Button2Click(Sender: TObject); //恢复文件
begin
BackupFile1.RestoreMode:=rmAll;

if backupfile1.Restore('c:/temp/shenqw.bck','c:/temp/test')
then Showmessage('Backup sucessful. Compression rate = '+inttostr(BackupFile1.compressionrate)+' %')
else Showmessage('Backup failed or aborted');
end;

ok 可以了,但我想再问一下.
如何才可以像backfile的源程序那样加一个ProgressBar.可以看到进度.
在代码中如何加呢??????

在窗体中加入一个ProgressBar,设置Min=0,Max=100.然后为TBackupFile控件写OnProgress事件：

procedure TForm1.Backupfile1Progress(Sender: TObject; Filename: String;
Percent: TPercentage; var Continue: Boolean);
begin
with Progressbar1 do if visible then position := Percent;
end;

ok,谢谢