如何用getwindow函数来列举桌面上的窗口.txt

来自「VB技巧问答10000例,是一个教程」· 文本 代码 · 共 18 行

 下 面 仅 给 出 相 关 程 序 段 ： 
     Dim RenHWND As Integer, WinText As String * 256 
     t% = 0: lstWindows.Clear 
     RenHWND = GetWindow(frmTop.hWnd, GW_HWNDFIRST) 
     Do 
     i% = GetWindowText(RenHWND, WinText, 256) 
     If i% <> 0 Then 
     l% = GetWindowTextLength(RenHWND) 
     If Left$(WinText, l%) <> frmTop.Caption And Left$(WinText, l%) <> App.Title Then 
     lstWindows.AddItem WinText: ReDim Preserve winHWND(t%) As Integer 
     winHWND(t%) = RenHWND: t% = t% + 1 
     End If 
     End If 
     RenHWND = GetWindow(RenHWND, GW_HWNDNEXT) 
     Loop Until RenHWND = 0 
     lstWindows.ListIndex = 0 
<END>