DelphiÖÐʵÏÖ¼ÓÔØINFÇý¶¯³ÌÐò£¡

°ïÖúÒ³ÔÚhttp://delphi.about.com/cs/adptips2003/a/bltip0203_2.htm
×Ô¼ºÔÚʵÏֵĹý³ÌÖеľßÌå¹ý³ÌÈçÏ£º
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;
procedure TForm1.btn1Click(Sender: TObject);
begin
  if InstallInf('F:\abc\arusb_lh.inf', 0) then
    ShowMessage('OK');
end;