Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2003.04.14;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.007 c
9-43976
Phantom 13
2002-11-15 07:54
2003.04.14
Вопрос сохранения ресурсов...


1-44235
Sectey
2003-04-02 09:04
2003.04.14
Координаты иконки в трее


1-44197
MachmuD
2003-04-01 09:44
2003.04.14
Помогите с алгоритмом для нарисования синусоиды через Canvas


14-44372
sniknik
2003-03-25 22:55
2003.04.14
Куда подевалось


1-44231
RIV_
2003-04-02 01:06
2003.04.14
Как сдвинуть Desktop





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский