取得计算机的名称函数

function GetComputerNameX: string;
{*******************************************************
描述:取得计算机的名称函数

TODO:取得计算机的名称函数
*******************************************************}
var
  i: Cardinal;
  cBuff: PChar;
begin
  GetMem(cBuff, 128);
  i := 128;
  GetComputerName(cBuff, i);
  Result := StrPas(cBuff);
end;