SetFTime (процедура) (модуль WinDos)

Язык:
Русский
English

 SetFTime (процедура)   (модуль WinDos)


Устанавливает атрибуты даты и времени у заданного файла.

Объявление

 Procedure SetFTime(Var F; Time : Longint);

Режим

Windows, Real, Protected

Замечания

Коды ошибок передаются в переменную DosError. Единственный возможный код ошибки - 6 (Недопустимый дескриптор файла).

Ограничения

Переменной F должно быть назначено имя и файл должен быть открыт.

Смотри также

Пример

Язык:
Русский
English


 { Пример программы для процедур GetFTime, PackTime, SetFTime и UnpackTime }

uses Dos;

var
  F             : Text;
  H, M, S, Hund : Word;      { Для GetTime}
  FTime         : LongInt;   { Для Get/SetFTime}
  Dt            : TDateTime; { Для Pack/UnpackTime}

function LeadingZero(W : Word) : String;
var
  S : String;
begin
 Str(W : 0, S);
 if Length(S) = 1 then
    S := '0' + S;
  LeadingZero := S;
end;

begin
  Assign(F, 'TEST.TXT');
 GetTime(H, M, S, Hund);
 ReWrite(F);         { Создаём новый файл }
  GetFTime(F, FTime); { Получаем дату создания }
 WriteLn('Файл создан в ', LeadingZero(H), ':',
                            LeadingZero(M), ':', LeadingZero(S));
  UnpackTime(FTime, Dt);
 with Dt do
 begin
   WriteLn('Атрибут времени файла ', LeadingZero(Hour), ':',
               LeadingZero(Min), ':', LeadingZero(Sec));
    Hour := 0;
   Min := 1;
   Sec := 0;
    PackTime(Dt, Ftime);
   WriteLn('Атрибут времени файла установлен на 00:01:00');
   Reset(F); { Открываем файл на чтение }
             { (Вызов Close обновит атрибут времени) }
    SetFTime(F, FTime);
 end;
 Close(F);   { Закрываем файл }
end.
Тэги: SetFTime
| G+
Код для вставки: :: :: :: ::
Поделиться: // //