Как отключить определенные элементы свойств сетевого соединения в Delphi через API

Delphi , Интернет и Сети , Сеть

Вопрос пользователя заключается в поиске API или кода, который позволил бы отключить определенные элементы свойств текущего сетевого соединения. В контексте данного запроса уже существует решение проблемы, которое заключается в использовании API INetCfgBindingPath::Enable для отключения привязок. С Windows 8 и выше также можно использовать метод WMI MSFT_NetAdapterBindingSettingData::Disable.

Решение проблемы

Для отключения привязок в сетевых соединениях в операционных системах на базе Windows можно использовать следующие подходы:

Использование API INetCfgBindingPath::Enable

Этот метод позволяет управлять привязками в сетевой конфигурации. Пример использования этого API можно найти в образце кода bindview.

Использование WMI метода MSFT_NetAdapterBindingSettingData::Disable

С Windows 8 и выше, для отключения привязок можно использовать WMI метод, который позволяет выполнить отключение для конкретных адаптеров и компонентов. Вот пример команды PowerShell, которая демонстрирует, как отключить привязки для сетевого адаптера с именем "mb-port" к драйверу "ms_msclient":

Get-CimInstance -Namespace root/standardcimv2 -Query "SELECT * FROM MSFT_NetAdapterBindingSettingData WHERE Name = 'mb-port' AND ComponentID = 'ms_msclient'" | Invoke-CimMethod -MethodName Disable

Важные замечания

• GUI может объединять несколько привязок в один чекбокс, поэтому для отключения всех привязок, связанных с определенным компонентом и адаптером, необходимо перечислить все соответствующие привязки.
• В примере, приведенном пользователем, используется вызов метода INetCfg::Apply после INetCfgBindingPath::Enable. Это необходимо для применения изменений в сетевой конфигурации.
• В случае использования WMI, метод не является транзакционным, и дополнительный вызов Apply не требуется.

Пример кода на Object Pascal (Delphi)

Для демонстрации использования API в среде Delphi, приведём пример кода, который использует WMI для отключения привязки:

program DisableNetworkBinding;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  System.Classes,
  System.WmiUtils;

// Функция для отключения привязки через WMI
function DisableBinding(const AdapterName, ComponentID: string): Boolean;
var
  BindingSettingData: TWmiQuery;
begin
  Result := False;
  BindingSettingData := TWmiQuery.Create(nil);
  try
    BindingSettingData.Namespace := 'root/standardcimv2';
    BindingSettingData.Query := Format('SELECT * FROM MSFT_NetAdapterBindingSettingData WHERE Name = ''%s'' AND ComponentID = ''%s''', [AdapterName, ComponentID]);
    if BindingSettingData.FindFirst then
    begin
      with BindingSettingData.CreateObject(TWmiInstance) do
        InvokeMethod('Disable');
      Result := True;
    end;
  finally
    BindingSettingData.Free;
  end;
end;

begin
  if DisableBinding('mb-port', 'ms_msclient') then
    Writeln('Привязка успешно отключена.')
  else
    Writeln('Ошибка при попытке отключения привязки.');
  Readln;
end.

Этот код демонстрирует, как можно использовать WMI для отключения привязки для сетевого адаптера с именем "mb-port" к компоненту "ms_msclient". Обратите внимание, что для выполнения этого кода на реальном устройстве, вам потребуются соответствующие привилегии администратора.

Заключение

В данной статье мы рассмотрели, как можно отключить определенные элементы свойств сетевого соединения в операционных системах Windows, используя API и WMI. Приведенные примеры кода на Object Pascal (Delphi) позволяют разработчикам использовать эти методы в своих проектах.

Создано по материалам из источника по ссылке.

Вопрос пользователя связан с поиском способов отключения определенных элементов свойств сетевого соединения в Delphi через использование API и предоставляемых методов для Windows.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Сеть ::