VPF::Программная установка драйверов

haker-kirik

Дата 12.7.2007, 13:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 32
Регистрация: 11.1.2005

Репутация: нет
Всего: нет

Нужно программный образом поставить драйвер, если имееться *.inf файл... Как это сделать? smile

Yanis

Дата 12.7.2007, 15:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 13
Всего: 111

DRKB

Код

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;

--------------------

*щёлк*

Rennigth

Дата 13.7.2007, 09:36 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1708
Регистрация: 21.6.2004
Где: Moscow

Репутация: 8
Всего: 76

хм, интересно, а зачем автор кода извращался с rundll32 если можно напрямую функцию вызвать из setupapi. Ошибочки хоть обработать можно будет...

Это сообщение отредактировал(а) Rennigth - 13.7.2007, 09:36

--------------------

(* Honesta mors turpi vita potior *)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »