/[projects]/dao/DelphiScanner/Utils.pas
ViewVC logotype

Diff of /dao/DelphiScanner/Utils.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2694 by torben, Thu Sep 3 14:31:39 2015 UTC revision 2695 by torben, Thu Sep 3 14:40:49 2015 UTC
# Line 3  unit Utils; Line 3  unit Utils;
3  interface  interface
4  uses  uses
5    Controls,    Controls,
6    Graphics //TColor    Graphics, //TColor
7      IniFiles,
8      Windows //TFileTime
9    ;    ;
10    
11  type  type
# Line 26  type Line 28  type
28    
29      class function CheckUrl(url:string): boolean;      class function CheckUrl(url:string): boolean;
30    
31        class function FileTime2DateTime(FileTime: TFileTime): TDateTime;
32    
33    
34    
35    
# Line 35  implementation Line 39  implementation
39    
40  uses StrUtils,  uses StrUtils,
41    Types, //TRect ,    Types, //TRect ,
   Windows,  
42    Messages,    Messages,
43    SysUtils, //IntToStr etc    SysUtils, //IntToStr etc
44    Registry,    Registry,
# Line 278  begin Line 281  begin
281    
282  end;  end;
283    
284    
285    class function TUtils.FileTime2DateTime(FileTime: TFileTime): TDateTime;
286    var
287       LocalFileTime: TFileTime;
288       SystemTime: TSystemTime;
289    begin
290       FileTimeToLocalFileTime(FileTime, LocalFileTime) ;
291       FileTimeToSystemTime(LocalFileTime, SystemTime) ;
292       Result := SystemTimeToDateTime(SystemTime) ;
293    end;
294    
295    
296  end.  end.
Legend:
Removed from v.2694  
changed lines
  Added in v.2695
  ViewVC Help
Powered by ViewVC 1.1.20