отключение "подключения по локальной сети"

[photozaz]

Подскажите, как программно можно выполнить отключение "подключения по локальной сети" ??

[rpy3uH]

здесь написано

[Pr1meEX]

Тебе надо скачать библиотеки NTset
функция на выключение (trytooff=true)/Перезагрузку или включение(trytooff=False)

function OnOffNetConnection(NTF:TNTFirewall;TryToOff:Boolean):Boolean;
var Luck:boolean;
    i:integer;
begin
luck:=false;
  With NTF.Connections do
  begin
    for i:=0 to Count-1 do
    begin
      if Items[i].Status<>0 then
      begin
      Items[i].Disconnect;
      luck:=true;
      end;
    end;
  end;
  With NTF.Connections do
  begin
    for i:=0 to Count - 1 do
    begin
      if (Items[i].Status=0)and(not(TryToOff)) then
      begin
      Items[i].Connect;
      luck:=true;
      end;
    end;
  end;
OnOffNetConnection:=luck;
end;