IP адрес

← →
Ларри (2002-09-01 20:36) [0]

Как сделать, чтобы по нажатии кнопки в Label появлялся IP адрес
компа на котором работает пользователь, и можно ли его програмно изменить???
К прмеру, надо, чтобы по нажатию кнопки IP адрес изменялся на то числовое значение, которое указано в Edit???

← →
Song © (2002-09-01 21:19) [1]

Перезагрузка нужна, чтобы изменить.
А узнать - пример в хэлпе.

← →
Legran (2002-09-11 13:51) [2]

Изменить можно через реестр информация там хоронится я точно помню, не помню только, где именно. И перезагрузка не обязательна. Брал я такую книгу "ХАКИНГ" называлась, там читал. ключа не помню хоть убей. ( Ищущий, да обрящет)

← →
Stlex (2002-09-11 14:23) [3]

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

← →
teufel (2002-09-26 13:30) [4]

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

IP адрес Найти похожие ветки