VPF::Изменение даты создания файла

Случайный посетитель

Дата 3.11.2005, 12:57 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Дело в том, что эти функции требуют Handle открытоко файла.

Вот пример из рабочего проекта:

Код


var
  FCreated,FChanged,FAccessed: TFileTime;
  SrcName,DestName: String;
  FS,FD: HFile;
begin
//...

    FS := CreateFile(PChar(SrcName),GENERIC_READ,
      FILE_SHARE_WRITE+FILE_SHARE_READ,
      nil,
      OPEN_EXISTING,
      FILE_ATTRIBUTE_NORMAL,
      0);

//...

    FD := CreateFile(PChar(DestName),GENERIC_READ+GENERIC_WRITE,
      0,
      nil,
      CREATE_ALWAYS,
      0,
      0);
//...

    if not GetFileTime(FS,@FCreated,@FChanged,@FAccessed) then
    begin
  //    FDirBackup.SendMsg(WM_MErrReadFromFile,SrcNAme);
    end;
    if not SetFileTime(FD,@FCreated,@FChanged,@FAccessed) then
    begin
  //    FDirBackup.SendMsg(WM_MErrWriteToFile,DestName);
    end;

Alexeis

Дата 3.11.2005, 13:12 (ссылка)

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

Загрузка ...

Амеба

Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

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

Здрасте а reset что делает smile

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

Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать

Wizardb

Дата 4.11.2005, 10:39 (ссылка)

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

Загрузка ...

Новичок

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

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

alexeis1 , Случайный посетитель : Ребят, спасибо большое! Оба примера работают отлично! smile

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