Форум: "Основная";
Текущий архив: 2002.07.01;
Скачать: [xml.tar.bz2];
ВнизРеестр Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.024 c