Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Вниз
Реестр Найти похожие ветки
← →
al-al (2006-04-05 08:47) [0]Добрый день. Получить значение параметра в список из реестра это просто, а вот можно ли получить имя самого параметра из указанного ключа?
← →
Palladin © (2006-04-05 09:12) [1]
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
Val:TStringList;
I:Integer;
begin
Reg:=TRegistry.Create;
try
Val:=TStringList.Create;
try
Reg.RootKey:=HKEY_LOCAL_MACHINE; // Section to look for within the registry
if not Reg.OpenKey(Edit1.Text,False) then
ShowMessage("Error opening key")
else
begin
Reg.GetValueNames(Val);
for I:=0 to Val.Count-1 do
begin
ShowMessage(Edit1.Text + Chr(13) +
"has an Entry Called "+Val.Strings[I]+Chr(13)+
"With a Value of "+Reg.ReadString(Val.Strings[I]));
end;
if MessageDlg("Ok to delete the key and lose all these values?"
,Mtinformation,[mbYes,mbNo],0)=mryes then
Reg.DeleteKey(Edit1.Text);
end;
finally
Val.Free;
end;
finally
Reg.Free;
end;
end;
(с) справка
если я конечно правильно тебя понял
← →
al-al (2006-04-05 09:54) [2]нет не то. эта процедура Reg.GetValueNames(Val); выдает значение параметра, а мне нужно получать имя самого параметра из указанного ключа.
← →
Сергей М. © (2006-04-05 10:08) [3]
> эта процедура Reg.GetValueNames(Val); выдает значение параметра
Отсебячина.
Вот цитата из справки:
Returns a string list containing the names of all data values associated with the current key
> мне нужно получать имя самого параметра из указанного ключа
Искомое тобой как раз есть один из элементов списка, возвращенного при GetValueNames()
← →
al-al (2006-04-05 10:22) [4]Palladin, спасибо, работает! Твой пример помог.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.04.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.037 c
