autobackup怎样编程(50分)

  • 主题发起人 主题发起人 weekforever
  • 开始时间 开始时间
W

weekforever

Unregistered / Unconfirmed
GUEST, unregistred user!
用TIMER控件来备份相关文件,Delphi有没有Backup控件
 
各位龙虾请帮一下忙,SOS……[:(]
 
有个第三方开发的免费控件叫backup,它将要备份的资料打包并压缩。
如果是一般性的备份,你可以自己用timer来做,每隔一段时间将文件copy一下就成。
 
在delphi里我没有找到COPY命令,我应该怎么做?
 
下面是一个copy文件的过程
procedure FileCopy(const sourcefilename, targetfilename: string);
var
S, T: TFileStream;
begin
S := TFileStream.Create(sourcefilename, fmOpenRead);
try
T := TFileStream.Create(targetfilename, fmOpenWrite or fmCreate);
try
T.CopyFrom(S, S.Size);
finally
T.Free;
end;
finally
S.Free;
end;
end;
 
const 是定义一个常量。
sourcefilename 是一个源文件名,
targetfilename 是一个目标文件名,
怎样声明,路径怎样定义。
对不起(ISEEK),你可能觉得这个问题有一点幼稚,但我希望你回答我(一个菜鸟的请求)
myemail:weekforever1@21cn.com
QQ:99307813
 
后退
顶部