Nombre del equipo
 

Saludos, como puedo obtener el nombre del equipo? No quiero el nombre de la sesión iniciada por el usuario sino el nombre del equipo (aquel que sale en propiedades del sistema/nombre del equipo/descripcion del equipo)

Tengo borland delphi, gracias.

aqui esta:

Código Delphi [-]
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; 
 
Ejemplo de llamada:
  
 Label2.Caption:=GetComputerName;

Muchiiiisimas gracias.