有没有做过文件的备份和恢复系统的?我在网上找了下,多数是 EXE文件,要么不是DELPHI写的,谁写过啊?
我写了些代码文件备份不过去。那位大哥给点资料

解决方案 »

  1.   

    9494
    简单级别的只要CopyFile函数就行了
      

  2.   

    顶楼上的
    顺便说一句DELPHI有专门的文件管理类的,也可以使用Win32 API来做的;
    我只是给你思路
      

  3.   

    copyfile备份,然后恢复的时候判断文件是否一样,不一样的copy回去覆盖了
      

  4.   

    copyfile备份,再根据修改时间恢复
      

  5.   

    我现在就是想简单COPYFILE备份,就是提示不成功,代码如下:
    procedure TForm1.Button1Click(Sender: TObject);
    var
       path,backfilename:string;begin
      if (Edit2.Text='') or (Memo1.Text='') then
        begin
          Application.MessageBox('请输入姓名和备份说明','提示',mb_ok);
         end
       else
        begin
          if Edit4.Text<>'' then
             begin
               backfilename:=trim(Edit2.Text)+FormatDateTime('yyyymmddhhmmss',Now);
               path:=Edit4.Text+ backfilename;
               if CopyFile(pchar(path),pchar(Edit4.Text),true) then
                  application.MessageBox(pchar('备份成功!'+#13),' XGY',mb_ok+mb_iconinformation)
               else
                  application.MessageBox(pchar('备份失败!'+#13),' XGY',mb_ok+mb_iconwarning);
              end;
        end;
    end;