Установка inf-драйвера

[hander]

Добрый день.
Необходимо программно установить драйвер usb-устройства состоящий из двух файлов: inf и sys, так, чтобы при подключении устройства система обнаруживала драйвер и устанавливала его.
Сам драйвер, если его устанавливать через диспетчер устройств руками, работает как надо. А вот, если например в разделе реестра HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/Current Version переменной DevicePath добавить путь размещения файлов драйвера, то следует ошибка установки.
Для установки драйвера выполняется следующий код, но после его выполнения, при подключении устройства, система драйвер не находит вообще. Ошибок никаких не возвращается.

procedure TfInstall.btnInstallClick(Sender: TObject);
var
  pi: TProcessInformation;
  si: TStartupInfo;
  execFile,cmdLine,workDir:string;
  sINFFile:string;
  ErrCode:integer;
begin
  ErrCode := 0;
  try
    sINFFile:=ExtractFilePath(Application.ExeName)+'driver.inf';
    cmdLine := 'setupapi.dll,InstallHinfSection ClassInstall32 128 ' + sINFFile;
    execFile := 'RUNDLL32.EXE';
    workDir := ExtractFilePath(Application.ExeName);

    FillChar(si,SizeOf(si), #0);
    si.cb := SizeOf(si);
    si.wShowWindow := SW_NORMAL;
    si.dwFlags     := STARTF_USESHOWWINDOW;

    if CreateProcess(nil,PChar(execFile + ' ' + cmdLine),nil,nil,false,0,nil,PChar(workDir),si,pi) then
    begin
      CloseHandle(pi.hProcess);
      CloseHandle(pi.hThread);
    end
    else
      ErrCode:=GetLastError;

    if (ErrCode<>0) then
      Raise Exception.Create('Код ошибки:'+IntToStr(ErrCode));

    Close;
  except
    on E:exception do
      Application.MessageBox(PChar('Ошибка установки драйвера'#13#10+E.Message),PChar('Ошибка'),MB_OK);
  end;
end;

[raxp]

например в разделе реестра HKEY_LOCAL_MACHINE/Software/Microsoft/Windows/Current Version переменной DevicePath добавить путь размещения файлов драйвера, то следует ошибка установки

- почему-бы просто не скопировать в папку windows/inf ваши драйвера и не лезть в реестр?
- *.inf - текстовый файл и содержит пути к самому драйверу sys

[hander]

Была такая мысль, поместить inf в %SystemRoot%\inf, а sys в %SystemRoot%\System32\drivers, но опять вылетела ошибка. Работает такой вариант только когда оба файла лежат рядом в папке Inf, что по-моему не очень правильно.

[raxp]

var
hSCMan, hService, hDevice : SC_HANDLE;
lpServiceArgVectors : PChar;
F:File;
const
DriverName='giveio';
begin
lpServiceArgVectors:=nil;
hSCMan:=OpenSCManager(Nil,Nil,SC_MA NAGER_ALL_ACCESS);
hService:=CreateService(hSCMan,'giv eio','giveio',SERVICE_ALL_ACCESS, SERVICE_KERNEL_DRIVER,
SERVICE_DEMAND_START, SERVICE_ERROR_NORMAL,PChar(ExtractF ilePath(ParamStr(0))+'giveio.sys'),
nil,nil,nil,nil,nil);
If hService<>0 then CloseServiceHandle(hService);
hService:=OpenService(hSCMan,'givei o',SERVICE_ALL_ACCESS);
If hService<>0 then
begin
StartService(hService,0,PChar(lpSer viceArgVectors));
CloseServiceHandle(hService);
end;
hDevice:=CreateFile('\\.\giveio',GE NERIC_READ or GENERIC_WRITE,0,PSECURITY_DESCRIPTO R(nil),OPEN_EXISTING,FILE_ATTRIBUTE _NORMAL,0);
CloseHandle(hDevice);
end;

- попробуйте по аналогии http://raxp.radioliga.com/cnt/s.php?p=vm.pdf