Подписаться на RSS рассылку
Главная » Статьи по Delphi » Интернет и сети » Программно отключить/включить сетевую карту

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

Автор: Борисов Сергей

Для того чтобы разорвать/подключить сетевое подключение понадобится компоненты 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;

Просмотров: 9427

Обсудить на форуме

0   Спам
(06.08.2012)
2. Арти
Что не понятно немного, а откуда взялась переменная count, она же даже не объявлена?
Я просто не могу понять можно ли как то сощетать кол-во соединений
Ответ: Она взялась из этой конструкции
With NTFirewall1.Connections do

Т.е. это тоже самое что и NTFirewall1.Connections.Count

0   Спам
(30.10.2011)
1. Михаил
очень интересный код)) а главное короткий очень)))) по хоже это благодаря компоненту))) спасяб огромное)) воспользоваться смог, работает.... но только не сетевую карту тут отключают а сетевые подключениЯ))) но всерано работает))


Имя *:
Email:


Код *:

Copyright © 2008-2016 Программирование на Delphi для начинающих и не только

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта