安装一个INF的内部应用程序

wangyunyong0905

于 2008-07-23 08:15:00 发布

阅读量617

点赞数

文章标签：硬件驱动 application internet path function windows

本文链接：https://blog.youkuaiyun.com/wangyunyong0905/article/details/2693626

版权

INF是一个文本文件被微软用作安装硬件驱动程序windows API。
然而，有些时候我们可以安装一个内部应用程序。
下面是这样做的，请大家试试。
首先在uses里要引用 ShellApi单元。

function Install_INF(const Path: string; WHandle: HWND): Boolean;
var HINSTANCE: HINST; // A handle to the application instance
begin
  HINSTANCE := ShellExecute(WHandle,
  PChar('open'), PChar('rundll32.exe'),
  PChar('SetupApi,InstallHinfSection DefaultInstall 132 ' + Path),
         nil, SW_HIDE);
  Result := HINSTANCE > 32;
end;
  

                            
procedure TForm1.Button1Click(Sender: TObject);
begin
  {Normally, IE.inf file has been using to repair Internet Explorer}
  if Install_INF('C:/WINDOWS/INF/IE.INF', 0) = False then Exit;
end;