Delphi 获得计算机名

{获得计算机版本}
v := windows.GetVersion;
  if v >= $80000000 then
    strNT := 'Not'
  else
    strNT := 'Yes';

{获得计算机名}
function GetComputerName: string;
var
  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  Windows.GetComputerName(@buffer, Size);
  Result := strpas(buffer);
end;