mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-22 01:59:34 +02:00
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:
parent
990ef2a038
commit
97bf1790c4
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user