WinAPI: GetComputerName - 获取计算机名称

//声明:
GetComputerName(
  lpBuffer: PChar; {缓冲区}
  var nSize: DWORD {缓冲区大小}
): BOOL; 


//举例:
var
  arr: array[0..MAX_COMPUTERNAME_LENGTH] of char;
  d: DWORD;
begin
  d := SizeOf(arr);
  GetComputerName(arr, d);
  ShowMessage(arr);
end;