VPF::SetupDiSetClassInstallParams в Delphi2009 - Форум программистов

Exciter

Дата 12.5.2009, 16:53 (ссылка)

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

Загрузка ...

Новичок

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

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

Доброго времени суток всем.
Есть код без проблем работающий в 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 прилагается

Это сообщение отредактировал(а) Exciter - 12.5.2009, 16:55

Присоединённый файл ( Кол-во скачиваний: 9 )

SetupApi.rar 3,84 Kb

kami

Дата 13.5.2009, 00:39 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1806
Регистрация: 25.8.2007
Где: Санкт-Петербург

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

Цитата(Exciter @ 12.5.2009, 16:53

)

Есть у кого мысли по этому поводу?

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

Exciter

Дата 13.5.2009, 09:24 (ссылка)

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

Загрузка ...

Новичок

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

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

Хм... действительно там тоже глюк.
Переделал эту строку вот так

Код


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

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

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