1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
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.
|
