Delphi調用WinAPI: SetComputerName - 更改計算機名稱

//聲明:

SetComputerName(
　lpComputerName: PChar {新名稱串指針}
): BOOL;

//舉例:

var
　s: string;
begin
　s := 'NewName';
　if SetComputerName(PAnsiChar(s)) then
　　ShowMessage(s)
　else
　　ShowMessage('改名失敗');
end;

{改名成功後, 重新啟動計算機後才有效}