取得计算机名（delphi ）

//------非常简单------------------------
procedure TForm2.Button2Click(Sender: TObject);
var
  s: Cardinal;
  p: PChar;
begin
  s := MAX_COMPUTERNAME_LENGTH + 1;
  GetMem(p, s);
  if GetComputerName(p,s) then
  begin
    caption := StrPas(p);
  end
  else ShowMessage('取不到计算机名');

  FreeMem(p);  //记得一定要释放
end;