Программное отключение устройства

[Crystallon]

Доброго времени суток.
Есть определенное устройство(CD-ROM созданный на флешке), как программно отключить его? В интернете нашел несколько примеров но ни один не работал. =\
Вот самый близкий к тому что мне нужно пример, он запинается на строчке "if not SetupDiEnumDeviceInfo(DeviceInfoSet _, 0, DeviceInfoData_) then":

    function On_Off_Device(PnPID: PAnsiChar; State: Boolean): Boolean;
     
    var
      DeviceInfoSet_ : HDEVINFO; // Хендл набора информации об устройствах.
      DeviceInfoData_ : TSPDevInfoData; // Структура информации об устройстве.
      SPPropChangeParams_ : TSPPropChangeParams;
     
    begin
      DeviceInfoSet_ := nil;
    // Получение хендла набора информации об устройстве по коду экземпляра устройства.
      DeviceInfoSet_ := SetupDiGetClassDevs(nil, PnPID, 0, DIGCF_ALLCLASSES or DIGCF_DEVICEINTERFACE);
      if Integer(DeviceInfoSet_) = INVALID_HANDLE_VALUE then
      begin
    // Ошибка.
        Result := False;
        Exit;
      end
      else
      begin
    // Хендл набора информации об устройстве получен.
        FillChar(DeviceInfoData_, SizeOf(TSPDevInfoData), 0);
        DeviceInfoData_.cbSize := SizeOf(TSPDevInfoData);
    // Заполнение структуры информации об устройстве.
        if not SetupDiEnumDeviceInfo(DeviceInfoSet_, 0, DeviceInfoData_) then
        begin
    // Ошибка.
          SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
          Result := False;
          Exit;
        end;
     
    // Установка полей структуры
        SPPropChangeParams_.ClassInstallHeader.cbSize := SizeOf(TSPClassInstallHeader);
        SPPropChangeParams_.ClassInstallHeader.InstallFunction := DIF_PROPERTYCHANGE;
        SPPropChangeParams_.Scope := DICS_FLAG_GLOBAL;
     
        if State then SPPropChangeParams_.StateChange := DICS_ENABLE
        else SPPropChangeParams_.StateChange := DICS_DISABLE;
     
    // Изменение состояния устройства.
        if not SetupDiSetClassInstallParams(DeviceInfoSet_,
                                            @DeviceInfoData_,
                                            @SPPropChangeParams_,
                                            SizeOf(TSPPropChangeParams)) then
        begin
    // Ошибка.
          SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
          Result := False;
          Exit;
        end;
    // Подтверждение изменения состояния устройства
    // (повторный вызов функции SetupDiSetClassInstallParams).
        if not SetupDiSetClassInstallParams(DeviceInfoSet_,
                                            @DeviceInfoData_,
                                            @SPPropChangeParams_,
                                            SizeOf(TSPPropChangeParams)) then
        begin
    // Ошибка.
          SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
          Result := False;
          Exit;
        end;
     
    // Вызов установщика классов.
        if not SetupDiCallClassInstaller(DIF_PROPERTYCHANGE, DeviceInfoSet_, @DeviceInfoData_) then
        begin
    // Ошибка.
          SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
          Result := False;
          Exit;
        end;
     
      end; // Integer(DeviceInfoSet_) <> INVALID_HANDLE_VALUE
     
      Result := True;
    // Освобождение хендла набора информации об устройствах.
      SetupDiDestroyDeviceInfoList(DeviceInfoSet_);
    end;

Вызываю данную функцию так:

if On_Off_Device('USBSTOR\CdRom', false) = true then
Form1.Log.Lines.Add('Успешно отключено') else
Form1.Log.Lines.Add('Ошибка отключения');

В качестве первого параметра пробовал ставить все указатели на экземпляр этого CD-ROM'а, результат тот же:

USBSTOR\CdRomUSB_2.0_USB_Flash_Driv e_0.00
USBSTOR\CdRomUSB_2.0_USB_Flash_Driv e_
USBSTOR\CdRomUSB_2.0_
USBSTOR\USB_2.0_USB_Flash_Drive_0
USB_2.0_USB_Flash_Drive_0
USBSTOR\GenCdRom
GenCdRom
USBSTOR\CdRom

Я плохо понимаю большую часть принципа работы этой функции но задача ее использования у меня разовая необходимость и притом срочная поэтому просьба в этот раз не отсылать читать литературу а просто подсказать что я делаю не так либо где косяки в функции.
Заранее огромное спасибо!

[haruhi]

надо смотреть после какого именно условия происходит выход из функции и анализировать код ошибки