Язык:
Русский
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.
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.