Реестр

← →
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]

> Внук

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

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

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