Автоматически установить драйвер в Delphi

Question

Как мне установить драйвер с помощью delphi?

У меня есть устройство, к которому я подключаюсь через USB-порт, и мне нужно установить некоторые драйверы. Я могу сделать это, установив его вручную, но как я могу сделать это автоматически? Как Windows знает, что этот драйвер для этого устройства?

Answer 1

Я нашел это

>  ShellAPI;
> 
> function InstallINF(const PathName: string; hParent: HWND): Boolean;
> var    instance: HINST; begin    instance := ShellExecute(hParent,
>      PChar('open'),
>      PChar('rundll32.exe'),
>      PChar('setupapi,InstallHinfSection
>            DefaultInstall 132 ' + PathName),
>      nil,
>      SW_HIDE) ;
> 
>    Result := instance > 32; end;

Я проверю это и вернусь с результатом

Answer 2

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

• InstallShield
• InstallAware
• NSIS
• WiX
• Wise
• InnoSetup
• и т.д.

Из них InnoSetup использует вариант Pascal в качестве языка сценариев и поэтому является очень популярным выбором среди разработчиков Delphi.

Answer 3

Изучите исходный код InnoSetup. Его можно загрузить с домашней страницы InnoSetup. Если этого недостаточно, существует множество примеров сценариев и вспомогательных функций, доступных для InnoSetup с огромным количеством информации. Мы сделали инсталлятор таким же образом 15 лет назад, и он все еще работает без изменений.