Категории раздела
J2me|java [29]
Basic [6]
Delphix [21]
C+|C++|C# [3]
Pascal [10]
Другие [0]
языки которые не войшли в верхние разделы
Главная » Статьи » Программирования » Delphix

Программно отключить/включить сетевую карту

Для того чтобы разорвать/подключить сетевое подключение понадобится компоненты 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;
Категория: Delphix | Добавил: graimp (21.12.2011)
Просмотров: 680 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Наш опрос
Оцените мой сайт
Всего ответов: 25
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0