reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',
false);
reg.GetKeyNames(tmp);
tmp.SaveToStream(str); <<-- here app stop an have error, why??
lbApp.Items.LoadFromStream(str);
if I run it i have an error:
---------------------------
Project1
---------------------------
Access violation at address 0042577D in module 'Project1.exe'. Read of
address 0000BD55.
---------------------------
OK
---------------------------
Can some one help me??
Sorry for my English
I don't test it but i wrote on other group and i have working code:
reg := TRegistry.Create;
reg.RootKey := HKEY_LOCAL_MACHINE;
reg.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall',
false);
reg.GetKeyNames(lbApp.Items);
---
thx for help