Дата изменения файла в файловой системе хранится, а не в exe.
Код | function Modified(Filename: string): string; var Data: TWin32FindData; Time: TSystemTime;
const Months: array[1..12] of string = ('Jan', 'Veb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec'); DaysOfWeek: array[1..7] of string = ('Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat', 'Sun');
begin FindClose(FindFirstFile(PChar(Filename), Data)); FileTimeToSystemTime(Data.ftLastWriteTime, Time);
Result := DaysOfWeek[Time.wDayOfWeek] + #32 + Months[Time.wMonth] + #32 + IntToStr(Time.wDay) + #32 + IntToStr(Time.wYear)); end; |
|