[Overview][Constants][Types][Procedures and functions][Variables][Index] |
Get file last modification time.
Source position: dosh.inc line 110
procedure GetFTime( |
var f; |
var time: LongInt |
); |
GetFTime returns the modification time of a file. This time is encoded and must be decoded with UnPackTime. F must be a file type, which has been assigned, and opened.
Errors are reported in DosError
|
Set file modification time. |
|
|
Pack DateTime value to a packed-time format. |
|
|
Unpack packed file time to a DateTime value |
Program Example9; uses Dos; { Program to demonstrate the GetFTime function. } Function L0(w:word):string; var s : string; begin Str(w,s); if w<10 then L0:='0'+s else L0:=s; end; var f : File; Time : Longint; DT : DateTime; begin if Paramcount>0 then Assign(f,ParamStr(1)) else Assign(f,'ex9.pp' ); Reset(f); GetFTime(f,Time); Close(f); UnPackTime(Time,DT); Write ('File ',ParamStr(1),' is last modified on '); Writeln (L0(DT.Month),'-',L0(DT.Day),'-',DT.Year, ' at ',L0(DT.Hour),':',L0(DT.Min)); end.