有没有做过文件的备份和恢复系统的?我在网上找了下,多数是 EXE文件,要么不是DELPHI写的,谁写过啊?
我写了些代码文件备份不过去。那位大哥给点资料
我写了些代码文件备份不过去。那位大哥给点资料
解决方案 »
- delphi中选定变色的问题
- 语法求助:array of char 如何相加拷贝?????
- ServerSocket 采用stThreadBlocking方式,如何给指定的客户端发送数据,如何断开指定的Client?
- fastreport 3.0 如何实现强制换行?
- single,real,double 数据存放的问题
- 如何判断鼠标按下时是点击了DBGrid中的标题栏还是数据行,请各位大哥帮帮忙!谢谢!
- 数据显示!
- 转换成DB文件?
- 请问各位仁兄?游戏中的图画(如CS中的地图)如何搞出来的?
- 有关变量类型的三个问题。在线等,谢谢。
- 求助DELPHI7.0毕业设计(药品进销存管理系统)价钱好商量~~
- 如何在access的ole对象字段中插入一个可执行文件,然后取出来
简单级别的只要CopyFile函数就行了
顺便说一句DELPHI有专门的文件管理类的,也可以使用Win32 API来做的;
我只是给你思路
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;