1,184
社区成员
![](https://csdnimg.cn/release/cmsfe/public/img/topic.427195d5.png)
![](https://csdnimg.cn/release/cmsfe/public/img/me.40a70ab0.png)
![](https://csdnimg.cn/release/cmsfe/public/img/task.87b52881.png)
![](https://csdnimg.cn/release/cmsfe/public/img/share-circle.3e0b7822.png)
RegRootKey:=TRegistry.Create;
RegRootKey.RootKey := HKEY_LOCAL_MACHINE;
try
PCName:=Trim(Edit1.Text);
if regRootKey.OpenKey('\SYSTEM\ControlSet001\Control\ComputerName\ComputerName\', True) then
begin
regRootKey.WriteString('ComputerName',PCName);
if regRootKey.OpenKey('\SYSTEM\ControlSet001\Services\Tcpip\Parameters', True) then
begin
regRootKey.WriteString('NV Hostname',PCName);
if regRootKey.OpenKey('\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName', True) then
begin
regRootKey.WriteString('ComputerName',PCName);
if regRootKey.OpenKey('\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters', True) then
begin
regRootKey.WriteString('NV Hostname',PCName);
end;
end;
end;
end;
finally
end;