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

Author: Vit

Source: Vingrad.ru https://forum.vingrad.ru

Function ReadComputerName:string;

var
  i:DWORD; 
  p:PChar;
begin
  i:=255;
  GetMem(p, i);
  GetComputerName(p, i);
  Result:=String(p);
  FreeMem(p);
end;

Вариант 2:

Author: Gua, gua@ukr.net

Source: https://www.swissdelphicenter.ch

Date: 23.07.2002

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