Code:

Function ReadComputerName:string;

{©Drkb v.3(2007): www.drkb.ru,

®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;

Code:

{ **** 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;