Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > дата изменения файла

Автор: WERITAS 17.2.2007, 22:31

САБЖ!

Причем под файлом подразумевается 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;