Автоматическая установка драйверов для USB-устройств в Delphi

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

При подключении USB-устройства к компьютеру, Windows автоматически пытается найти и установить необходимые драйверы. Но что делать, если драйверы отсутствуют или не устанавливаются автоматически? В этом случае можно создать программу на Delphi для автоматической установки драйверов.

Для автоматической установки драйверов в Delphi можно использовать функцию InstallINF из модуля ShellAPI. Вот пример кода, который демонстрирует использование этой функции:

uses
  ShellAPI;

function InstallDriver(const DriverPath: string; const DeviceID: string): Boolean;
var
  instance: HINST;
begin
  instance := ShellExecute(0,
    PChar('open'),
    PChar('rundll32.exe'),
    PChar(Format('setupapi,InstallHinfSection DefaultInstall 132 %s', [DriverPath]) + ' ' + DeviceID),
    nil,
    SW_HIDE);

  Result := instance > 32;
end;

Эта функция принимает два параметра: путь к файлу INF драйвера и идентификатор устройства (DeviceID). Функция вызывает ShellExecute для запуска rundll32.exe с параметрами, которые указывают на установку драйвера из файла INF. Результатом функции является булево значение, указывающее на成功ность установки драйвера.

Для получения DeviceID можно использовать функцию SetupDiGetDeviceInstanceId из модуля SetupAPI. Вот пример кода, который демонстрирует использование этой функции:

uses
  SetupAPI;

function GetDeviceID(const DevicePath: string): string;
var
  DeviceInfoSet: THandle;
  DeviceInfo: PSetupDiDeviceInfo;
  DeviceInstanceId: array[0..255] of Char;
  RequiredSize: DWORD;
begin
  DeviceInfoSet := SetupDiGetClassDevs(nil, nil, 0, DIGCF_PRESENT or DIGCF_DEVICEINTERFACE);

  if DeviceInfoSet <> INVALID_HANDLE_VALUE then
  try
    SetLength(DeviceInstanceId, 256);
    RequiredSize := SizeOf(DeviceInstanceId);

    if SetupDiEnumDeviceInterfaces(DeviceInfoSet, 0, GUID_DEVINTERFACE_USB_DEVICE, 0, DeviceInfo) then
    begin
      if SetupDiGetDeviceInstanceId(DeviceInfoSet, DeviceInfo, DeviceInstanceId[0], RequiredSize, nil) then
        Result := DeviceInstanceId;
    end;
  finally
    SetupDiDestroyDeviceInfoList(DeviceInfoSet);
  end;
end;

Эта функция принимает один параметр: путь к устройству (DevicePath). Функция вызывает SetupDiGetClassDevs для получения списка всех подключенных устройств, а затем SetupDiEnumDeviceInterfaces для перебора устройств и получения DeviceID с помощью SetupDiGetDeviceInstanceId. Результатом функции является строка с DeviceID.

Пример использования этих функций для автоматической установки драйвера:

uses
  ShellAPI,
  SetupAPI;

function InstallDriver(const DriverPath: string; const DevicePath: string): Boolean;
var
  DeviceID: string;
begin
  DeviceID := GetDeviceID(DevicePath);

  if DeviceID <> '' then
    Result := InstallDriver(DriverPath, DeviceID)
  else
    Result := False;
end;

В этом примере сначала получается DeviceID с помощью функции GetDeviceID, а затем этот DeviceID передается в функцию InstallDriver для установки драйвера.

Примечание: Для автоматической установки драйверов необходимо наличие файла INF, содержащего описание драйвера и инструкции по его установке. Также следует учитывать, что установка драйверов требует административных привилегий, поэтому при запуске программы от имени пользователя с ограниченными правами может потребоваться запрашивать права администратора.

В качестве альтернативы созданию программы для автоматической установки драйверов в Delphi можно использовать готовые утилиты,such as InnoSetup, которые специально предназначены для создания установщиков и имеют широкие возможности для настройки процесса установки. Однако, если вам нужен простой и быстрый способ установки драйвера без лишних функций и настроек, то использование функции InstallINF из Delphi может быть вполне достаточным решением.

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

Автоматическая установка драйверов для USB-устройств в Delphi осуществляется с помощью функции InstallINF из модуля ShellAPI и функции SetupDiGetDeviceInstanceId из модуля SetupAPI для получения DeviceID, что позволяет программно устанавливать драйверы пр

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

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

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