[Andrew McDrew]

Здравствуйте.
Вопрос о изменении громкости в Винде начиная с Висты, там такие красивые интерфейсы, называется вроде CoreAPI. Есть маленькая программа, суть при запуске считывает информацию из реестра и соответственно выставляет громкость и мьют аудио устройств. Беспокоит процедура для висты, код пациента:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Procedure VistaAudio; var i:Integer;     DeviceEnumerator:IMMDeviceEnumerator;     Device:IMMDevice;     DeviceCollection:IMMDeviceCollection;     EndpointVolume:IAudioEndpointVolume;     Vol:Single; begin CoInitializeEx(nil,COINIT_APARTMENTTHREADED); CoCreateInstance(CLASS_IMMDeviceEnumerator,nil,CLSCTX_INPROC_SERVER, IID_IMMDeviceEnumerator,DeviceEnumerator); DeviceEnumerator.EnumAudioEndpoints(eAll,DEVICE_STATEMASK_ALL,DeviceCollection); //DeviceEnumerator._Release;   For i:=0 to NumDevs-1 do  begin  DeviceCollection.Item(i,Device);  Device.Activate(IID_IAudioEndpointVolume,CLSCTX_INPROC_SERVER,nil,IUnknown(EndpointVolume));  //Device._Release;  Vol:=Volume[i]/100;  EndpointVolume.SetMasterVolumeLevelScalar(Vol,nil);  EndpointVolume.SetMute(Mute[i],nil);  //EndpointVolume._Release;  end;   // DeviceCollection._Release; CoUninitialize; end;

Шо характерно, так оно работает. Но по хорошему надо вроде сделать Релиаз всем интерфейсам, о чом говорит мсдн, еще и в примерах кода, вроде этого http://http://blogs.msdn.com/b/larry...ows-vista.aspx
Так вот, если раскомментить хоть один релиз, то при отладке все вроде нормально отрабатывает, а если запустить ехе отдельно то вылетает АкцессВиолейшн и адреса бывают как полный 00000000 или около него так и FFFFFFFF. Покопал шоумесседжами, вылетает оно на втором прохождении цыкла на команде Devise.Activate. Вроде гдето писали что 0 значит что обращаюсь к несуществующему обьекту, а большое число -- к уже уничтоженному. Но чего спрашивается вылетать если раскомментить только последний интерфейс DeviceCollection._Release(правда здесь не на Активейт) ??
Да и что характерно DeviceCollection._Release и EndpointVolume._Release возвращают 0, походу все на объект ссылок больше нет и оно самоуничтожается, зато остальные возвращают 1, что бы это значило? Кто-нибудь с таким сталкивался, знает как аккуратно все объекты уничтожить?

[Aristarh Dark]

Я не силен в интерфейсах, но вот что пишут умные люди:

Это происходит потому, что при выходе переменной, ссылающейся на интерфейс, за область видимости (либо при присвоении ей другого значения) компилятор Delphi генерирует код для вызова метода _Release, информируя реализацию о том, что ссылка на нее больше не нужна.

Ссылка

[Andrew McDrew]

Аа вот оно что. Там же написано что Делфи сама вызывает все что нужно и вообще сказано руками к методам IUnknown не прикасаться. Не знал, спасибо за помощь.