鼠标在我程序窗体之外的操作我如何控制，如选中了的delphi文本框中的一段内容，回到我的程序中按command1,就把选中的内容显示出来.(并没

Question

鼠标在我程序窗体之外的操作我如何控制，如选中了的delphi文本框中的一段内容，回到我的程序中按command1,就把选中的内容显示出来.(并没有按CTRL+C)

Answer 1

做个鼠标勾子，当鼠标按下时得到鼠标下控件的句柄，通过判断类名知道是自己需要的控件，再用getwindowtext应该能得到，不过要得到选中的文本好像要用到另外两个API，我也不记得了

Answer 2

Private Sub Command1_Click()
    SendKeys "%{Tab}"
    DoEvents
    SendKeys "^C"
    DoEvents
    SendKeys "%{Tab}"
    Text1 = Clipboard.GetText(vbCFText)
End Sub

Answer 3

有个看密码的程序，想必大家都知道。
它是要按住鼠标拖动到其它程序窗体上，才能反应得到的内容到VB程序中，这些过程其实都在VB的程序“控制”之内，假如不是按住鼠标，使当前程序保持是VB的这个程序，而是随便去点别的窗体上，这时，控制权不在VB的程序了，VB的程序又如何能获得反回信息？就是说“不是按住”鼠标，这时去点击别的窗体，那个查看密码的程序又如何改写。