请问如何取计算机名？？

Question

请问如何取计算机名？？

Answer 1

var name:array[0..255]of char;
    size:Cardinal;
begin
  GetComputerName(name,size);
  ShowMessage(name);
end;

Answer 2

得到计算机名和IP： 
uese ...,winsock; 
.... 
function TDataModel.GetComputername:String; 
var 
 str1,IP,IPStr:String; 
 Buffer:Array[1..32] of Char; 
 Host:PHostEnt; 
 WSData:TWSAData; 
begin 
 WSAstartup(2,WSData);  GetHostName(@Buffer[1],32); 
 str1:=Buffer; 
 Host:=GetHostByName(PChar(str1)); 
 Result:=Host.h_name; //下面是IP 
      for i:=1 to 4 do 
        begin 
          Ip:=IntToStr(Ord(Host.h_addr^[i-1])); 
          Ipstr:=Ipstr+Ip; 
          if i<4 then 
            Ipstr:=Ipstr+'.' 
          else 
            IP:=Ipstr; 
        end; 
end;