WinAPI: SetComputerName - 更改计算机名称

//声明:

SetComputerName(

  lpComputerName: PChar {新名称串指针}

): BOOL;				


 
   




//举例:

var

  s: string;

begin

  s := 'NewName';

  if SetComputerName(PChar(s)) then

    ShowMessage(s)

  else

    ShowMessage('改名失败');

end;



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