Скачать: CL | DM;

Имя компьютера.   Найти похожие ветки 

← →
Flex ©   (2004-11-06 19:26) [0]

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

---

← →
Piter ©   (2004-11-06 19:38) [1]

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

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

---

← →
Flex ©   (2004-11-06 19:55) [2]

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

---

← →
Anatoly Podgoretsky ©   (2004-11-06 19:57) [3]

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

---

← →
Flex ©   (2004-11-06 20:31) [4]

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

---

← →
Intruder ©   (2004-11-10 12:56) [5]

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

---

← →
Digitman ©   (2004-11-10 13:55) [6]

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


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

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

---

← →
Sicilla   (2004-11-12 19:19) [7]

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;

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c