Форум: "Сети";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Вниз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
Страницы: 1 вся ветка
Форум: "Сети";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.149 c