VPF::Дата создания каталога и перевод часов

Proloxy

Дата 3.11.2009, 16:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Для получения даты создания каталога использую следующую функцию:

Код


function GetDirTime(const Dir: string): TDateTime;
var
  H: Integer;
  F: TFileTime;
  S: TSystemTime;
begin
  H := CreateFile(PChar(Dir), $0080, 0, nil, OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS, 0);
  if H <> -1 then
  begin
    GetFileTime(H, @F, nil, nil);
    FileTimeToLocalFileTime(F, F);
    FileTimeToSystemTime(F, S);
    Result := SystemTimeToDateTime(S);
    CloseHandle(H);
  end
  else
    Result := -1;
end;

Возвращаемый результат изменился на час после перевода часов smile

Можно ли учесть автоматический переход на летнее время и скорректировать возвращаемый результат?

Это сообщение отредактировал(а) Proloxy - 3.11.2009, 16:25

Proloxy

Дата 3.11.2009, 16:48 (ссылка)

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

Загрузка ...

Новичок

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

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

Вопрос решён, окончательный вариант функции:

Код


function GetDirTime(const Dir: string): TDateTime;
var
  H: Integer;
  F: TFileTime;
  S: TSystemTime;
begin
  H := CreateFile(PChar(Dir), $0080, 0, nil, OPEN_EXISTING,
    FILE_FLAG_BACKUP_SEMANTICS, 0);
  if H <> -1 then
    begin
      GetFileTime(H, @F, nil, nil);
      FileTimeToSystemTime(F, S);
      SystemTimeToTzSpecificLocalTime(nil, S, S);
      Result := SystemTimeToDateTime(S);
      CloseHandle(H);
    end
  else
    Result := -1;
end;

CodeMonkey

Дата 3.11.2009, 21:50 (ссылка)

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

Загрузка ...

Эксперт

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

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

Рекомендую почитать - может оказаться интересным для вас.

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

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

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