如何克隆文件？

我想制作一个相同的文件副本,我知道如何在新文件中复制文件的内容,但我不知道如何复制属性和日期.

我尝试了以下代码,但它在Delphi 2009中不起作用：

SrcHandle:=CreateFile(PWideChar('\\?\'+SrcName),GENERIC_READ,FILE_SHARE_READ,nil,OPEN_EXISTING,FILE_FLAG_SEQUENTIAL_SCAN,0);
DestHandle:=CreateFile(PWideChar('\\?\'+DestName),GENERIC_WRITE,CREATE_ALWAYS,SrcHandle);

请注意,目标CreateFile的最后一个参数是sorce文件的句柄. Delphi说如果我这样做,它会将“属性和扩展属性”复制到新文件中.但它不……

解决方法

使用IoUtils中的TFile.copy().操作系统提供文件复制功能,此功能利用它们.此函数调用Windows copyFile函数.如果您愿意,可以直接打电话.

以这种方式复制文件后,将复制所有属性.最后一步是文件时间戳.使用GetFileTime和SetFileTime执行此步骤.