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 |
|
|
33 |
Types, //TRect , |
Types, //TRect , |
34 |
Windows, |
Windows, |
35 |
Messages, |
Messages, |
36 |
SysUtils //IntToStr etc |
SysUtils, //IntToStr etc |
37 |
|
Registry |
38 |
|
|
39 |
; |
; |
40 |
|
|
41 |
{ |
{ |
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. |