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

ZBugz

Дата 24.2.2010, 16:35 (ссылка)

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

Загрузка ...

Опытный

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

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

Всем привет. Помойму я видел такую тему тут, но не могу ее найти, если что, дайте ссылку.
Мне надо дат и время создания моего *.exe запихнуть в себя же и прочитать ее... smile

CodeMonkey

Дата 25.2.2010, 00:32 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

Как-то так:

Код

  function ReadResourceTime(const AImage: THandle): TDateTime;
  var
    lpOptionalHeader: PImageOptionalHeader;
    lpDataDir: PImageDataDirectory;
  begin
    Result := 0;
    try
      lpOptionalHeader := @PImageNtHeaders(AImage + Cardinal(PImageDosHeader(AImage)._lfanew)).OptionalHeader;
      if (lpOptionalHeader.NumberOfRvaAndSizes >= IMAGE_DIRECTORY_ENTRY_RESOURCE) then
      begin
        lpDataDir := @lpOptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_RESOURCE];
        if ((lpDataDir.Size > 0) and (lpDataDir.VirtualAddress > 0)) then
          Result := FileDateToDateTime(PImageResourceDirectory(AImage + lpDataDir.VirtualAddress)^.TimeDateStamp);
      end;
    except
      Result := 0;
    end;
  end;

Чтение даты компиляции из секции ресурсов. Только нужно учесть, что это (кажется) локальное время, не UTC.

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

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