Объявляю ветку константой:
- Код: Выделить всё
const
MyKey = '\SOFTWARE\Microsoft\Windows Portable Devices\Devices'
И делаю следующее:
- Код: Выделить всё
var
Str: TStringList;
Reg: TRegistry;
begin
Str := TStringList.Create;
Reg := TRegistry.Create;
Reg.RootKey:=HKEY_LOCAL_MACHINE;
try
if Reg.OpenKeyReadOnly(MyKey) then
begin
Reg.GetKeyNames(Str);
Str.SaveToFile('C:\Devices.txt');
end;
finally
Reg.CloseKey;
Str.Free;
end;
end;
и в Str - Count = 0. При этом, если скормить ветку \SOFTWARE\Microsoft\Windows Portable Devices - то GetKeyNames отрабатывает корректно.
Win 7 x64 Ultimate + Lazarus 1.0.14 + FPC 2.6.2
Это только у меня такой глюк, или же это глюк так сказать всея Lazarus? И главное - как бы это дело всё же считать?
