Как инсталлировать INF файл? |
Previous Top Next |
Code: |
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; { InstallINF }
// Example:
procedure TForm1.Button1Click(Sender: TObject); begin InstallINF('C:\XYZ.inf', 0); end; |
©Drkb::04288
Взято с сайта http://www.swissdelphicenter.ch/en/tipsindex.php