Title: Capture the date and time stamp of a file
Question: How to realize the function GetFileTimestamp
Answer:
Capture the date and time stamp of a file
function GetFileTimestamp(aFile: string): string;
var
Handle: integer;
begin
Result := '';
Handle := FileOpen(aFile, 0);
try
Result := DateTimeToStr(FileDateToDateTime(FileGetDate
(Handle)));
finally
FileClose(Handle);
end;
end;