Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: WinAPI и системное программирование > SetupDiSetClassInstallParams в Delphi2009


Автор: Exciter 12.5.2009, 16:53
Доброго времени суток всем.
Есть код без проблем работающий в Delphi2007
Включение/выключение сетевых интефейсов.
Код

procedure EnableNetDevice(aState: Boolean; Index: Integer);
var
  NetPnPHandle: HDEVINFO;
  PCHP: TSPPropChangeParams;
  DeviceData: TSPDevInfoData;
begin
  NetPnPHandle:=SetupDiGetClassDevs(@GUID_DEVCLASS_NET, nil, 0, DIGCF_PRESENT);
  if NetPnPHandle = INVALID_HANDLE_VALUE then exit;
  DeviceData.cbSize := SizeOf(TSPDevInfoData);
  SetupDiEnumDeviceInfo(NetPnPHandle, index, DeviceData);
  PCHP.ClassInstallHeader.cbSize := SizeOf(TSPClassInstallHeader);
  if SetupDiSetClassInstallParams(NetPnPHandle, @DeviceData, @PCHP, sizeof(TSPPropChangeParams)) then
  begin
    PCHP.ClassInstallHeader.cbSize := SizeOf(TSPClassInstallHeader);
    PCHP.ClassInstallHeader.InstallFunction := DIF_PROPERTYCHANGE;
    PCHP.Scope := DICS_FLAG_CONFIGSPECIFIC;
    if aState then
     PCHP.StateChange := DICS_ENABLE
              else
     PCHP.StateChange := DICS_DISABLE;
    SetupDiSetClassInstallParams(NetPnPHandle,@DeviceData,@PCHP,sizeof(TSPPropChangeParams));
    SetupDiCallClassInstaller(DIF_PROPERTYCHANGE, NetPnPHandle, @DeviceData);
  end
  else
  MessageDlg(SysErrorMessage(GetLastError), mtError, [mbOk], 0);
  DeviceData.cbSize := SizeOf(TSPDevInfoData);
  SetupDiDestroyDeviceInfoList(NetPnPHandle);
end;

В Delphi 2009 он вылетает в строке
  if SetupDiSetClassInstallParams(NetPnPHandle, @DeviceData, @PCHP, sizeof(TSPPropChangeParams)) then
в else получаем мессагу "Параметр задан неверно".

Есть у кого мысли по этому поводу?
SetupApi.pas прилагается

Автор: kami 13.5.2009, 00:39
Цитата(Exciter @  12.5.2009,  16:53 Найти цитируемый пост)
Есть у кого мысли по этому поводу?

что возвращает SetupDiEnumDeviceInfo(NetPnPHandle, index, DeviceData); ?

Автор: Exciter 13.5.2009, 09:24
Хм... действительно там тоже глюк.
Переделал эту строку вот так
Код

  if not SetupDiEnumDeviceInfo(NetPnPHandle, index, DeviceData) then
    MessageDlg(SysErrorMessage(GetLastError), mtError, [mbOk], 0);

Получаю:
Дополнительные данные отсутствуют.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)