miaozk2006

AOption Explicit
¡®×ÓÀ໯´°ÌåÏûÏ¢´¦Àíº¯ÊýʱÐèҪʹÓõÄAPI£¬ºÜ³£¼û£¬²»×÷¹ý¶à˵Ã÷¡£
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd 
As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal 
lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As 
Long, ByVal lParam As Long) As Long
Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (pDst As Any, pSrc 
As Any, ByVal ByteLen As Long)
Const GWL_WNDPROC = -4
Const WM_DEVICECHANGE As Long = &H219
Const DBT_DEVICEARRIVAL As Long = &H8000&
Const DBT_DEVICEREMOVECOMPLETE As Long = &H8004&
'É豸ÀàÐÍ£ºÂß¼­¾í±ê
Const DBT_DEVTYP_VOLUME As Long = &H2
'ÓëWM_DEVICECHANGEÏûÏ¢Ïà¹ØÁªµÄ½á¹¹ÌåÍ·²¿ÐÅÏ¢
Private Type DEV_BROADCAST_HDR
lSize As Long
lDevicetype As Long    'É豸ÀàÐÍ
lReserved As Long
End Type
'É豸ΪÂß¼­¾íʱ¶ÔÓ¦µÄ½á¹¹ÌåÐÅÏ¢
Private Type DEV_BROADCAST_VOLUME
lSize As Long
lDevicetype As Long
lReserved As Long
lUnitMask As Long    'ºÍÂß¼­¾í±ê¶ÔÓ¦µÄÑÚÂë
iFlag As Integer    
End Type
Public info As DEV_BROADCAST_HDR
Public info_volume As DEV_BROADCAST_VOLUME
Public PrevProc As Long   ¡®Ô­À´µÄ´°ÌåÏûÏ¢´¦Àíº¯ÊýµØÖ·
Public Sub HookForm(F As Form)
     PrevProc = SetWindowLong(F.hwnd, GWL_WNDPROC, AddressOf WindowProc)
End Sub
Public Sub UnHookForm(F As Form)
     SetWindowLong F.hwnd, GWL_WNDPROC, PrevProc
End Sub
Public Function WindowProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam 
As Long, ByVal lParam As Long) As Long
     Select Case uMsg
            '²åÈëUSB DISK Ôò½ÓÊÕµ½´ËÏûÏ¢
           Case WM_DEVICECHANGE
            If wParam = DBT_DEVICEARRIVAL Then
           
            'Èô²åÈëUSBDISK»òÕßÓ³ÉäÍøÂçÅ̵ÈÔò
            'info.lDevicetype =2
            '¼´DBT_DEVTYP_VOLUME
           
            ¡®ÀûÓòÎÊýlParam»ñÈ¡½á¹¹ÌåÍ·²¿ÐÅÏ¢
            CopyMemory info, ByVal lParam, Len(info)
           
            If info.lDevicetype = DBT_DEVTYP_VOLUME Then
             
              CopyMemory info_volume, ByVal lParam, Len(info_volume)
             
              '¼ì²âµ½ÓÐÂß¼­¾íÌí¼Óµ½ÏµÍ³ÖУ¬ÔòÏÔʾ¸ÃÉ豸¸ùĿ¼ÏÂÈ«²¿ÎļþÃû
              ListFiles Chr(GetDriveName(info_volume.lUnitMask)) & ":\", 
Form1.List1
            End If
            End If
           
            If wParam = DBT_DEVICEREMOVECOMPLETE Then
           
            'ÈôÒÆ×ßUSBDISK»òÕßÓ³ÉäÍøÂçÅ̵ÈÔò
            'info.lDevicetype =2
            '¼´DBT_DEVTYP_VOLUME
           
            ¡®ÀûÓòÎÊýlParam»ñÈ¡½á¹¹ÌåÍ·²¿ÐÅÏ¢
            CopyMemory info, ByVal lParam, Len(info)
                      
            If info.lDevicetype = DBT_DEVTYP_VOLUME Then
              CopyMemory info_volume, ByVal lParam, Len(info_volume)
             
              'Çå³ýLISTÖеÄÄÚÈÝ
              Form1.List1.Clear
            End If
            End If          
        
      End Select
     ' µ÷ÓÃÔ­À´µÄ´°ÌåÏûÏ¢´¦Àíº¯Êý
     WindowProc = CallWindowProc(PrevProc, hwnd, uMsg, wParam, lParam)
    
End Function
'¸ù¾ÝÊäÈëµÄ32λLONGÐÍÊý¾Ý£¨Ö»ÓÐһλΪ1£©·µ»Ø¶ÔÓ¦µÄ¾í±êµÄASCIIÊýÖµ
'¹æÔòÊÇ1£ºA¡¢2£ºB¡¢4£ºCµÈµÈ
Function GetDriveName(ByVal lUnitMask As Long) As Byte
Dim i As Long
i = 0
While lUnitMask Mod 2 <> 1
    lUnitMask = lUnitMask \ 2
    i = i + 1
Wend
GetDriveName = Asc("A") + i
End Function
'ÏÔʾ²åÈëÂß¼­¾í¸ùĿ¼µÄÎļþÃûÁÐ±í£¬ÐèÒªÔÚ¹¤³ÌÀïÒýÓÃMicrosoft Scripting Runtime¿â¡£
Function ListFiles(strPath As String, ByRef list As ListBox)
   Dim fso As New Scripting.FileSystemObject
   Dim objFolder As Folder
   Dim objFile As File
  
   Set objFolder = fso.GetFolder(strPath)
  
   For Each objFile In objFolder.Files
     list.AddItem objFile.Name
   Next
End Function

Option Explicit
Private Sub Form_Load()
    '×ÓÀ໯´°ÌåµÄÏûÏ¢´¦Àíº¯Êý
    HookForm Me
End Sub
Private Sub Form_Unload(Cancel As Integer)
    '³ÌÐòÍ˳öʱ»Ö¸´Ô­´°Ìå´¦Àíº¯Êý
    UnHookForm Me
End Sub