如何用GetWindow函数来列举桌面上的窗口
编号：QA001065
建立日期: 1999年5月28日 最后修改日期：1999年5月28日
所属类别：
lauyh:
VB
Win98,nt
如何用GetWindow函数来列举桌面上的窗口？
回答:
我在1995年10期的《电子与电脑》杂志上发表了一篇文章《让窗口“浮出水面”》，其中对这个问题有详细的讨论，你可以找来一读。下面仅给出相关程序段：
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
此问题由李海回答。
| |
|
|
| |
|
|
