用什么函数得到机器名?

Question

用什么函数得到机器名?

Answer 1

读注册表阿localmachine\controlset\....有个machinenam

Answer 2

function TForm1.GetCurComputerName: string;
var
  sBuffer: PChar;
  sSize: Cardinal;
begin
  sSize := 255;
  GetMem(sBuffer, sSize + 1);
  try
    if GetComputerName(sBuffer, sSize) then
      Result:= sBuffer;
  finally
    FreeMem(sBuffer);
  end;
end;

Answer 3

GetComputerName这个函数，，上面给了写法，，，