Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

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

← →
don_dampster ©   (2002-06-19 09:01) [0]

Как записать своё значение в реестр? Как прочитать значение ... ?

---

← →
Внук ©   (2002-06-19 09:03) [1]

TRegistry F1

---

← →
AuduA6   (2002-06-19 10:36) [2]

-----ЗАПИСЬ------
procedure TForm1.Button1Click(Sender: TObject);
var
tmp :Tregistry;
begin
tmp:= tregistry.Create;
tmp.Access:=KEY_WRITE;
tmp.RootKey :=HKEY_CURRENT_USER;
TMP.OpenKey("REP",TRUE);
TMP.WriteString("RBA", Edit1.Text);
tmp.CloseKey;
tmp.free;
end;
-----ЧТЕНИЕ------
procedure TForm1.Button2Click(Sender: TObject);
var
Registry: TRegistry;
v,S: string;
begin
Registry:=TRegistry.Create;
Registry.RootKey:=HKEY_CURRENT_USER;
Registry.OpenKey("REP",False);
Edit2.Text:=Registry.ReadString("RBA");
Registry.Free;

---

← →
Poirot ©   (2002-06-19 11:13) [3]

> Внук

согласен....:)

---

← →
Producer ©   (2002-06-19 12:59) [4]

Можно еще для полного порядка снабдить все это конструкциями
try - finally и Ok.

---

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

Текущий архив: 2002.07.01;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.008 c