/[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 2684 by torben, Wed Aug 26 19:52:38 2015 UTC revision 2685 by torben, Thu Aug 27 12:31:30 2015 UTC
# Line 20  type Line 20  type
20      class function TColorToHex(Color : TColor) : string;      class function TColorToHex(Color : TColor) : string;
21      class function HexToTColor(sColor : string) : TColor;      class function HexToTColor(sColor : string) : TColor;
22    
23        class function AdobeReaderExists(): Boolean;
24    
25    
26    
27    
# Line 31  uses StrUtils, Line 33  uses StrUtils,
33    Types, //TRect ,    Types, //TRect ,
34    Windows,    Windows,
35    Messages,    Messages,
36    SysUtils //IntToStr etc    SysUtils, //IntToStr etc
37      Registry
38    
39    ;    ;
40    
41  {  {
# Line 161  begin Line 165  begin
165  end;  end;
166    
167    
168    class function TUtils.AdobeReaderExists(): Boolean;
169    var
170      AReg: TRegistry;
171    begin
172      result:= false;
173      AReg := TRegistry.Create;
174      AReg.RootKey := HKEY_LOCAL_MACHINE;
175      if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then
176        result:= True;
177      AReg.Free;
178    end;
179    
180  end.  end.
Legend:
Removed from v.2684  
changed lines
  Added in v.2685
  ViewVC Help
Powered by ViewVC 1.1.20