Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > дата изменения файла


Автор: WERITAS 17.2.2007, 22:31
САБЖ!  smile  smile  

Причем под файлом подразумевается exe'шник, полученный после компоновки :-)

Автор: ldr12 19.2.2007, 01:37
Дата изменения файла в файловой системе хранится, а не в 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;

Автор: Voyager 19.2.2007, 11:35
Код

var
s:string; 

DateTimeToStr(FileDateTime(FileName),s); 


Автор: WERITAS 19.2.2007, 18:16
Цитата(Voyager @ 19.2.2007,  11:35)
Код

var
s:string; 

DateTimeToStr(FileDateTime(FileName),s); 


ЧТо за функция FileDateTime????

Автор: ldr12 20.2.2007, 01:50
uses SysUtils, если, без сомнения, простой и удобный способ товарища Voyager соответствует твоей задумке публикации сего вопроса в ветке WinAPI smile

Автор: Yanis 20.2.2007, 09:52
Код
uses SysUtils, ..., ...;
var
  td: TDateTime;
begin
  FileAge('c:\Radmin.txt', td);
  ShowMessage(DateTimeToStr(td));
end;

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)