如何获得一个文件的修改日期? ? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function GetFileModifyDate(FileName: String): TDateTime;//获取文件最后修改日期var FileHandle : THandle; LocalFileTime : TFileTime; DosFileTime : DWORD; LastModifyTime : TDateTime; FindData : TWin32FindData;begin FileHandle := FindFirstFile(PChar(FileName), FindData); if FileHandle <> INVALID_HANDLE_VALUE then begin Windows.FindClose(FileHandle); if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then begin FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime); FileTimeToDosDateTime(LocalFileTime, LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo); LastModifyTime := FileDateToDateTime(DosFileTime); Result:=LastModifyTime; end; end;end; 如何在一个advstringgrid的单元格中插入一个控件panel,并且要在panel中放6个label delphi的ado连接oracle查询出错:“超出打开游标的最大数”,如何解决 使用SHFileOperation复制文件,不想文件进度窗口老是出现在最前面,有没办法解决? 为啥timer控件不断的消耗内存? 求教 如何使用指针指向一个数组的首地址? 如何取得一个数据表中的主键和外键? 请问如何列出系统中所有运行的程序名称(进程名)? 极菜的问题关于 seek()的使用 大家好!我下面的代码错在那里???? 哎,人气越来越差,把分散掉算了!(4) ▲没法再笨的问题了!!字符转换
//获取文件最后修改日期
var FileHandle : THandle;
LocalFileTime : TFileTime;
DosFileTime : DWORD;
LastModifyTime : TDateTime;
FindData : TWin32FindData;
begin
FileHandle := FindFirstFile(PChar(FileName), FindData);
if FileHandle <> INVALID_HANDLE_VALUE then
begin
Windows.FindClose(FileHandle);
if (FindData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY) = 0 then
begin
FileTimeToLocalFileTime(FindData.ftLastWriteTime, LocalFileTime);
FileTimeToDosDateTime(LocalFileTime,
LongRec(DosFileTime).Hi,LongRec(DosFileTime).Lo);
LastModifyTime := FileDateToDateTime(DosFileTime);
Result:=LastModifyTime;
end;
end;
end;