Как Узнать Имя Компьютера?

[Sascha]

Как узнать имя компьютера?

function TForm1.GettingComputerName: string;
var
  Size: cardinal;
  pStr: PChar;
  Res: boolean;
begin
   pStr := nil;
   Size := MAX_COMPUTERNAME_LENGTH + 1;
   try
      pStr := StrAlloc( Size );
      Res := GetComputerName( pStr, Size );
      if Res then
         Result := StrPas( pStr )
      else
         Result := 'Имя компьютера неизвестно';
   finally
      if pStr <> nil then StrDispose( pStr );
   end;
end;