procedure TForm1.FormCreate(Sender: TObject);//窗体初始化var iFileHandle: Integer; FileTime:TDateTime; Days:Integer; Hours:Integer; Minutes:Integer; Seconds:Integer;begin DataPath := ExtractFilePath(paramstr(0))+'data'; if FileExists(DataPath+'Local.rar') then begin iFileHandle:=FileOpen(DataPath+'LocalDataBase.rar', fmOpenRead); FileTime := FileDateToDateTime(FileGetDate(iFileHandle)); FileClose(iFileHandle); Days := DaysBetween(now,FileTime); Hours:=HoursBetween(now,FileTime)-(Days * 24); Minutes := MinutesBetween(now,FileTime)-((Days * 24 + Hours) * 60); Seconds := SecondsBetween(now,FileTime)-(((Days * 24 + Hours)*60+Minutes) * 60); Label1.Caption:='最后修改时间:'+ IntToStr(Days)+' 天'+ IntToStr(Hours)+' 小时'+ IntToStr(Minutes)+' 分'+ IntToStr(Seconds)+' 秒之前'; end;end;