在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
• 维克斯
• 怀斯
• InnoSetup
• 等

这些InnoSetup使用Pascal变体作为其脚本语言，因此在Delphi开发人员中非常受欢迎。

Answer 3

研究InnoSetup的源代码。它可以从InnoSetup主页下载。 如果这还不够，那么InnoSetup可以提供大量的脚本和辅助函数示例，其中包含大量信息。 我们在15年前以同样的方式制作了一个安装程序，它仍在运行而没有任何变化。