Модуль Dos

GetFTime - Возвращает дату и время последней записи в файл.


Объявление:
Procedure GetFTime(Var F; Var Time : Longint);
Режим:
Windows, Real, Protected
Замечания:

Файловой переменной F должен быть назначен типизированный, нетипизированный или текстовый файл, который должен быть открыт.

Время, полученной в переменной Time может быть распаковано с помощью процедуры UnpackTime.
Пример: view source

print
?01 { Пример программы для процедур GetFTime, PackTime, SetFTime и UnpackTime }
02
03 Uses Dos;
04
05 Var F : Text;
06 H, M, S, Hund : Word; { Для GetTime}
07 FTime : Longint; { для Get/SetFTime}
08 Dt : TDateTime; { Для Pack/UnpackTime}
09
10 Function LeadingZero(W : Word) : String;
11 Var S : String;
12 Begin
13 Str(W:0, S);
14 If Length(S) = 1 Then S:='0'+S;
15 LeadingZero:=S;
16 End;
17
18 Begin
19 Assign(F, 'TEST.TXT');
20 GetTime(H, M, S, Hund);
21 ReWrite(F); { Создаем новый файл }
22 GetFTime(F, FTime); { Получаем дату создания }
23 WriteLn('Файл создан в ', LeadingZero(H), ':',
24 LeadingZero(M), ':', LeadingZero(S));
25 UnpackTime(FTime, Dt);
26 With Dt Do
27 Begin
28 WriteLn('Атрибут времени файла ', LeadingZero(Hour), ':',
29 LeadingZero(Min), ':', LeadingZero(Sec));
30 Hour:=0;
31 Min:=1;
32 Sec:=0;
33 PackTime(Dt, Ftime);
34 WriteLn('Атрибут времени файла установлен на 00:01:00');
35 Reset(F); { Открываем файл на чтение }
36 { (Вызов Close обновит атрибут времени) }
37 SetFTime(F, FTime);
38 End;
39 Close(F); { Закрываем файл }
40 End.