[Alliance]

Otra forma de obtener el nombre de la PC es.

Código Delphi [-]
function GetComputerName: String;
var
  Computer: PChar;
  Size: DWORD;
  begin
   GetMem(Computer, Size);
   Size := MAX_COMPUTERNAME_LENGTH + 1;
    try
      if Windows.GetComputerName(Computer, Size) then
         Result := computer;
    finally
     FreeMem(Computer);
  end;
end;