2010 年 1月 8 日随笔档案 - 万一

2010年1月8日

摘要： function CopyFileEx( lpExistingFileName: PWideChar; { 源文件 } lpNewFileName: PWideChar; { 新的目标文件 } lpProgressRoutine: TFNProgressRoutine; { 回调函数; 每复制 64K 调用一次 } lpData: Pointer; { 给回调函数的参数 } pbCanc... 阅读全文

posted @ 2010-01-08 21:44 万一阅读(6636) 评论(5) 推荐(1)

一句话复制整个文件夹(当然包括嵌套文件夹) - 回复 "张哆哆" 的问题

摘要：问题来源: 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 =... 阅读全文

posted @ 2010-01-08 12:24 万一阅读(10507) 评论(18) 推荐(0)