Function ReadComputerName:string;
{©Drkb v.3(2007): <a href="http://www.drkb.ru" title="www.drkb.ru">www.drkb.ru</a>,
 ®Vit (Vitaly Nevzorov) - nevzorov@yahoo.com}
var
i:DWORD;
p:PChar;
begin
i:=255;
GetMem(p, i);
GetComputerName(p, i);
Result:=String(p);
FreeMem(p);
end;

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение локального имени компьютера
Зависимости: Winsock
Автор: Gua, <a href="mailto:gua@ukr.net">gua@ukr.net</a>, 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;