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

← →
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()

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

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