Работа с устройствами, JEDI API

[rpy3uH]

Сообщение от Koluna

Понятно. Это называется "код экземляра устройства".
Мне тут не понятно только где его искать, этот "код экземляра устройства"!

код экземпляра устройства это составное имя. составляется он из нескольких параметров. в основном VendorID и ProductID. У одного класса устройств (например, USB флешки) они врядли повторятся.

Сообщение от Koluna

Вот он. С самого начала видел, но не поверил...
Для моего устройства код экземпляра устройства: USB\VID_0403&PID_6001\FTRXGIAZ

у моей флешки код экземляра такой USB\VID_0951&PID_1600\5B7202C4044C
VendorID и ProductID у флешек одной марки одинаковы, а буквы FTRXGIAZ или 5B7202C4044C наверно нужны чтобы уникализировать каждую флешку. точно не знаю

Для получения параметров устройства копай в сторону
SetupDiGetDeviceInterfacePropertyKe ys
SetupDiGetDeviceInterfaceProperty
и т.д.

Сообщение от Koluna

Хм... оказывается, надо делать так:

DeviceInfoSet_ := SetupDiGetClassDevs(nil, PnPID, 0, DIGCF_ALLCLASSES or DIGCF_DEVICEINTERFACE);

Это из MSDN.
Странно, почему в приведённых мною примерах не так?

так заработало или нет?

[Koluna]

Привожу свой код функции (работоспособный), которая выключает/включает устройство по коду экземпляра устройства.
Критика и полезные советы очень приветствуются. Хотелось бы в результате обсуждения получить не только работоспособный, но и простой, красивый и оптимизированный код

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;

Попутно - несколько вопросов.

1. При вызове моей функции с параметром False для отключении устройства N раз подряд, чтобы включить устройство приходится вызывать эту функцию с параметром True тоже N раз подряд. Как будто где-то есть счётчик включения/выключения... Почему и зачем?
2. Хотелось бы прояснить работу SetupDiGetClassDevs. Без флага DIGCF_DEVICEINTERFACE - моя функция не работает. Хотя в других примерах видел вызывы и без этого флага (с параметром Enumerator!). Не понятна связь между параметром Enumerator и флагом DIGCF_DEVICEINTERFACE.
3. Хотелось бы знать как можно назвать по-русски следующие структуры, используемые при вызове функций: HDEVINFO (хендл на структуру ...), TSPDevInfoData (структура ...), TSPPropChangeParams (структура...). Не могу перевести нормально, а название поиметь хочется

[rpy3uH]

Сообщение от Koluna

1. При вызове моей функции с параметром False для отключении устройства N раз подряд, чтобы включить устройство приходится вызывать эту функцию с параметром True тоже N раз подряд. Как будто где-то есть счётчик включения/выключения... Почему и зачем?

спроси у разработчиков Windows
тоже самое относится и потокам, если например, остановить поток N раз (SuspendThread), то надо и вовзбновить поток N раз (ResumeThread). так же и с некоторыми другими объектами

Сообщение от Koluna

2. Хотелось бы прояснить работу SetupDiGetClassDevs. Без флага DIGCF_DEVICEINTERFACE - моя функция не работает. Хотя в других примерах видел вызывы и без этого флага (с параметром Enumerator!). Не понятна связь между параметром Enumerator и флагом DIGCF_DEVICEINTERFACE.

MSDN

DIGCF_DEVICEINTERFACE
Return devices that support device interfaces for the specified device interface classes. This flag must be set in the Flags parameter if the Enumerator parameter specifies a device instance ID.

если Enumerator указан, то этот флаг надо обязательно установить.

[Koluna]

Сообщение от rpy3uH

спроси у разработчиков Windows
тоже самое относится и потокам, если например, остановить поток N раз (SuspendThread), то надо и вовзбновить поток N раз (ResumeThread). так же и с некоторыми другими объектами

Это известно

MSDN
если Enumerator указан, то этот флаг надо обязательно установить.

Согласен! Да! В MSDN так и указано!
Но вот почему в
http://forum.sources.ru/index.php?showtopic=247846&st=0
и в
http://forum.codenet.ru/showthread.php?threadid=32464
иначе?!

[rpy3uH]

Сообщение от Koluna

Согласен! Да! В MSDN так и указано!
Но вот почему в
http://forum.sources.ru/index.php?showtopic=247846&st=0
и в
http://forum.codenet.ru/showthread.php?threadid=32464
иначе?!

ничем, помочь не могу. не знаю