joelsun的部落格

function TForm1.FunFileAge(aFilename:string):TDateTime;
var aFile : string;
aFileDateTime : TDateTime;
aFileOSDate : integer;
begin
aFileOSDate := FileAge(aFilename);

if aFileOSDate = -1 then begin
Result := 0;
Exit; //invalid file
end;

Result := FileDateToDateTime(aFileOSDate);
// aFileDateTime := DateAdd(Now,1); //add a day
// FileSetDate(aFileName, DateTimeToFileDate(aFileDateTime));
//Fo, our application exe file "was" modified tomorow