如何获取当前计算机名称？？？

Question

procedure TForm1.Button1Click(Sender: TObject);
var
  nSize:DWord;
  vpChar:pChar;
begin
  GetMem(vpChar,nSize);
  GetComputerName(vpChar,nSize);
  ShowMessage(vpChar);
  FreeMem(vpChar);
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  buf: PChar;
  nSize: DWORD;
begin
  nSize:= MAX_COMPUTERNAME_LENGTH + 1;
  GetMem(buf, nSize);
  try
    if GetComputerName(buf, nSize) then
      ShowMessage(StrPas(buf))
    else ShowMessage('error');
  finally
    FreeMem(buf);
  end;
end;