[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;