Как программно установить драйвер

[Daemvil]

Доброго времени суток!
Не понимаю, теряюсь в догадках, как установить программно драйвер.
Итак, есть пакет драйверов от FTDI для интерфейсной микросхемы (мост USB - RS232/485). Он представляет собой набор .sys и .inf файлов. Эти драйвера, путем модификации .inf файла, можно настраивать под нужные скорости (в нем выставляются множители частот) Можно получить таким образом скорости до 12МБит по RS485. Для модификации этого файла есть "тюнер" специальный, от FTDI, в документации также есть подробные описания этих множителей, так что тюнер написать можно.
Проблема возникает, когда нужно довольно часто менять скорость порта. Каждый раз модифицировать .inf файлы и переустанавливать вручную драйвер очень неудобно, тем более для целевого пользователя. Возможно ли программно устанавливать драйвер в данном случае?

[саша40]

А может просто перезагрузить компьютер?

[Пепел Феникса]

SetupAPI вас спасет, там видел установку драйверов из inf.

А может просто перезагрузить компьютер?

человек совсем иное спрашивает.

[Человек_Борща]

Феникс, ++ http://msdn.microsoft.com/en-us/libr...=vs.85%29.aspx

[Vapaamies]

Сообщение от Daemvil

Эти драйвера, путем модификации .inf файла, можно настраивать под нужные скорости

Для начала смотрим в реестр, в HKCR. В нем .inf указывает на inffile, у которого есть ветка shell\Install\command, и команда в нем выглядит так:

%SystemRoot%\System32\rundll32.exe setupapi,InstallHinfSection DefaultInstall 132 %1

В персом приближении команду можно взять на вооружение и, меняя имя секции, выполнять установку с нужными параметрами и удаление (обычно секция DefaultUninstall).

Если же нужно полностью программное управление, смотрим в MSDN функции, начинающиеся на SetupDi, типа SetupDiOpenDeviceInterfaceRegKey. Программно этими функциями не пользовался, больше подсказать не могу.

Возможно, в Windows Vista и выше команда установки в реестре уже выглядит по-другому.

[Daemvil]

Как говорится, "все болит, ничего не помогает".... Все перечисленные способы, приведенные здесь, дают просто тупой молчок системы. Все отрабатывает, но никаких сообщений никто не выдает, а изменения в драйверах не происходят. Пробую посредством функций типа SetupDi - выдает "Range Check"

function TForm1.InstallDriver(InfFile: String):boolean;
var
  ClassGUID: TGUID;
  ClassName: array [0..MAX_CLASS_NAME_LEN - 1] of Char;
  DeviceInfoSet: HWND;
  DeviceInfoData: SP_DEVINFO_DATA;
  HardwareId: array [0..HARDID_BUF_SIZE-1] of Char;
  Reboot: BOOL;
begin
  if not SetupDiGetINFClass(PChar(InfFile), @ClassGUID, @ClassName, MAX_CLASS_NAME_LEN, NIL) then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  DeviceInfoSet:= SetupDiCreateDeviceInfoList(@ClassGUID, Handle);
  if (DeviceInfoSet = INVALID_HANDLE_VALUE) then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  DeviceInfoData.cbSize:= sizeof(SP_DEVINFO_DATA);
  if not SetupDiCreateDeviceInfo(DeviceInfoSet, @ClassName, @ClassGUID, nil, Handle, DICD_GENERATE_ID, @DeviceInfoData) then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  FillChar(HardwareId, HARDID_BUF_SIZE, 0);
  if not SetupDiSetDeviceRegistryPropertyA(DeviceInfoSet, @DeviceInfoData, SPDRP_HARDWAREID, @HardwareId, HARDID_BUF_SIZE) then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  if not SetupDiCallClassInstaller(DIF_REGISTERDEVICE, DeviceInfoSet, @DeviceInfoData) then
  begin
    ShowMessage(SysErrorMessage(GetLastError));  вот здесь getlasterror возвращает ошибку "Range Check"
    Exit;
  end;
  Reboot:= False;
  if not UpdateDriverForPlugAndPlayDevices(Handle, @HardwareId, PChar(InfFile), INSTALLFLAG_FORCE, @Reboot) then
  begin
    ShowMessage(SysErrorMessage(GetLastError));
    Exit;
  end;
  ShowMessage('');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  InstallDriver(ExtractFilePath(Application.ExeName)+'ftdiport.inf');

end;

[Vapaamies]

Если честно, представленный здесь код мне представляется бредом.

Нужно или разобрать логику inf-файла и генерировать соответствующие записи программно, или разбирать inf-файл, меняя параметры в нем по надобности, а потом ставить либо вызовом rundll32, либо написать его собственный аналог, начав, как понимаю, с SetupGetInfInformation, которая и разбирает inf-файл, превращая его строки в структуры, нужные функциям API.

Модуль SetupApi, кстати, есть в JEDI (JVCL). Чисто технически сделан весьма грамотно, а вот загрузка Setup API на лету мне кажется решением через задницу весьма спорной. Тем не менее, думаю, сам модуль вполне рабочий.

Добавлено: о, режим связывания можно менять условной директивой SETUPAPI_LINKONREQUEST. Беру свои слова про задницу назад. Поскольку сейчас поддержка Win9x не нужна и имеет смысл только юникодный API, присутствующий во всех версиях Windows, директива SETUPAPI_LINKONREQUEST должна быть всегда отключена.

[Daemvil]

Добрый день. Отпишусь, что решил через rundll32, но перед этим надо девайс вытащить из USB, тогда драйвера переустанавливаются на новые. Похоже, проблема программной переустановки драйверов "налету" через JEDI - это несовместимость 64 и 32-битных Windows-систем с приложениями другой битности У меня Win7 64bit, а Дельфи компилит 32-разрядные приложения. Соответственно под 32 заработало, под 64 - нет. Если логически рассуждать, то выходит странновато, т.к. Setupapi же должен быть подставлен виндой тоже рабочий (из system32 либо sysWOW64, в зависимости от разрядности приложения) И вообще не понятно, почему именно с драйверами не выходит такая процедура..

[саша40]

После установки драйвера обязательно перезапустите компьютер, так как иначе система просто его не распознаст.

[Человек_Борща]

После установки драйвера обязательно перезапустите компьютер, так как иначе система просто его не распознаст.

Не обязательно. Драйвера есть разные. Да и не в 90х живем. Перезапуск нужен только если железо самого ПК обновилось, да и то, не всегда.