Ich habe Win7 und möchte auf den Schlüssel HKLM\Software\Microsoft\Windows\CurrentVersion\Installer bzw dessen Unterschlüssel zugreifen. Muss da mal was sauber machen und über regedit dauert mit das zu lange.
Problem: Lt. Delphi gibts keine Unterschlüssel. Wenn ich den direkten Zugriff versuche: "System kann die Datei nicht finden". Wenn ich mir Unterschlüssel aufliste, kommen keine (Leere Stringlist)
Warum das?
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
| procedure clean();
var
reg: TRegistry;
sl:TStringList;
begin
reg:= TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
if(reg.OpenKey('\Software\Microsoft\Windows\CurrentVersion\Installer', false)) then begin
sl:=TStringList.Create;
reg.GetKeyNames(sl);
ShowMessage(sl.text);
reg.OpenKey(sl[0],false);
reg.GetKeyNames(sl);
ShowMessage(sl.text);
reg.CloseKey();
reg.GetKeyNames(sl);
ShowMessage(sl.text);
end;
ShowMessage(reg.LastErrorMsg);
end; |
