| Код |
TStrings* GetRegistryValue(AnsiString KeyName)
{
TStrings *S = new TStringList;
TStrings *tStr = new TStringList;
bool b;
TRegistry *Registry = new TRegistry;
try
{
Registry->RootKey = HKEY_LOCAL_MACHINE;
Registry->Access = KEY_READ;
b = Registry->OpenKey(KeyName,false);
if(b)
{
Registry->GetValueNames(tStr);
for (int i=0;i<=tStr->Count-1;i++)
{
S->Add(Registry->ReadString(tStr->Strings[i]));
}
}
}
__finally
{
delete Registry;
delete tStr;
}
return S;
}
|
|
