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

Вниз

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

← →
Unholy   (2002-01-26 02:26) [4]

procedure TForm1.SpeedButton1Click(Sender: TObject);
var
Reg: TRegistry;
ts: TStrings;
i: integer;
begin
Reg:=TRegistry.Create;
Reg.RootKey:=HKEY_CURRENT_USER;
Reg.OpenKey("\RemoteAccess\Addresses", False);
ts:=TStringList.Create;
Reg.GetValueNames(ts);
Memo1.Clear;
for i := 0 to ts.Count -1 do
Memo1.Lines.Add(ts.Strings[i]);
Reg.CloseKey;
Reg.Destroy;
end;

так надо? правда это будет считывать все параметры... пох двоичные на двоичные... =))

---

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

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

Наверх

Память: 0.43 MB
Время: 0.003 c