Почему процедура перестала выдавать имя компутера?

← →
MegaVolt (2003-07-21 15:56) [0]

procedure TForm1.FormCreate(Sender: TObject);
var
WSAData : TWSAData;
Namebuf : Array[0..255] of char;
begin
WSAStartup($101, WSAData);
GetHostname(namebuf, sizeof(namebuf));
WSACleanup;
Host:=namebuf;
end;

Раньше она исправно выдавала имя компутера на котором запущена а теперь выдаёт имя рабочей группы где находится эта машина.
Как ещё можно узнать имя компутера?

← →
Digitman (2003-07-21 16:00) [1]

> Как ещё можно узнать имя компутера

GetComputerName()

← →
MegaVolt (2003-07-21 16:24) [2]

Большущее спасибо :)

Почему процедура перестала выдавать имя компутера? Найти похожие ветки