tiroir CD et notification

Bonjour scraper,
scraper a écrit :

bonjour à tous !

existe t il un moyen de détecter si le tiroir CD s'ouvre, ou vient de se
fermer ?
(ceci, sans préjuger de son contenu éventuel ...

je suppose que oui, puisque c'est détecté au niveau de windows, il doit
donc bien y avoir une notification quelconque ??

merci de votre aide

Si tu n'as pas besoin d'infos trop détaillées, tu ajoutes le composant
Microsoft SysInfo Control 6.0 (Sysinfo.ocx)

Private Sub SysInfo1_DeviceArrival(ByVal DeviceType As Long, _
ByVal DeviceID As Long, _
ByVal DeviceName As String, _
ByVal DeviceData As Long)
If DeviceType = 2 Then
MsgBox "Fermeture lecteur"
End If
End Sub


Private Sub SysInfo1_DeviceRemoveComplete(ByVal DeviceType As Long, _
ByVal DeviceID As Long, _
ByVal DeviceName As String, _
ByVal DeviceData As Long)
If DeviceType = 2 Then
MsgBox "Ouverture lecteur"
End If
End Sub


--
Cordialement,

Jacques.

Bonjour Jacques93, dans le message
news:uEAdHHxfFHA.3788@tk2msftngp13.phx.gbl
tu disais :

Bonjour scraper,

bonjour :-)

Si tu n'as pas besoin d'infos trop détaillées, tu ajoutes le composant
Microsoft SysInfo Control 6.0 (Sysinfo.ocx)

Private Sub SysInfo1_DeviceArrival(ByVal DeviceType As Long, _
ByVal DeviceID As Long, _
ByVal DeviceName As String, _
ByVal DeviceData As Long)
If DeviceType = 2 Then
MsgBox "Fermeture lecteur"
End If
End Sub


Private Sub SysInfo1_DeviceRemoveComplete(ByVal DeviceType As Long, _
ByVal DeviceID As Long, _
ByVal DeviceName As String,
_ ByVal DeviceData As Long)
If DeviceType = 2 Then
MsgBox "Ouverture lecteur"
End If
End Sub

splendide, ça va parfaitement !

merci bien :-)

à +



--

Adresse invalide
Merci de répondre sur le forum ...
http://scraper.chez.tiscali.fr

scraper

Bonjour scraper,
scraper a écrit :

[...]

splendide, ça va parfaitement !

merci bien :-)

à +

Content pour toi :-)

--
Cordialement,

Jacques.