Изменить настройки сети

← →
beeper (2003-12-16 19:31) [0]

Хочу написать прогу для смены IP и других сетевых настроек, чтоб руками не лазить.
Кто знает как это можно сделать?
Изменение ключей реестра, отвечающих за эти настройки не помогает, нужно судя по всему что-то еще.
Возможно я не все из необходимых поменял.
Кто занимался подобной проблемой, отзовитесь!

← →
Anatoly Podgoretsky (2003-12-16 20:09) [1]

Это чтото еще называется перезагрузка.

← →
Плаха (2003-12-17 09:01) [2]

А как ты написал чтобы в реестре настройки менялись? Дай код плиз.

← →
beeper (2003-12-17 15:07) [3]

Нет, не перезагрузка, в ХР не нужно перезагружать.
Вот кусок кода
procedure TForm1.Button1Click(Sender: TObject);
var
v_reg : tregistry;
begin
v_reg := tregistry.Create;
v_reg.RootKey := HKEY_LOCAL_MACHINE;
if v_reg.OpenKey("\SYSTEM\ControlSet001\Services\{593630CC-B333-42BC-9BFA-58879283FBDA}\Parameters\Tcpip", False) then
begin
v_reg.WriteString("IPAddress","82.148.26.252");
v_reg.CloseKey;
end;
if v_reg.OpenKey("\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{593630CC-B333-42BC-9BFA-58879283FBDA}", False) then
begin
v_reg.WriteString("IPAddress","82.148.26.252");
v_reg.CloseKey;
end;
if v_reg.OpenKey("\SYSTEM\CurrentControlSet\Services\{593630CC-B333-42BC-9BFA-58879283FBDA}\Parameters\Tcpip", False) then
begin
v_reg.WriteString("IPAddress","82.148.26.252");
v_reg.CloseKey;
end;
if v_reg.OpenKey("\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Interfaces\{593630CC-B333-42BC-9BFA-58879283FBDA}", False) then
begin
v_reg.WriteString("IPAddress","82.148.26.252");
v_reg.CloseKey;
end;

v_reg.Free;
end;

← →
Плаха (2003-12-17 15:42) [4]

Да. Это конечно всё хорошо. но только парамет {593630CC-B333-42BC-9BFA-58879283FBDA} будет только у тебя,а на всех остольных машинах будет другой параметр. А как можно зделать чтобы эту прогу можно былобы использовать на нескольких машинах

← →
Rouse_ (2003-12-17 17:35) [5]

IpHlpApi + MSDN

Желаю успехов

← →
Плаха (2003-12-17 19:11) [6]

А по подробней можно?

← →
имя (2003-12-17 19:18) [7]

Удалено модератором

← →
VideoLord (2003-12-17 21:52) [8]

Тебе сюда:

http://delphi.mastak.ru/cgi-bin/forum.pl?id=1069239219&n=4

+ IP Helper API, как правильно сказал Rouse_ (для установки IP адреса, существующего в текущей сесии, до перезагрузки)

← →
Beeper (2003-12-18 13:37) [9]

Некто Fay сказал что на "Jedi" есть готовый юнит.
Это что за "Jedi" такое, где находится?

← →
Esc (2003-12-21 15:58) [10]

www.delphi-jedi.org

← →
Yaro (2003-12-22 00:57) [11]

Удалено модератором
Примечание: Уже все сказано...

← →
RaPToR_1 (2003-12-22 01:33) [12]

Удалено модератором
Примечание: Флуд...

← →
Yaro (2003-12-22 07:47) [13]

Удалено модератором
Примечание: Оффтоп...

Изменить настройки сети Найти похожие ветки