Delphi заготовки

{ **** UBPFD *********** by Naumov Denis http://netsoftware.ucoz.ru ****
http://netsoftware.ucoz.ru/news/
poluchenie_lokalnogo_imeni_kompjutera_getlocalname/2012-07-27-98
>> Получение локального имени компьютера
 
Зависимости: Winsock {uses 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;