paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 02:30:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Fix for regclosekey problem.

Browse Source 
git-svn-id: trunk@8884 -
This commit is contained in:
marco 2007-10-21 13:58:06 +00:00
parent 89c07a2aef
commit 1cfce12c09
3 changed files with 25 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
packages/fcl-registry/src/registry.pp
View File

@ -101,6 +101,7 @@ type
function ValueExists(const Name: string): Boolean;
procedure CloseKey;
procedure CloseKey(key:HKEY);
procedure GetKeyNames(Strings: TStrings);
procedure GetValueNames(Strings: TStrings);
procedure MoveKey(const OldName, NewName: string; Delete: Boolean);
@ -505,7 +506,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
else
@ -534,7 +535,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
else
@ -563,7 +564,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
else
@ -592,7 +593,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
else
@ -638,7 +639,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
else
@ -667,7 +668,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
else
@ -704,7 +705,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
end;
@ -728,7 +729,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
end;
@ -752,7 +753,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
end;
@ -776,7 +777,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
end;
@ -800,7 +801,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
end;
@ -824,7 +825,7 @@ begin
SetCurrentKey(CurKey);
end;
finally
regclosekey(sectkey);
closekey(sectkey);
end;
end
end;

5
packages/fcl-registry/src/winreg.inc
View File

@ -258,6 +258,11 @@ begin
end
end;
procedure TRegistry.CloseKey(key:HKEY);
begin
RegCloseKey(CurrentKey)
end;
procedure TRegistry.ChangeKey(Value: HKey; const Path: String);
begin
CloseKey;

7
packages/fcl-registry/src/xregreg.inc
View File

@ -239,3 +239,10 @@ begin
TXMLRegistry(FSysData).Flush;
TXMLRegistry(FSysData).SetRootKey(TXMLRegistry(FSysData).RootKey);
end;
procedure TRegistry.CloseKey(key:HKEY);
begin
TXMLRegistry(FSysData).Flush;
TXMLRegistry(FSysData).SetRootKey(TXMLRegistry(FSysData).RootKey);
end;