paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 08:29:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed TRegistry.ChangeKey

Browse Source 
git-svn-id: trunk@1818 -
This commit is contained in:
florian 2005-11-24 21:44:40 +00:00
parent 446c24ed77
commit ee18b4f6ce
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fcl/inc/registry.pp
View File

@ -207,7 +207,7 @@ end;
function TRegistry.GetBaseKey(Relative: Boolean): HKey;
begin
If Relative Then
If Relative and (CurrentKey<>0) Then
Result := CurrentKey
else
Result := RootKey;

4
fcl/win32/winreg.inc
View File

@ -226,7 +226,9 @@ end;
procedure TRegistry.ChangeKey(Value: HKey; const Path: String);
begin
CloseKey;
FCurrentKey:=Value;
FCurrentPath:=Path;
end;
procedure TRegistry.GetKeyNames(Strings: TStrings);