dropfiles.bas

OCX DLL注册工具 OCX DLL注册工具

Attribute VB_Name = "Module3"
Option Explicit

Public Const WM_DROPFILES As Long = &H233&

Public procOld As Long

Public Declare Function CallWindowProc& Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc&, ByVal hWnd&, ByVal Msg&, ByVal wParam&, ByVal lParam&)

Public Declare Sub DragAcceptFiles Lib "shell32.dll" (ByVal hWnd&, ByVal fAccept&)

Public Declare Function DragQueryFile& Lib "shell32.dll" Alias "DragQueryFileA" (ByVal hDrop&, ByVal iFile&, ByVal lpszFile$, ByVal cch&)

Public Declare Sub DragFinish Lib "shell32.dll" (ByVal hDrop&)

Public Const GWL_WNDPROC As Long = (-4&)

Public Declare Function SetWindowLong& Lib "user32" Alias "SetWindowLongA" (ByVal hWnd&, ByVal nIndex&, ByVal dwNewLong&)

Public Function WindowProc(ByVal hWnd As Long, ByVal iMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

  Select Case iMsg
    
    Case WM_DROPFILES
      
      Form1.DropFiles wParam
      
      WindowProc = False
      
      Exit Function
      
  End Select
  
  WindowProc = CallWindowProc(procOld, hWnd, iMsg, wParam, lParam)

End Function