Обнаружение проблем с драйверами устройств в Windows с помощью Delphi и WMI

Delphi , Синтаксис , Справочник по API-функциям

Вопрос, с которым мы сталкиваемся в данном запросе, заключается в необходимости программного обнаружения проблем с драйверами устройств в операционных системах Windows XP и более поздних версий. Это может быть полезно для разработчиков, использующих Delphi XE2, которые хотят автоматизировать процесс проверки состояния устройств, таких как принтеры, сканеры и мыши, на предмет возможных неполадок.

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

Для решения данной задачи можно использовать класс WMI Win32_PnPEntity и свойство ConfigManagerErrorCode. Этот подход позволяет получить список устройств, у которых есть проблемы с драйверами. Вот пример кода на Object Pascal (Delphi), который демонстрирует, как это можно реализовать:

{$APPTYPE CONSOLE}

uses
  SysUtils,
  ActiveX,
  ComObj,
  Variants;

procedure ListDevicesConfigError;
const
  wbemFlagForwardOnly = $00000020;
var
  FSWbemLocator: OLEVariant;
  FWMIService: OLEVariant;
  FWbemObjectSet: OLEVariant;
  FWbemObject: OLEVariant;
  oEnum: IEnumVariant;
  iValue: LongWord;
begin
  FSWbemLocator := CreateOleObject('WbemScripting.SWbemLocator');
  FWMIService := FSWbemLocator.ConnectServer('localhost', 'root\cimv2', '', '');
  FWbemObjectSet := FWMIService.ExecQuery('SELECT * FROM Win32_PnPEntity WHERE ConfigManagerErrorCode <> 0', 'WQL', wbemFlagForwardOnly);
  oEnum := IUnknown(FWbemObjectSet._NewEnum) as IEnumVariant;
  while oEnum.Next(1, FWbemObject, iValue) = 0 do
  begin
    Writeln(Format('Class GUID %s', [String(FWbemObject.ClassGUID)]));
    Writeln(Format('Description %s', [String(FWbemObject.Description)]));
    Writeln(Format('Device ID %s', [String(FWbemObject.DeviceID)]));
    Writeln(Format('Manufacturer %s', [String(FWbemObject.Manufacturer)]));
    Writeln(Format('Name %s', [String(FWbemObject.Name)]));
    Writeln(Format('PNP Device ID %s', [String(FWbemObject.PNPDeviceID)]));
    Writeln('');
    FWbemObject := Unassigned;
  end;
end;

begin
  try
    CoInitialize(nil);
    try
      ListDevicesConfigError;
    finally
      CoUninitialize;
    end;
  except
    on E: EOleException do
      Writeln(Format('EOleException %s %x', [E.Message, E.ErrorCode]));
    on E: Exception do
      Writeln(E.ClassName, ':', E.Message);
  end;
  Writeln('Press Enter to exit');
  Readln;
end.

Этот код создает консольное приложение, которое перечисляет информацию об устройствах с ошибками драйверов, используя WMI класс Win32_PnPEntity. Обратите внимание, что для работы с WMI необходимо использовать COM-интерфейсы, поэтому в коде используется модуль ActiveX.

Подведение итогов

Использование WMI для обнаружения проблем с драйверами устройств является мощным и эффективным инструментом для разработчиков, работающих в среде Delphi. Это позволяет автоматизировать процесс проверки состояния устройств и интегрировать его в различные приложения, что особенно полезно для системного администрирования и технической поддержки.

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

Код на Delphi для обнаружения проблем с драйверами устройств в Windows с использованием WMI.

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

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

:: Главная :: Справочник по API-функциям ::