~~~~~~~~~~~~~~~~~~~~~~~~~
function SetFileDate(
Const FileName : String;
Const FileDate : TDateTime): Boolean;
var
FileHandle : THandle;
FileSetDateResult : Integer;
begin
try
try
FileHandle := FileOpen
(FileName,
fmOpenWrite OR fmShareDenyNone) ;
if FileHandle > 0 Then begin
FileSetDateResult :=
FileSetDate(
FileHandle,
DateTimeToFileDate(FileDate)) ;
result := (FileSetDateResult = 0) ;
end;
except
Result := False;
end;
finally
FileClose (FileHandle) ;
end;
end;
{Usage:}
SetFileDate('c:\mydir\myfile.ext', Now)
~~~~~~~~~~~~~~~~~~~~~~~~~
Delphi tips navigator:
» Get EXE Version Information
« TButton with multiline Caption
