Code666 (代码贴、代码片段)

[Delphi (Object Pascal)] Delphi 设置文件的修改时间为当前时间 →→→→→进入此内容的聊天室

来自 , 2020-11-22, 写在 Delphi (Object Pascal), 查看 117 次.
URL http://www.code666.cn/view/a16f3a5b
  1. function Touch(const FileName: string): Boolean;
  2. var
  3.   FileH: Integer; // handle of file
  4. begin
  5.   // Assume failure
  6.   Result := False;
  7.   // Try to open file: bail out if can't open
  8.   FileH := SysUtils.FileOpen(
  9.     FileName, SysUtils.fmOpenWrite or SysUtils.fmShareDenyWrite
  10.   );
  11.   if FileH = -1 then
  12.     Exit;
  13.   try
  14.     // Set date to current date and time: return true if succeed
  15.     if SysUtils.FileSetDate(
  16.       FileH, SysUtils.DateTimeToFileDate(SysUtils.Now())
  17.     ) = 0 then
  18.       Result := True;
  19.   finally
  20.     // Close the file
  21.     SysUtils.FileClose(FileH);
  22.   end;
  23. end;
  24. //delphi/2229

回复 "Delphi 设置文件的修改时间为当前时间"

这儿你可以回复上面这条便签

captcha

贴代码片段 - Code666