Delphi获取文件日期

hFile := FileOpen(strs[i], fmOpenRead);

if (hFile<0) or (FileGetDate(hFile)=-1) then
begin
ShowMessage('添加文件失败，请重试！');
Exit;
end;

DT := FileDateToDateTime(FileGetDate(hFile));
s := FormatDateTime('yyyy-mm-dd hh:nn:ss', DT);
FileClose(hFile);