Delphi 获取计算机名

RAD Studio 10.2.3 测试√

---

procedure TForm_Tips.Button_GetComputerNameClick(Sender: TObject);
  {取得计算机名}
  function ComputerName: string;
  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;
begin
  Memo_Log.Lines.Add(ComputerName);
end;

---

一点点笔记，以便以后翻阅。