如何取得一个mciSendString打开的视屏窗口的句柄？并在其中定义弹出菜单？请给点代码帮助。

Question

api  FindWindow 应该可以

Answer 1

你可以用mciSendString 的Put指令将这个窗口放到你指定的窗口中啊，
mciCommand = "open " & ShortPathName & " alias TheVideo"
mciCommand = mciCommand & " parent " & picVideo.Hwnd & " style child"
mciSendString mciCommand, vbNullString, 0, 0

Answer 2

With picVideo
      .ScaleMode = vbPixels
      mciCommand = "put TheVideo window at 0 0 " & _
                     .ScaleWidth & " " & .ScaleHeight
      mciSendString mciCommand, vbNullString, 0, 0
End With