文档章节

WinAPI: CopyFileEx

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 383
阅读 13
收藏 0

function CopyFileEx(
  lpExistingFileName: PWideChar;         { 源文件 }
  lpNewFileName: PWideChar;              { 新的目标文件 }
  lpProgressRoutine: TFNProgressRoutine; { 回调函数; 每复制 64K 调用一次 }
  lpData: Pointer;                       { 给回调函数的参数 }
  pbCancel: PBool;                       { 是个布尔值指针; True 是取消复制 }
  dwCopyFlags: DWORD                     { 复制选项; 下面有补充... }
): BOOL; stdcall;                        { 返回成功或失败 }

//dwCopyFlags(复制选项):
COPY_FILE_FAIL_IF_EXISTS = $00000001; { 如果目标存在则失败返回 }
COPY_FILE_RESTARTABLE    = $00000002; { 若失败则重新开始 }

 
 
 
 
 

 

 

  
//CopyFileEx 使用的回调函数: function ProgressRoutine( TotalFileSize: LARGE_INTEGER; { 文件总字节数 } TotalBytesTransferred: LARGE_INTEGER; { 已复制的字节数 } StreamSize: LARGE_INTEGER; { 当前流的字节数 } StreamBytesTransferred: LARGE_INTEGER; { 当前流已拷贝的字节数 } dwStreamNumber: DWORD; { 当前流序号 } dwCallbackReason: DWORD; { 回调函数的状态; 下面有补充... } hSourceFile: THANDLE; { 源文件句柄 } hDestinationFile: THANDLE; { 目标文件句柄 } lpData: Pointer { CopyFileEx 传递的参数指针 } ): DWORD; stdcall; { 返回值; 下面有补充... } //dwCallbackReason(回调函数的状态): CALLBACK_CHUNK_FINISHED = $00000000; { 复制进行中 } CALLBACK_STREAM_SWITCH = $00000001; { 准备开始} //回调函数可以使用的返回值: PROGRESS_CONTINUE = 0; { 继续 } PROGRESS_CANCEL = 1; { 取消 } PROGRESS_STOP = 2; { 暂停 } PROGRESS_QUIET = 3; { 终止回调, 但不停止复制 }

一个实现复制进度的测试, 测试前在窗体上放个 TProgressBar:

//回调函数; 为了运算我把其中的 LARGE_INTEGER 类型改成 Int64 了
function ProgressRoutine(TotalFileSize, TotalBytesTransferred, StreamSize,
  StreamBytesTransferred: Int64; dwStreamNumber, dwCallbackReason: DWORD;
  hSourceFile, hDestinationFile: THANDLE; lpData: Pointer): DWORD; stdcall;
begin
  Form1.ProgressBar1.Position := Trunc(TotalBytesTransferred / TotalFileSize * 100);
  Application.ProcessMessages;
  Result := PROGRESS_CONTINUE;
end;

//复制
procedure TForm1.Button1Click(Sender: TObject);
const
  s = 'C:\Temp\Test.rar';
  d = 'C:\Temp\NewDir\Test.rar';
begin
  Assert(FileExists(s), '源文件不存在');
  Assert(DirectoryExists(ExtractFilePath(d)), '目标路径不存在');
  CopyFileEx(PChar(s), PChar(d), @ProgressRoutine, nil, nil, COPY_FILE_RESTARTABLE);
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2010/01/08/1642632.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
如何模拟输入用户名、密码来访问网络邻居

如何模拟输入用户名、密码来访问网络邻居 基本原理 在Windows 环境下,应用程序使用Windows 网络函数(WNet)来实现网络功能 而不用关心网络的供应商及具体实现,因为WNet 函数是独立于网络的...

vga
2014/03/04
0
0
Go语言Windows程序设计(1)--简单弹出消息窗口

这几天公司比较空,又开始玩Go语言,发现它可以通过一个https://github.com/lxn/go-winapi go-winapi的库写windows程序,于是就开始玩了,当然,也已经有了很多基于它而进一步封装便于开发的...

卧雪Sirk
2016/03/19
39
0
如何调用WINAPI声明的动态库?

一个库的函数以 WINAPI声明 然后调的时侯就有问题 以WINAPI声明的函数 比如 long dlltest(); 就会变成long _dlltest@0() 试着用 typef long (stdcall *_pdlltest)(); 这样去导 结果导不出来 ...

我是你
2014/04/29
87
0
这段代码为什么会崩啊

CCriticalSection atrtest; list list2; void deleteList(); //线程1的入口函数 DWORD WINAPI Fun1Proc(LPVOID lpParameter)//thread data { while(TRUE) { deleteList(); } return 0; } //线......

智勇
2014/05/22
214
3
PNotes 这软件不错

这软件是纯C的WINAPI写的 支持换肤等功能 学习WINAPI的,可以好好研究一下源代码

fdasljlf
2011/04/24
1K
20

没有更多内容

加载失败,请刷新页面

加载更多

AS连接网易Mumu模拟器

1、安装模拟器 打开这个网址现在模拟器然后安装 http://mumu.163.com/ 2、安装完成后启动模拟器 3、进入模拟器安装目录 例如本机的安装目录:C:\Program Files (x86)\MuMu\emulator\nemu\vmo...

HGMrWang
16分钟前
5
0
设计要做到扩展性强还挺难的

概述 在日常开发中,有时候你的上司会跟你说,这个模块的设计扩展性要高。把这句话说出来很简单,但是要做到则非常难。导致难的其中一个因素是: 你不熟悉这个行业的业务的玩法 我举个例子来...

Sam哥哥聊技术
18分钟前
2
0
聊聊 scala 的模式匹配

一. scala 模式匹配(pattern matching) pattern matching 可以说是 scala 中十分强大的一个语言特性,当然这不是 scala 独有的,但这不妨碍它成为 scala 的语言的一大利器。 scala 的 patt...

终日而思一
19分钟前
1
0
Spring事物手动回滚

手动回滚: 方法1:在service层方法的catch语句中增加:TransactionAspectSupport.currentTransactionStatus().setRollbackOnly();语句,手动回滚,这样上层就无需去处理异常(现在项目的做法)...

寒风中的独狼
23分钟前
1
0
直角三角形的三角函数

sinA = a/c;A = asin(a/c); 特殊角度的三角函数值

一个小妞
31分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部