Как инсталлировать INF файл

Советы » Файлы » Как инсталлировать INF файл

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:DelphiWorld.inf', 0); end

;

Другое по теме:

Категории

Статьи

Советы

Copyright © 2023 - All Rights Reserved - www.delphirus.com