使用copyfile的一个小问题

Question

我在用copyfile复制一个比较大的文件时,程序会停止响应别的操作,,直到复制完成,,如何让copyfile时还能进行别的操作呢??

Answer 1

1.开线程
2.自己写代码拷贝function MyCopyFile(SrcFile, DestFile: string): boolean;
{
  OpenSourceFile;
  OpenDestFile;  while not eof(SrcFile) do {
    BlockReadFromSrcFile;
    BlockWriteToDestFile;
  
    Application.ProcessMessage;
  }  CloseSourceFile;
  CloseDestFile;
}

Answer 2

提供一个选择，用异步的CopyFileEx来处理，第三个参数是它的回调