~~~求教如何更改计算机名，系统Win7，delphiXE~~~~~~~~

[伤影]

目前已经尝试：
SetComputerName，重启后发现只更改了netbios的名字，计算机名字没有更改

于是百度、搜狗、google到处查询，据说SetComputerNameEX可以更改，可惜delphi没有申明，于是找资料自己申明，却提示无法定位错误，我的申明如下：

function SetComputerNameEx(NameType: TComputerNameFormat; lpComputerName: LPCWSTR): BOOL;
stdcall; external 'kernel32.dll' Name 'SetComputerNameEx';

[lyhoo163]

修改计算机名，需要通过修改注册表来完成。 参考代码：

  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;

[lyhoo163]

代码执行后，重启计算机即可。