摘要:
function CopyFileEx( lpExistingFileName: PWideChar; { 源文件 } lpNewFileName: PWideChar; { 新的目标文件 } lpProgressRoutine: TFNProgressRoutine; { 回调函数; 每复制 64K 调用一次 } lpData: Pointer; { 给回调函数的参数 } pbCanc... 阅读全文
摘要:
问题来源: http://www.cnblogs.com/del/archive/2009/10/16/1584660.html#1742606使用的是 Delphi 2010 下 IOUtils 单元的 TDirectory.Copy 函数:uses IOUtils;procedure TForm1.Button1Click(Sender: TObject);const SourceDir =... 阅读全文