| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Имя компьютера. [D6, Win95/98, WinME, NT4, Win2k, WinXP]

Flex ©   (2004-11-06 19:26:00) 

Как узнать имя компьютера( не IP, а имя(название))?

---

Sicilla   (2004-11-12 19:19:00) [1]

function GetIPName(Add: string): string;
begin
    addr := inet_addr( pchar(add) ); // Эта ф-ция преобразует IP из текстового вида в cardinal сразу в сетевом порядке байт
    Host := gethostbyaddr(@addr,SizeOf(Addr),AF_inet);
    if Host <> nil then
            Result := Host.h_name
     else
            Result := '<unknown>';
end;

Удачи, и не обращай внимания, здесь любят потрепаться

---

Digitman   (2004-11-10 13:55:00) [2]

> Flex ©   (06.11.04 20:31) [4]
> Ни за что бы не догадался!!!!


шишек еще много, знать, набъешь ..

ибо дотумкать, что в станд. Справке следует искать нечто в виде Get(получить, узнать нечто) Computer(компьютер) Name(bvz) - это чрезвычайно сложно.

---

Intruder   (2004-11-10 12:56:00) [3]

Интересный вопрос, а вот интереснее было бы узнать по NetBios имени IP, MAC адрес, через консоль это делатся очень лечко, а вот как вытащить это в делфи...

---

Flex   (2004-11-06 20:31:00) [4]

Ни за что бы не догадался!!!!

---

Anatoly Podgoretsky   (2004-11-06 19:57:00) [5]

Не поверишь, но это GetComputerName

---

Flex   (2004-11-06 19:55:00) [6]

на котором прга запущена.

---

Piter   (2004-11-06 19:38:00) [7]

Какого блин компьютера?

P.S. Ну надо так вопросы формулировать...

---

Наверх