Включение/выключение устройств в win7 x64

[vanesko]

Столкнулся со странной проблемой. Требуется выключить устройство средствами SetupAPI. Вот код:

PCHP.ClassInstallHeader.cbSize := sizeof(TSPClassInstallHeader);
PCHP.ClassInstallHeader.InstallFunction := DIF_PROPERTYCHANGE;
PCHP.Scope := DICS_FLAG_CONFIGSPECIFIC;
PCHP.StateChange := DICS_DISABLE;
if SetupDiSetClassInstallParams(DevInfo,@DeviceInfoData,@PCHP,
       sizeof(TSPPropChangeParams)) then
begin
  SetupDiSetClassInstallParams(DevInfo,@DeviceInfoData,@PCHP,
    sizeof(TSPPropChangeParams));
  SetupDiCallClassInstaller(DIF_PROPERTYCHANGE,DevInfo,@DeviceInfoData);
end;

В windows XP все отлично работает, но в windows 7 x64 - ни какой реакции на код вообще... Может кто-нибудь сталкивался?

[Пепел Феникса]

права админа проге дали?

[vanesko]

Права админа дал, не помогает.

[Rock-n-Rolla]

GetLastError?

[vanesko]

GetLastError возвращает 3758096949 после функции SetupDiCallClassInstaller(DIF_PROPE RTYCHANGE,DevInfo,@DeviceInfoData); и 0 после SetupDiSetClassInstallParams(DevInf o,@DeviceInfoData,@PCHP,
sizeof(TSPPropChangeParams));

[rpy3uH]

3758096949 это E0000235. такой код ошибки даёт не система, а самоу устройство

[f.hump]

в 64х битном режиме нужен не только админ, но и 64х битное приложение для выполнения привелегированных операций

[vanesko]

Сообщение от f.hump

в 64х битном режиме нужен не только админ, но и 64х битное приложение для выполнения привелегированных операций

Я тоже об этом думал... Значит, чтобы код работал, нужен DELPHI XE2, т. к. поддержка 64-х битных приложений есть только в нем.