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;
beginForm1.ProgressBar1.Position := Trunc(TotalBytesTransferred / TotalFileSize * 100);Application.ProcessMessages;Result := PROGRESS_CONTINUE;
end;//复制
procedure TForm1.Button1Click(Sender: TObject);
consts = 'C:\Temp\Test.rar';d = 'C:\Temp\NewDir\Test.rar';
beginAssert(FileExists(s), '源文件不存在');Assert(DirectoryExists(ExtractFilePath(d)), '目标路径不存在');CopyFileEx(PChar(s), PChar(d), @ProgressRoutine, nil, nil, COPY_FILE_RESTARTABLE);
end;