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

WERITAS

Дата 17.2.2007, 22:31 (ссылка)

(нет голосов)

Загрузка ...

********

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 2.5.2005
Где: Москва

Репутация: нет
Всего: 5

САБЖ!

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

--------------------

Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"

ldr12

Дата 19.2.2007, 01:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 9.2.2007

Репутация: 1
Всего: 1

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

Это сообщение отредактировал(а) ldr12 - 19.2.2007, 01:39

Voyager

Дата 19.2.2007, 11:35 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 532
Регистрация: 8.2.2005

Репутация: 4
Всего: 18

Код


var
s:string; 

DateTimeToStr(FileDateTime(FileName),s);

WERITAS

Дата 19.2.2007, 18:16 (ссылка)

(нет голосов)

Загрузка ...

********

Профиль
Группа: Участник
Сообщений: 582
Регистрация: 2.5.2005
Где: Москва

Репутация: нет
Всего: 5

Цитата(Voyager @ 19.2.2007, 11:35)

Код


var
s:string; 

DateTimeToStr(FileDateTime(FileName),s);

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

--------------------

Арт-менеджер клуба, разрешивший концерт Алексея Глызина, уволен с формулировкой "Мудак"

ldr12

Дата 20.2.2007, 01:50 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 18
Регистрация: 9.2.2007

Репутация: 1
Всего: 1

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

Yanis

Дата 20.2.2007, 09:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

Код

uses SysUtils, ..., ...;
var
  td: TDateTime;
begin
  FileAge('c:\Radmin.txt', td);
  ShowMessage(DateTimeToStr(td));
end;

--------------------

*щёлк*

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »