| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ipconfig.exe на Delphi [D6, D7, WinXP]
StarEvil © (2004-04-11 01:06:00)Вот пытался написать ipconfig.exe(из WINXP) на Delphi, но ничего не получилось...Может кто знает как это сделать. Или хотя бы как делать /release и /renew на Delphi, как это делает ipconfig.exe
StarEvil (2004-04-11 22:43:00) [1]Спасибо -=Demon=-, но причем тут этот код....Мне же нужно "обновить" и "отпустить" IP (/renew, /release), а этот код лишь возврашает ip адреса компа....Или я чего то не понимаю...Объясни пожалуйства.
-=Demon=- (2004-04-11 03:22:00) [2]Вот тебе небольшой кусок кода который тебе возвращает все
ip-адреса твоего компа, если у твоего компа один IP-адрес то он тебе его укажет. Заранее предупреждаю это код не мой а Rouse_ так что он обладает всеми АВТОРСКИМИ правами на него (если что заранее перед ним извиняюсь).
{----Вычисление IP-адреса}
WSAStartup(MAKEWORD(2,2), SAData);
GetHostName(name, $FF);
p := GetHostByName(Name);
while (p.h_addr_list^ <> nil) do
begin
ApAddres:=inet_ntoa(PInAddr(p.h_addr_list^)^);
Inc(p.h_addr_list);
end;
{------------------------------------}
Надеюсь ты разберешся.....
| |
