如何取得计算机名？

Question

如何取得计算机名？就是计算机的网络名称啊？

Answer 1

function GetComputerName: string;
var
  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;
  Size: Cardinal;
begin
  Size := MAX_COMPUTERNAME_LENGTH + 1;
  Windows.GetComputerName(@buffer, Size);
  Result := StrPas(buffer);
end;

Answer 2

var
  ComputerName: PChar;
  Size: DWORD;
begin
  GetMem(ComputerName,255);
  Size:=255;
  GetComputerName(ComputerName,Size);
  ShowMessage('计算机名:'+ComputerName);
end;

Answer 3

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;