Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.04.16;
Скачать: CL | DM;

Вниз

Реестр   Найти похожие ветки 

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.045 c
15-1143548588
Alexey V.
2006-03-28 16:23
2006.04.16
Запись действий ( как запись макросов Word/Excel)


2-1144097894
Eugem
2006-04-04 00:58
2006.04.16
Как добавить обработчик события и само событие?


15-1143025453
Vlad Oshin
2006-03-22 14:04
2006.04.16
Помогите с удаленной установкой. TFTP: File not found


2-1144197538
Bratskiy
2006-04-05 04:38
2006.04.16
Аналог Application.ProcessMessages


15-1143053426
Зм1й
2006-03-22 21:50
2006.04.16
Xp Home