Delphi ile Inf Dosyası Hazırlama

Discussion in 'Programlama' started by ......, Oct 9, 2009.

Tags:
  1. ......

    ...... Misafir

    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; 
     

Share This Page