一个个的比较呀, 取得文件的最后修改时间 function GetFileModify(FileName:string):TDateTime; //取得文件的最后修改时间 var sr: TSearchRec; DT:Tdatetime; FileTime: TFileTime; DFT: DWORD; begin if findfirst(FileName,faanyfile,sr)=0 then begin FileTimeToLocalFileTime(SR.FINDdata.ftLastWriteTime, FileTime); FileTimeToDosDateTime(FileTime, LongRec(DFT).HI, LongRec(DFT).LO); DT:=filedatetodatetime(dft); Result:=DT; end; end;比效法把最新的取出来就可以了~
取得文件的最后修改时间
function GetFileModify(FileName:string):TDateTime;
//取得文件的最后修改时间
var
sr: TSearchRec;
DT:Tdatetime;
FileTime: TFileTime;
DFT: DWORD;
begin
if findfirst(FileName,faanyfile,sr)=0 then
begin
FileTimeToLocalFileTime(SR.FINDdata.ftLastWriteTime, FileTime);
FileTimeToDosDateTime(FileTime, LongRec(DFT).HI, LongRec(DFT).LO);
DT:=filedatetodatetime(dft);
Result:=DT;
end;
end;比效法把最新的取出来就可以了~