How to install an INF file using Delphi ?

If you need to install an "inf" file using Delphi, you could use the next code:

{
Usage:
  InstallINF('C:XYZ.inf', 0) ;
}

uses
  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;