"Автоматическая перезагрузка устройств в диспетчере: Delphi/Pascal решение"

Delphi , ОС и Железо , Драйвера

Автоматическая перезагрузка устройств в диспетчере устройств может быть полезна для решения различных проблем, связанных с устройствами, такими как сбои в работе или несовместимость с драйверами. В этой статье мы рассмотрим, как программно перезагрузить устройства, доступные в диспетчере устройств, используя Delphi/Pascal.

Для программной перезагрузки устройств в диспетчере устройств можно использовать API SetupApi и ConfigManager. Однако стоит отметить, что под x64 ваше приложение также должно быть x64, чтобы включить/отключить устройство. В настоящее время это невозможно сделать напрямую в Delphi.

Для перечисления устройств и программной перезагрузки можно использовать исходный код утилиты DevCon, доступной в пакете SDK Windows. Утилита DevCon написана на C, но можно изучить, как использовать этот API в своем приложении Delphi/Pascal.

Ниже приведен пример кода на Object Pascal (Delphi), который перечисляет устройства в диспетчере устройств и отключает/включает их:

program DeviceManagerExample;

{$APPTYPE CONSOLE}

uses
  System.SysUtils,
  Jedi.Windows.SetupApi;

var
  DeviceInfoSet: PDeviceInfoSet;
  DeviceInfo: PDeviceInfo;
  DeviceInstance: string;
  DeviceStatus: DWORD;
begin
  // Initialize DeviceInfoSet
  GetDeviceInfoList(nil, nil, GUID_DEVCLASS_NET, DeviceInfoSet);

  // Enumerate devices
  DeviceInfo := DeviceInfoSet;
  while Assigned(DeviceInfo) do
  begin
    DeviceInstance := GetDeviceInstanceID(DeviceInfo);
    // Print device instance ID
    Writeln(DeviceInstance);

    // Get current device status
    DeviceStatus := GetDeviceStatus(DeviceInstance);

    // If device is enabled, disable it
    if (DeviceStatus and DICS_ENABLED) = DICS_ENABLED then
      DeviceChange(DeviceInstance, DICS_DISABLE, 0);

    // If device is disabled, enable it
    if (DeviceStatus and DICS_DISABLED) = DICS_DISABLED then
      DeviceChange(DeviceInstance, DICS_ENABLE, 0);

    // Move to next device
    DeviceInfo := PDeviceInfo(DeviceInfo^.Next);
  end;

  // Clean up DeviceInfoSet
  DestroyDeviceInfoList(DeviceInfoSet);
end.

Этот пример перечисляет устройства сети (GUID_DEVCLASS_NET) и отключает/включает их. Вы можете изменить GUID, чтобы перечислить другие типы устройств, такие как аудио-устройства или сетевые адаптеры.

Обратите внимание, что для программной перезагрузки устройств может потребоваться разрешение на доступ к устройствам и соответствующие привилегии. Кроме того, некоторые устройства могут не поддерживать программную перезагрузку.

В качестве альтернативного решения можно использовать утилиту DevCon, доступную в пакете SDK Windows, и запускать ее из вашего приложения Delphi/Pascal для отключения/включения устройств. Однако это может потребовать дополнительной настройки и может не быть таким гибким, как использование API SetupApi и ConfigManager.

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

Статья описывает, как программно перезагрузить устройства, доступные в диспетчере устройств, используя Delphi/Pascal.

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

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

:: Главная :: Драйвера ::