Скачать: CL | DM;

Как открыть ключь реестра при помощи переменной ?   Найти похожие ветки 

← →
slivka   (2003-11-01 22:02) [0]

var Change_IP: string;
begin
...
...
reg.OpenKey("SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\Change_IP",true);
...
...
end;

В переменную Change_IP передается значение:
{A516FD87-4866-401B-953D-19873C25954A}, взятое из параметра -"NetCfgInstanceId".
но вместо того чтобы открыть ключь:
reg.OpenKey("SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{A516FD87-4866-401B-953D-19873C25954A}, ",true);
Создается новый с именем Change_IP.
Как сделать что-бы подставлялось значение переменной ?

---

← →
Cobalt ©   (2003-11-01 22:55) [1]

Заводите новую переменную, и в ней уже формируйте строку.
Или так:

Change_IP:="SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\"+Change_IP;
reg.OpenKey(PChar(Change_IP),true);

---

← →
slivka   (2003-11-02 00:17) [2]

Не получилось. А целиком все выглядит так:

procedure TForm1.Button2Click(Sender: TObject);
var
Change_IP: string;
reg: TRegistry;
begin
reg:=TRegistry.Create;
reg.RootKey:=HKEY_LOCAL_MACHINE;
reg.OpenKey("SYSTEM\ControlSet001\Control\Class\{4D36E972-E325-11CE-BFC1-08002bE10318}\0001",false);// открываем ключь.
Change_IP := reg.ReadString("NetCfgInstanceId");//присваеваем значение переменной
label2.Caption := Change_IP; // это так временно.
Change_IP:="SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\"+Change_IP;
reg.OpenKey(PChar(Change_IP),true);
reg.WriteString("test",ComboBox2.Text);
reg.CloseKey;
reg.free;
end;

Наверное я где-то ошибся.

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.02 c