请问，怎样用代码通过知道计算机名

Question

getcomputername()
 to try ..

Answer 1

我写的一个函数
function TForm1.uf_computername :string;
var
buf: pchar;
li_size:dword;
begin
  li_size:=128;
  GetMem(buf,128);
  getcomputername(buf,li_size) ;
  result:=buf;
end;

Answer 2

function GetLocalIP:string;
type
    TaPInAddr = array [0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
var
    phe  : PHostEnt;
    pptr : PaPInAddr;
    Buffer : array [0..63] of char;
    I    : Integer;
    GInitData      : TWSADATA;
begin
    WSAStartup($101, GInitData);
    Result := '';
    GetHostName(Buffer, SizeOf(Buffer));
    phe :=GetHostByName(buffer);
    if phe = nil then Exit;
    pptr := PaPInAddr(Phe^.h_addr_list);
    I := 0;
    while pptr^[I] <> nil do begin
      result:=StrPas(inet_ntoa(pptr^[I]^));
      Inc(I);
    end;
    WSACleanup;
end;