[求助]如何获取窗体标题

togetheru

需要用到的API是
GetWindow
GetWindowTextLength
GetWindowText

togetheru

怎么样利用上述3个API去获取任务栏中的所有窗口标题,谢谢大家!

hanma

太简单了，回答的话有失身份。

togetheru

Public Sub FindTitle()
  Dim currwnd As Long, cch As Long, ListItem As String, Title As String
  Combo1.Clear
  currwnd = GetWindow(hwnd, GW_HWNDFIRST)
  Print currwnd, hwnd
  cch = GetWindowTextLength(currwnd)
  Print cch
End Sub
为什么cch取值为0,谁能告诉我,谢谢!

lights

Zero indicates that the window has no text.