Nombre del equipo

[jorgegetafe]

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.

[maco2007]

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;

[jorgegetafe]

Muchiiiisimas gracias.