Option Explicit Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongFunction FindFlashWindow(ByVal hWndParent As Long) As Long FindFlashWindow = FindWindowEx(hWndParent, 0&, "MacromediaFlashPlayerActiveX", "") End FunctionPrivate Sub Form_Load() Dim hFlash As Long hFlash=FindFlashWindow(Form1.hWnd) End Sub 这样就能找到其窗口句柄,然后再子类处理这个窗口,拦截其右键点击事件
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As LongFunction FindFlashWindow(ByVal hWndParent As Long) As Long
FindFlashWindow = FindWindowEx(hWndParent, 0&, "MacromediaFlashPlayerActiveX", "")
End FunctionPrivate Sub Form_Load()
Dim hFlash As Long
hFlash=FindFlashWindow(Form1.hWnd)
End Sub
这样就能找到其窗口句柄,然后再子类处理这个窗口,拦截其右键点击事件