paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 22:59:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@25323 -
This commit is contained in:
paul 2010-05-12 02:14:03 +00:00
parent 990ef2a038
commit 97bf1790c4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/iputils.pas
View File

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