鼠标单击右键菜单时产生什么事件，怎么捕捉

Question

就是右键单击某个文件，弹出菜单（比如“发送到--〉邮件接收者”），左键单击后的事件怎么捕捉与及获得文件的路径

Answer 1

发送到是在（window2000）C:\Documents and Settings\user\SendTo，其中user为你当前的用户名。你在里面可以创建程序的快捷方式，例如记事本的快捷方式。然后在点击右键时，你的发送到会出现你刚才创建的快捷方式。

Answer 2

我感觉你的操作类似资源管理器，你不妨添加一个treeview,listview控件，将文件在listview中显示出来，然后再对listview写相关的代码，这样会比较不错。不知道你要不要这方面的带嘛，如果要的话请发短信息给我。

Answer 3

Option ExplicitPublic Const GWL_WNDPROC = (-4)
Public Const WM_RBUTTONDOWN = &H204Declare 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 Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As LongPublic prevWndProc As Long
Public Const WM_CLOSE = &H10
Public Const WM_DESTROY = &H2
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Const EM_SETREADONLY = &HCFFunction WndProc(ByVal hwnd As Long, ByVal MSG As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Select Case MSG
        Case WM_RBUTTONDOWN
            WndProc = 0
            Exit Function
        Case Else
    End Select
        
    WndProc = CallWindowProc(prevWndProc, hwnd, MSG, wParam, lParam)
End Function以上是在BAS内，
以FRM里控件的mousedown事件内写些代码就实现了。实现了对鼠标单击捕捉！