Delphi ile Inf Dosyası Hazırlama

Kod:

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