Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

IP адрес [D6, WinME]

Ларри © (2002-09-01 20:36:00)
Как сделать, чтобы по нажатии кнопки в Label появлялся IP адрес
компа на котором работает пользователь, и можно ли его програмно изменить???
К прмеру, надо, чтобы по нажатию кнопки IP адрес изменялся на то числовое значение, которое указано в Edit???

teufel (2002-09-26 13:30:00) [1]
function IP(Name: string; var IP: string): Boolean;
var
WSData : TWSAData;
hostName : array [0..255] of Char;
hostEnt : PHostEnt;
addr : PChar;
begin
try
WSAStartup ($101, WSData);
gethostname (hostName, sizeof (hostName));
StrPCopy(hostName, Name);
hostEnt:=gethostbyname (hostName);
if hostEnt <> nil then
begin
addr := hostEnt^.h_addr^;
IP:=Format ("%d.%d.%d.%d", [byte (addr [0]), byte (addr [1]), byte (addr [2]), byte (addr [3])]);
Result:=True;
end
else
Result:=False
finally
WSACleanup;
end;
end

Stlex (2002-09-11 14:23:00) [2]
В win 2k ключ такой:
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{4EBFFE98-8214-42B6-982D-A8A375CEED66}.Перезагрузки действительно не требует - сам проверял.

Legran (2002-09-11 13:51:00) [3]
Изменить можно через реестр информация там хоронится я точно помню, не помню только, где именно. И перезагрузка не обязательна. Брал я такую книгу "ХАКИНГ" называлась, там читал. ключа не помню хоть убей. ( Ищущий, да обрящет)

Song (2002-09-01 21:19:00) [4]
Перезагрузка нужна, чтобы изменить.
А узнать - пример в хэлпе.

Наверх

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