如何使用getcomputername？

Question

如何使用getcomputername和得到被本机的IP地址？

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  name:string;
  i:cardinal;
begin
  i:=50;
  setlength(name,i);
  getcomputername(pchar(name),i);
  edit1.Text:=name;
end;

Answer 2

/* 取得本机名称 */
Var
  PBuffer: PChar;
  NameLength: LongWord;
begin
  GetMem(PBuffer, MAX_COMPUTERNAME_LENGTH + 1);
  Win32Check(GetComputerName(PBuffer, NameLength));
  ShowMessage(PBuffer);
end;

Answer 3

Var
  PBuffer: PChar;
  NameLength: LongWord;
begin
  GetMem(PBuffer, MAX_COMPUTERNAME_LENGTH + 1);
  Win32Check(GetComputerName(PBuffer, NameLength));
  ShowMessage(PBuffer);
  FreeMem(PBuffer);  //刚才忘记free内存
end;

Answer 4

取得IP就要WinSock2支持了。我就不会了