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;

Вот и все.

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