mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-12-04 14:27:11 +01:00
22 lines
770 B
ObjectPascal
22 lines
770 B
ObjectPascal
uses
|
|
sysutils;
|
|
var
|
|
ExecutableName: String;
|
|
begin
|
|
ExecutableName:=ExpandFileName(paramstr(0));
|
|
if 3600*24*(now()-FileDateToDateTime(FileAge(ExecutableName)))>7200 then
|
|
begin
|
|
writeln('FileAge returns: ',FileDateToDateTime(FileAge(ExecutableName)));
|
|
writeln('Executable file time and run time differ too much, SysUtils.FileAge buggy?');
|
|
halt(1);
|
|
end;
|
|
|
|
{ test with relative path }
|
|
if 3600*24*(now()-FileDateToDateTime(FileAge(ExtractRelativePath(GetCurrentDir+DirectorySeparator,ExecutableName))))>7200 then
|
|
begin
|
|
writeln('FileAge returns: ',FileDateToDateTime(FileAge(ExecutableName)));
|
|
writeln('Executable file time (relative path) and run time differ too much, SysUtils.FileAge buggy?');
|
|
halt(1);
|
|
end;
|
|
end.
|