INF dosyasının kurulması

uses
  ShellAPI;

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