[ikot]

Можно ли средствами Delphi отключить или заблокировать на время доступ в Internet отдельного компьютера в локальной сети?

[DungeonLords]

А доступ в интернет осуществляется через модем или без него?

[ikot]

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

А доступ в интернет осуществляется через модем или без него?

Без модема...

[DSL88]

Отключай у него DNS, Выдерни провод из локалки...)))

[DungeonLords]

Сделаем так(может не работать)

Код:

VAR con_str:PChar;
begin
con_str:=PChar({Имя соединения}+'/DISCONNECT');
ShellExecute(Self.Handle,'open','rasdial.exe', con_str,'C:',SW_ShowMinNoActive);
end;

[ikot]

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

Сделаем так(может не работать)

Код:

VAR con_str:PChar;
begin
con_str:=PChar({Имя соединения}+'/DISCONNECT');
ShellExecute(Self.Handle,'open','rasdial.exe', con_str,'C:',SW_ShowMinNoActive);
end;

А если имя подключения не известно?