Форум: "Сети";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

Страницы: 1 вся ветка

Форум: "Сети";
Текущий архив: 2003.09.22;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c