dl1 = GetForegroundWindow()
dl2 = GetWindowText(hwnd, cap, 128)
text1.text=caphwnd已经成功获取
可是发现text1.text变空了,即cap怎么是空的,那个程序是我自己编的,不可能是空标题啊

解决方案 »

  1.   

    text1.text=cap怎么对
    Dim TitleStr As String * 255 '窗口标题会返回到这个变量里面,为定长字符串,最好最255这个最大值,如果小于了标题长度会出错 
     Dim cchlen As Integer '这个参数要求为TitleStr长度减1 
      
     Dim N As Long 'API返回值 
      
     cchlen = Len(TitleStr) - 1 'API定义规定的 
     N = GetWindowText(Me.hwnd, TitleStr, cchlen) 
    你换这个看下就知道了一要定义TitleStr的长度 cchlen=Len(TitleStr) - 1
      

  2.   

    好 谢谢aspower的多次帮助至于要减一 好像是为去掉最后多出来的一个矩形符号吧