ipro: don't open registry key in the write mode for systems with read-only access (issue #0016453) by patch of Žilvinas Ledas

git-svn-id: trunk@25323 -
This commit is contained in:
paul 2010-05-12 02:14:03 +00:00
parent 990ef2a038
commit 97bf1790c4

View File

@ -2760,7 +2760,7 @@ begin
try
Reg := TRegistry.Create;
Reg.RootKey := HKEY_CLASSES_ROOT;
if Reg.OpenKey(Ext, False) then
if Reg.OpenKeyReadOnly(Ext) then
Result := Reg.ReadString('Content Type');
finally
Reg.CloseKey;