Imprimir Página - GUID_DEVINTERFACE

Título: GUID_DEVINTERFACE_PARTITION
Publicado por: Dessa en 20 Julio 2010, 21:49 pm

Hola, como puedo hacer para conocer los valores de los datos de una GUID (por ejemplo GUID_DEVINTERFACE_PARTITION) para luego ser usados con las APIS SetupDiGetClassDevs, SetupDiEnumDeviceInterfaces, etc, etc. :

Identificador
GUID_DEVINTERFACE_PARTITION

Clase GUID
{53F5630A-B6BF-11D0-94F2-00A0C91EFB8B}

Salu2

Título: Re: GUID_DEVINTERFACE_PARTITION
Publicado por: seba123neo en 21 Julio 2010, 01:31 am

Hola, Dessa, mira aca tenes un ejemplo que usa esas apis, pero con otros GUIDS como GUID_DEVINTERFACE_DISK, GUID_DEVINTERFACE_FLOPPY, GUID_DEVINTERFACE_CDROM, pero te podes orientar, el ejemplo es para ejectar unidades removibles...

USB Medium abmelden (sicheres Entfernen) (http://www.activevb.de/tipps/vb6tipps/tipp0718.html)

saludos.

Título: Re: GUID_DEVINTERFACE_PARTITION
Publicado por: Dessa en 21 Julio 2010, 04:06 am

SYYYYYYY, :D , gran ejemplo Seba, "IIDFromString" me facilitó las declaraciones

Código:


Option Explicit

Private Declare Function IIDFromString Lib "ole32" (ByVal lpsz As Long, ByRef lpiid As GUID) As Long
Private Declare Function SetupDiGetClassDevs Lib "setupapi.dll" Alias "SetupDiGetClassDevsA" (ByVal ClassGuid As Long, ByVal Enumerator As Long, ByVal HwndParent As Long, ByVal flags As Long) As Long
Private Declare Function SetupDiDestroyDeviceInfoList Lib "setupapi.dll" (ByVal DeviceInfoSet As Long) As Long
Private Type GUID
    Data1 As Long: Data2 As Integer: Data3 As Integer: Data4(7) As Byte
End Type


Private Sub Form_Load()
    
    Me.AutoRedraw = True
        
    Dim TGUID As GUID
    Call IIDFromString(StrPtr("{53F5630A-B6BF-11D0-94F2-00A0C91EFB8B}"), TGUID)
    Form1.Print TGUID.Data1
    Form1.Print TGUID.Data4(7)

    Dim hDev As Long
    hDev = SetupDiGetClassDevs(VarPtr(TGUID), 0, 0, 18)
    Form1.Print
    Form1.Print hDev
    Call SetupDiDestroyDeviceInfoList(hDev)

End Sub

Gracias Seba !!!!

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Dessa en 20 Julio 2010, 21:49 pm