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

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

Другое по теме:

• Определение системной информации
• Как передать при создании нити (Tthread) ей некоторое значение
• Частичная блокировка и разблокировка функций клавиатуры и мышки