Программно отключить/включить сетевую карту
Автор: 
Tweet
Для того чтобы разорвать/подключить сетевое подключение понадобится компоненты NTSet. Скачать его можно тут (для Delphi 7), либо на сайте www.online-admin.com.
Итак, скачиваем и устанавливаем. Выкладываем компонент NTFirewall на форму и две кнопки (TButton). Текст на первой меняем на "Отключить", для второй - "Подключить".
По событию onClick на кнопку отключить:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
With NTFirewall1.Connections do
begin
for i:=0 to Count - 1 do
begin
Items[i].Disconnect;
ShowMessage('Отключено ' + Items[i].DeviceName);
end;
end;
end;
Аналогично и для второй кнопки:
procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
With NTFirewall1.Connections do
begin
for i:=0 to Count - 1 do
begin
Items[i].Connect;
ShowMessage('Подключено ' + Items[i].DeviceName);
end;
end;
end;
Просмотров: 10164
|
2. Арти
Что не понятно немного, а откуда взялась переменная count, она же даже не объявлена?
Я просто не могу понять можно ли как то сощетать кол-во соединений Ответ: Она взялась из этой конструкции
With NTFirewall1.Connections do Т.е. это тоже самое что и NTFirewall1.Connections.Count |
|
1. Михаил
очень интересный код)) а главное короткий очень)))) по хоже это благодаря компоненту))) спасяб огромное)) воспользоваться смог, работает.... но только не сетевую карту тут отключают а сетевые подключениЯ))) но всерано работает))
|
Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.
Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.
Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.