Descobrir o nome do computador pelo delphi?

[Carlinhos]

como descobrir o nome do pc pelo delphi?

[Denis Courcy]

como descobrir o nome do pc pelo delphi?

Oi, 'Carlinhos' !

Teste este.

function pubNomeComputador : string;
const
   MAX_COMPUTER_LENGTH = 30;
var
   pNome : PChar;
   len : DWord;
begin
   try
      len := MAX_COMPUTER_LENGTH + 1;
      GetMem(pNome, len);
      if GetComputerName(pNome, len) then
         Result := pNome
      else
         Result := 'Não foi possível obter o nome deste computador!';
   finally
      FreeMem(pNome, len);
   end;
end;