WinAPI: SetComputerName - 更改计算机名称 
//声明:
SetComputerName(
  lpComputerName: PChar {新名称串指针}
): BOOL;				


//举例:
var
  s: string;
begin
  s := 'NewName';
  if SetComputerName(PChar(s)) then
    ShowMessage(s)
  else
    ShowMessage('改名失败');
end;

{改名成功后, 重新启动计算机后才有效}