获取计算机名称的函数

function GetCompName: string;
var
  lsComputerName: PChar;
  liSize: Cardinal;
begin
  liSize := MAX_COMPUTERNAME_LENGTH + 1;
  GetMem(lsComputerName, liSize);
  GetComputerName(lsComputerName, liSize);   // 获得计算机名称
  Result := lsComputerName;
end;