Mega Code Archive
Filesetdate - set the last modified date and time of a file sysutils unit
<![CDATA[
1 function FileSetDate ( FileHandle : Integer; FileAge : Integer ) : Integer;
2 function FileSetDate ( const FileName : string; FileAge : Integer ) : Integer;
Description
The SetFileDate function sets the last modified date and time of a file.
Version 1 of this function takes a FileHandle parameter to indicate the file. This requires use of the FileOpen function, which is one of the low level file handling routines in Delphi.
Version 2 of this function takes a FileName parameter to define the file.
The file is searched for in the current directory.
The second parameter, FileAge is an Integer date/time representation that is used to change the last modified date/time of the file.
Use the DateTimeToFileDate function to convert a TDateTime value to this integer format.
Related commands
DateTimeToFileDate Convert a TDateTime value to a File date/time format
FileAge Get the last modified date/time of a file without opening it
FileDateToDateTime Converts a file date/time format to a TDateTime value
FileGetAttr Gets the attributes of a file
FileSetAttr Sets the attributes of a file
Example code : Display, update, and redisplay the last modified date of a file
var
fileName : string;
fileDate : Integer;
newDateTime : TDateTime;
begin
// Try to open the Unit1.DCU file for the current project
fileName := 'Unit1.DCU';
fileDate := FileAge(fileName);
// Did we get the file age OK?
if fileDate > -1 then
begin
ShowMessage(fileName+' last modified date = '+
DateTimeToStr(FileDateToDateTime(fileDate)));
// Now change the last modified date
newDateTime := StrToDateTime('01/01/2000 12:34:56');
FileSetDate(fileName, DateTimeToFileDate(newDateTime));
end;
// Did we update the file last modified date OK?
fileDate := FileAge(fileName);
if fileDate > -1 then
ShowMessage(fileName+' last modified date = '+
DateTimeToStr(FileDateToDateTime(fileDate)));
end;
Show full unit code
Unit1.DCU last modified date = 30/10/2002 15:16:22
Unit1.DCU last modified date = 01/01/2000 12:34:56
]]>