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

Автор: Gua

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение локального имени компьютера

Зависимости: Winsock
Автор:       Gua, gua@ukr.net, ICQ:141585495, Simferopol
Copyright:   Gua
Дата:        23 июля 2002 г.
***************************************************** }

function GetLocalName: string;
var
  WSAData: TWSAData;
  Namebuf: array[0..255] of char;
begin
  WSAStartup($101, WSAData);
  GetHostname(namebuf, sizeof(namebuf));
  Result := NameBuf;
  WSACleanup;
end;