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

* Patch from Bart Broersma to fix bug ID #36809

Browse Source 
git-svn-id: trunk@44429 -
This commit is contained in:
michael 2020-03-30 09:26:02 +00:00
parent b96109727c
commit 20749e1ee2
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -341,7 +341,7 @@ var
begin
Result:=nil;
if GetKeyInfo(Info) then
if GetKeyInfo(Info) and (Info.NumSubKeys > 0) then
begin
dwLen:=Info.MaxSubKeyLen+1;
GetMem(lpName,dwLen*SizeOf(WideChar));
@ -352,6 +352,8 @@ begin
begin
dwLen:=Info.MaxSubKeyLen+1;
lResult:=RegEnumKeyExW(CurrentKey,dwIndex,lpName,dwLen,Nil,Nil,Nil,Nil);
if lResult=ERROR_NO_MORE_ITEMS then
Break;
if lResult<>ERROR_SUCCESS then
raise ERegistryException.Create(SysErrorMessage(lResult));
if dwLen=0 then
@ -381,7 +383,7 @@ var
begin
Result:=nil;
if GetKeyInfo(Info) then
if GetKeyInfo(Info) and (Info.NumValues > 0) then
begin
dwLen:=Info.MaxValueLen+1;
GetMem(lpName,dwLen*SizeOf(WideChar));
@ -391,6 +393,8 @@ begin
begin
dwLen:=Info.MaxValueLen+1;
lResult:=RegEnumValueW(CurrentKey,dwIndex,lpName,dwLen,Nil,Nil,Nil,Nil);
if lResult=ERROR_NO_MORE_ITEMS then
Break;
if lResult<>ERROR_SUCCESS then
raise ERegistryException.Create(SysErrorMessage(lResult));
if dwLen=0 then