delphi - 在 Delphi 中获取本地计算机名称的最佳方法是什么

Question

代码需要兼容D2007和D2009。

<小时/>

我的回答:感谢所有回答的人，我同意:

function ComputerName : String;
var
  buffer: array[0..255] of char;
  size: dword;
begin
  size := 256;
  if GetComputerName(buffer, size) then
    Result := buffer
  else
    Result := ''
end;

Answer 1

Windows API GetComputerName应该管用。它在 windows.pas 中定义。