Delphiでファイルのタイムスタンプを変更する

Delphiでファイルのタイムスタンプを変更する

引数	FileName … タイムスタンプを変更したいファイルの名前です。 DateTime … タイムスタンプです。TDateTime 型で指定して下さい。
戻り値	タイムスタンプの変更が成功すれば True、失敗すれば（ファイルが存在しない場合など） False を返します。

 

uses SysUtils;

function FileSetDate2(FileName: string; DateTime: TDateTime): Boolean;

var hFile: Integer;

begin

  hFile := FileOpen(FileName, fmOpenWrite);

  Result := hFile > 0;

  if Result then begin

     Result := FileSetDate(hFile, DateTimeToFileDate(DateTime)) = 0;

     FileClose(hFile)；

   end;

end;