delphi11 修改文件创建时间
时间: 2023-08-03 11:07:18 浏览: 144
在 Delphi 11 中,你可以使用 `FileSetDate`来修改文件的创建时间。该函数位于 `System.SysUtils` 单元中。
以下是一个示例代码,展示如何使用 `FileSetDate` 函数来修改文件的创建时间:
```delphi
uses
System.SysUtils;
procedure ModifyFileCreationTime(const FileName: string; const NewCreationTime: TDateTime);
var
FileHandle: THandle;
begin
FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
if FileHandle <> THandle(-1) then
begin
try
if not FileSetDate(FileHandle, DateTimeToFileDate(NewCreationTime)) then
raise Exception.Create('Failed to modify file creation time.');
finally
FileClose(FileHandle);
end;
end
else
raise Exception.Create('Failed to open file.');
end;
```
你可以在需要的地方调用 `ModifyFileCreationTime` 过程,将 `FileName` 参数设置为你想要修改的文件的路径,`NewCreationTime` 参数设置为你想要设置的新的创建时间。注意,`NewCreationTime` 参数应该是 `TDateTime` 类型的值。
请确保你有足够的权限来修改文件的创建时间,否则可能会出现访问拒绝的错误。