Verrouillez l'ouverture de vos lecteurs cd-rom

Télécharger le projet
Commenter

Description

Ce petit code est une réponse au forum.

Il utilise une API de controle du materiel, pour verrouiller, et bien sur déverrouiller l'ouverture de votre/vos lecteur(s) de CD.

Source / Exemple : 


Private Function AllowMediaRemoval(ByRef vsDriveLetter As String, Optional vbAllow As Boolean = False) As Boolean
Dim hDrive As Long
Dim nLength As Long
Dim tPMR As PREVENT_MEDIA_REMOVAL
    '# On créé un handle vers le lecteur
    hDrive = CreateFile("\\.\" & vsDriveLetter & ":", GENERIC_READ, FILE_SHARE_READ Or FILE_SHARE_WRITE, ByVal 0&, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0)
    If hDrive <> INVALID_HANDLE_VALUE Then
        tPMR.PreventMediaRemoval = Abs(Not vbAllow)
        '# On appelle la fonction de lock/unlock
        DeviceIoControl hDrive, IOCTL_STORAGE_MEDIA_REMOVAL, tPMR, LenB(tPMR), 0, 0, nLength, ByVal 0&
        '# On libère le handle
        CloseHandle hDrive
    End If
End Function

Conclusion :


ce code vous permettra également d'ouvrir/fermer votre lecteur, est de tester (Windows Xp ou supérieur) si le lecteur supporte les DVD
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (Renfield)