--- dao/DelphiScanner/Utils.pas	2015/08/27 12:15:05	2684
+++ dao/DelphiScanner/Utils.pas	2015/08/27 12:31:30	2685
@@ -20,6 +20,8 @@
     class function TColorToHex(Color : TColor) : string;
     class function HexToTColor(sColor : string) : TColor;
 
+    class function AdobeReaderExists(): Boolean;
+
 
 
 
@@ -31,7 +33,9 @@
   Types, //TRect ,
   Windows,
   Messages,
-  SysUtils //IntToStr etc
+  SysUtils, //IntToStr etc
+  Registry
+
   ;
 
 {
@@ -161,4 +165,16 @@
 end;
 
 
+class function TUtils.AdobeReaderExists(): Boolean;
+var
+  AReg: TRegistry;
+begin
+  result:= false;
+  AReg := TRegistry.Create;
+  AReg.RootKey := HKEY_LOCAL_MACHINE;
+  if AReg.KeyExists('\SOFTWARE\Adobe\Acrobat Reader') then
+    result:= True;
+  AReg.Free;
+end;
+
 end.