Требуется событие, что вставили CD в CD-Rom

[kibernetics]

Оч. нужна реализация хука или ещё какой-то функции, которая может контролировать появление/извлечение диска из сидирома.
Может кто-то сталкивался? У меня есть какой-то пример, но он вроде как неработает. Может потому что у меня приводов в системе много.
Если кто может - хелп плис.

На всякий пожарный, прикладываю примерчик хука, который должен работать, но у меня чего-то неработает.

[dr.MIG]

Как-то так:
Project->References->Microsoft WMI Scripting V 1.2. Library

Код: Выделить всё

Private objSWbemServices As SWbemServices
Private WithEvents objSink As SWbemSink

Private Sub Form_Load()
Dim strComputer As String
    strComputer = "."
    Set objSWbemServices = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
    Set objSink = New SWbemSink
    objSWbemServices.ExecNotificationQueryAsync objSink, "SELECT * FROM __InstanceOperationEvent WITHIN 1 WHERE TargetInstance ISA 'Win32_CDROMDrive'"
End Sub

Private Sub Form_Unload(Cancel As Integer)
    objSink.Cancel
    Set objSink = Nothing
End Sub

Private Sub objSink_OnObjectReady(ByVal objWbemObject As WbemScripting.ISWbemObject, ByVal objWbemAsyncContext As WbemScripting.ISWbemNamedValueSet)
     If IsNull(objWbemObject.TargetInstance.VolumeSerialNumber) Then
        Me.Caption = "Диска нет"
     Else
        Me.Caption = "Диск номер: " & objWbemObject.TargetInstance.VolumeSerialNumber
     End If
End Sub

Пример, конечно сыроват, но он дан с целью направить на путь использования WMI...

[kibernetics]

а если не трогать WMI, а обратить внимание на то, что один чел сказал, мол:

WindowProc never gets the WM_DEVICECHANGE message

это как-то поможет разобраться с приведённым выше примером?

[Sebas]

dr.MIG

Ты на загрузку проца смотрел?

[jangle]

Вот так работает.

Код: Выделить всё

Public Function WindowProc(ByVal hwnd As Long, ByVal WindowMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
On Error Resume Next
If WindowMsg = WM_DEVICECHANGE Then
    Dim DBHdr   As DEV_BROADCAST_HDR
    Dim DBVol   As DEV_BROADCAST_VOLUME
    CopyMemory DBHdr, ByVal lParam, LenB(DBHdr)
    If WindowMsg = WM_DEVICECHANGE Then
     Select Case wParam
        Case DBT_DEVICEARRIVAL
            If DBHdr.dbch_devicetype = DBT_DEVTYP_VOLUME Then
                CopyMemory DBVol, ByVal lParam, LenB(DBVol)
                If (DBVol.dbcv_flags And DBTF_MEDIA) = DBTF_MEDIA Then
                    user_control.cdevent False, Chr$(FirstDriveFromMask(DBVol.dbcv_unitmask))
                End If
            End If

        Case DBT_DEVICEREMOVECOMPLETE
            If DBHdr.dbch_devicetype = DBT_DEVTYP_VOLUME Then
                CopyMemory DBVol, ByVal lParam, LenB(DBVol)
                If (DBVol.dbcv_flags And DBTF_MEDIA) = DBTF_MEDIA Then
                    user_control.cdevent True, Chr$(FirstDriveFromMask(DBVol.dbcv_unitmask))
                End If
            End If
    End Select
    End If
End If
End Function

[kibernetics]

jangle
увы, но неработает

[jangle]

jangle
увы, но неработает

Все работает! Проверил на двух машинах. Ты вышеприведенный код добавил в проект?

[Lumen]

А у меня все и так работает. Операционка Win Xреново Работает SP2

[kibernetics]

Незнаю что за баг...
вот скомпильнутый проект.
Посмотрите у кого-нить работает или нет.

[jangle]

Вот исправленный и скомпиленный проект.
И еще ты как пытаешься его запустит? Просто открываешь/закрываешь лоток привода, или открываешь/закрываешь с вставленным диском? Как говорят в Одессе, это две большие разницы...

[kibernetics]

со вставленным диском,
даже, если точнее с диском на котором закрыта сессия

[kibernetics]

Короче чел один написал, что:

This is because if you think about it, some drives do not have trays. Devices can have conventional trays, caddys, slots, manual trays (laptops), and even changers. Keeping this in mind, you cannot generically have a open/closed tray state for everything. Truthfully, you don't really need to know... You only need to know if a disc is loaded or not, and then the state of the disc as I mentioned above in 1-5 in my previous section above.

There is no reliable event generated by the OS to get this information. In theory there is, but settings on different OS platforms can change the behavior thus making the events (Win32 DeviceChange message) very unreliable.

Посему наверное рассчитывать на DeviceChange нет смысла большого. Но как это делает Неро интересно... по таймеру чтоли

[alibek]

Nero периодически опрашивает.