獲得機器名稱

function GetComputerName : String;
var
  pcComputer : PChar;
  dwCSize    : DWORD;
begin
  dwCSize := MAX_COMPUTERNAME_LENGTH + 1;
  GetMem( pcComputer, dwCSize );
  try
     if Windows.GetComputerName( pcComputer, dwCSize ) then
        Result := pcComputer;
  finally
     FreeMem( pcComputer );
  end;
end;