怎样取得本地机器在网络上的名称？(局域网内)

Question

怎样取得本地机器在网络上的名称？(局域网内)

Answer 1

var
   CNameBuffer : PChar;
  fl_loaded : Boolean;
  CLen : ^DWord;begin    GetMem(CNameBuffer,255);
    New(CLen);
    CLen^:= 255;    fl_loaded := GetComputerName(CNameBuffer,CLen^);    if fl_loaded then
      ComputerName := StrPas(CNameBuffer)
    else
      ComputerName := 'Unkown';    FreeMem(CNameBuffer,255);
    Dispose(CLen);end;

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  s : string;
  l : Cardinal;
begin
  SetLength(s, 255);
  l := 255;
  GetComputerName(PChar(s), l);
  SetLength(s, l);
  ShowMessage(s);
end;

Answer 3

网络上的名称也就是你的机器名ComputerName。