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

Code:

{ **** UBPFD ***************

>> Получение локального имени компьютера

Зависимости: Winsock

Автор:       Gua, Этот адрес электронной почты защищён от спам-ботов. У вас должен быть включен JavaScript для просмотра., Copyright:   Gua

***************************************************** }

function GetLocalName: string;

var

WSAData: TWSAData;

Namebuf: array[0..255] of char;

begin

WSAStartup($101, WSAData);

GetHostname(namebuf, sizeof(namebuf));

Result := NameBuf;

WSACleanup;

end;