Работа с роутингом windows

[Romany4]

В Киргизии до сих пор нет анлимита, и внешний трафик ощутимо бьёт по карману. Поэтому многие пользователи используют примерно такии bat-файлы для ограничения доступа к внешнему интернету:

@SET GATEWAY=xxx.xxx.xxx.xxx // свой ip адрес
@route add 0.0.0.0 mask 0.0.0.0 %GATEWAY%
@route delete 0.0.0.0


@route xxx.xxx.xxx.xxx	mask 255.255.224.0 %GATEWAY%
@route xxx.xxx.xxx.xxx	mask 255.255.255.0 %GATEWAY%
...

Фактически указывается диапазон разрешенных адресов.

А как такое можно осуществить на Delphi?
Хочу для себя написать небольшую програмку, чтобы ограничить доступ к определённым ресурсам, но так как в программировании не силен, прошу указать направление, пускай не подробный код, а хотя бы направление: какие функции, компоненты использовать. Посдкажите, пожалуйста.

[Пепел Феникса]

ну можно создать программно такой батник

[Stilet]

А как такое можно осуществить на Delphi?

А зачем таки, если уже есть БАТник? Запускай его.

[andreibtzt]

Сообщение от Romany4

В Киргизии до сих пор нет анлимита, и внешний трафик ощутимо бьёт по карману. Поэтому многие пользователи используют примерно такии bat-файлы для ограничения доступа к внешнему интернету:

@SET GATEWAY=xxx.xxx.xxx.xxx // свой ip адрес
@route add 0.0.0.0 mask 0.0.0.0 %GATEWAY%
@route delete 0.0.0.0


@route xxx.xxx.xxx.xxx	mask 255.255.224.0 %GATEWAY%
@route xxx.xxx.xxx.xxx	mask 255.255.255.0 %GATEWAY%
...

Фактически указывается диапазон разрешенных адресов.

А как такое можно осуществить на Delphi?
Хочу для себя написать небольшую програмку, чтобы ограничить доступ к определённым ресурсам, но так как в программировании не силен, прошу указать направление, пускай не подробный код, а хотя бы направление: какие функции, компоненты использовать. Посдкажите, пожалуйста.

Poprobuvai tak,
var
t:Tstringlist;
begin
try
t:=tstringlist.create;
t.add('pervaia linia iz .BAT');
t.add('ftaraia linia...');
t.add....
t.savetofile('c:\file.bat');
finally
shellexecute(nil,nil,'open','c:\fil e.bat',nil);
primerna tak

[Romany4]

Stilet,

А зачем таки, если уже есть БАТник? Запускай его.

Дело в том, что таких батников несколько. Иногда ведь бывает нужно выйти в мир, как сейчас, например . Для этого другой батник.
А иногда бывает нужно разрешить доступ только к одному внешнему ресурсу, а значит надо дописать адрес этого ресурса к в первый батник... Бррр... В общем, неудобно это.
Мне нужно было манипулировать изменением маршрутов на лету. То есть програмка висит в трее, кликнешь по значку - откроется окошко, выставишь правило - свернешь и готово.

andreibtzt,

Poprobuvai tak

Я сделал проще

Нашел функцию определения IP (что немаловажно в моем случае) и использовал такой код:

cmd := 'open';
fil := 'route.exe';
dir:= 'C:';
str:= 'add 64.12.0.0 mask 255.255.0.0'+' '+ ip;
par:= pansichar (str);
ShellExecute(0, cmd, fil, par, nil, SW_HIDE);

А в итоге получилось вот:
screen.JPG

Всем спасибо за участие. Тему можно закрыть