--- dao/DelphiScanner/Utils.pas	2015/09/03 14:31:39	2694
+++ dao/DelphiScanner/Utils.pas	2015/09/03 14:40:49	2695
@@ -3,7 +3,9 @@
 interface
 uses
   Controls,
-  Graphics //TColor
+  Graphics, //TColor
+  IniFiles,
+  Windows //TFileTime
   ;
 
 type
@@ -26,6 +28,8 @@
 
     class function CheckUrl(url:string): boolean;
 
+    class function FileTime2DateTime(FileTime: TFileTime): TDateTime;
+
 
 
 
@@ -35,7 +39,6 @@
 
 uses StrUtils,
   Types, //TRect ,
-  Windows,
   Messages,
   SysUtils, //IntToStr etc
   Registry,
@@ -278,4 +281,16 @@
 
 end;
 
+
+class function TUtils.FileTime2DateTime(FileTime: TFileTime): TDateTime;
+var
+   LocalFileTime: TFileTime;
+   SystemTime: TSystemTime;
+begin
+   FileTimeToLocalFileTime(FileTime, LocalFileTime) ;
+   FileTimeToSystemTime(LocalFileTime, SystemTime) ;
+   Result := SystemTimeToDateTime(SystemTime) ;
+end;
+
+
 end.