我用API 的CopyFile曾经做过一个备份程序,他的大小是1G.
每次执行需要10多分钟,也能成功覆盖。判断失败后你用GetLastError看看错误是什么。我县可能是应为这个文件正在被使用,或者属性问题。
每次执行需要10多分钟,也能成功覆盖。判断失败后你用GetLastError看看错误是什么。我县可能是应为这个文件正在被使用,或者属性问题。
解决方案 »
- 为什么点击按钮取不到最新的IP
- 怎样让inno setup做的安装程序在客户电脑上安装文件时,安装对话框中不出现要安装哪些文件以及文件安装的目标路径等信息
- wise install 制作的发布程序,非EXE文件快捷方式的图标不对!
- delphi对明码文件读取的问题,急哦
- 用DBGRID如何实现下面功能
- "网络蚂蚁"和"FlashGet"的悬浮窗口的实现
- Chart
- 紧急求助,关于TREEVIEW的使用,高手们,路过了帮我看看。
- 我这有个通用查询组件
- 如何在DELPHI中用WORD2000中的新事件
- 如何使用DELPHI读取二进制文件,文件中包含有空位而不是空格。
- 密码验证的唯一性,请教高手,先谢了!
p : SHFILEOPSTRUCT ;
str : string;
begin
str:=GetCurrentDir();
p.pFrom :=pchar(str+'\*.*');
showmessage(p.pFrom);
p.pTo :=pchar(str+'\backup\');
showmessage(p.pTo);
p.wFunc :=FO_COPY;
p.Wnd :=Handle;
p.lpszProgressTitle:= '请等待...';
{设定操作选项}
p.fFlags:= FOF_ALLOWUNDO or FOF_NOCONFIRMMKDIR
or FOF_NOCONFIRMATION or FOF_FILESONLY ;
try
SHFileOperation(p);
except
messagedlg('备份文件出错!',mtError,[mbOk],0);
exit;
end;end;
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;
拷贝大文件FALSE后返回的代码是5,,那代表什么意思。。这件代码数值意义去哪查呀??谢谢!!