Da wo der Key offen ist und wo er nicht mit
''
geöffnet wurde, da ist in CurrentKey auch das enthalten, was reingegeben wurde. (der relative Pfad zum RootKey)
An der Stelle, wo du CurrentKey auslesen wolltest, da kannst du auch direkt
l[n]
, bzw.
S
verwenden, welches dem CurrentKey entspricht, innerhalb des nachfolgenden IFs.
Delphi-Quellcode:
S:=l[n];
If OpenKeyReadOnly(S) Then
Begin
If Pos(SearchStr, UpperCase(S)) > 0 Then
LBRegistry.Items.Append(CurrentPath + '#'); // Warum ist das leer???
EnumAllKeys(CurrentKey);
CloseKey;
End;
Delphi-Quellcode:
S:=l[n];
If Pos(SearchStr, UpperCase(S)) > 0 Then
LBRegistry.Items.Append(S + '#'); // Warum ist das leer???
If OpenKeyReadOnly(S) Then
Begin
EnumAllKeys(CurrentKey);
CloseKey;
End;