如何在 macOS 上获取计算机的名称？答案

【问题标题】：How to obtain the computer's name on macOS?如何在 macOS 上获取计算机的名称？
【发布时间】：2022-07-14 06:22:21
【问题描述】：

如何使用 Delphi 在 macOS 上获取计算机名称？

我正在尝试在我的应用程序中自动获取并显示计算机的名称，但似乎无法让它在 macOS 上运行。我让它在 Windows 上运行，但无法在 macOS 上运行。

也许这个库包含你需要的东西：github.com/DelphiWorlds/Kastri
我对 macOS 一无所知（我一生从未使用过 Apple 产品！）但它肯定提供了一些简单的 API 函数来获取计算机名称，例如 Win32 GetComputerName。

【解决方案1】：

此代码将检索 macOS 上的计算机名称：

uses
  Macapi.Foundation, Macapi.Helpers;

function GetComputerName: string;
begin
  Result := NSStrToStr(TNSHost.Wrap(TNSHost.OCClass.currentHost).localizedName);  
end;

如果您追求跨平台的方式，请参阅GetDeviceName 方法（以这种方式命名，因为它也处理移动设备），这里：

https://github.com/DelphiWorlds/Kastri/blob/master/Core/DW.OSDevice.pas

【讨论】：

【解决方案2】：

这个库支持 WIN 和 linux，它可能适用于 macOS ...

https://github.com/RRUZ/tsmbios

【讨论】：

【解决方案3】：

在 Posix.UniStd 单元中使用 gethostname()

【讨论】：

Code example as picture with minor typos。
您的答案可以通过额外的支持信息得到改进。请edit 添加更多详细信息，例如引用或文档，以便其他人可以确认您的答案是正确的。你可以找到更多关于如何写好答案的信息in the help center。