Скачать: CL | DM;

TRegistry процедура или функция   Найти похожие ветки 

← →
Cherepovets ©   (2003-04-01 12:59) [0]

Я хотел спросить есть ли такая процедура или функция котороая бы заполняла указанный Strings списком значений текущего ключа

---

← →
Skier ©   (2003-04-01 13:01) [1]

TRegistry.GetValueNames(...) ,

---

← →
Cherepovets ©   (2003-04-01 13:03) [2]

Это параметр

---

← →
Skier ©   (2003-04-01 13:05) [3]

Ппппппереведи !

---

← →
Anatoly Podgoretsky ©   (2003-04-01 13:07) [4]

TRegistry это не процедура и не функция, это класс

---

← →
Palladin ©   (2003-04-01 13:07) [5]

> Cherepovets © (01.04.03 13:03)

чего чего?

---

← →
Cherepovets ©   (2003-04-01 13:07) [6]

Корочее ресстр видел так вот то что ты привел эта процедура считывает имя параметра, а мне надо его значение

---

← →
Skier ©   (2003-04-01 13:08) [7]

"Папы этого ответ помещаю в книжке..."


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;

---

← →
Cherepovets ©   (2003-04-01 13:08) [8]

>>Anatoly Podgoretsky
Я знаю что это класс
Я не о том спросил

---

← →
Cherepovets ©   (2003-04-01 13:13) [9]

Val:TStringList;
i: integer;
begin
Reg := TRegistry.Create;
Val:=TStringList.Create;
...
Reg.GetValueNames(val);
for I:=0 to Val.Count-1 do
begin
Lb.Items.Add(Reg.ReadString(Val.Strings[I]));
end;

Вот и все.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c