社区
VB基础类
帖子详情
enumwindow函数为什么无法遍历窗口
menuvb
2003-04-10 09:46:14
EnumWindows AddressOf EnumProc, 0 '遍查窗口
为什么我只能查找出一个,放在TIME事件也不行,!
...全文
141
3
打赏
收藏
enumwindow函数为什么无法遍历窗口
EnumWindows AddressOf EnumProc, 0 '遍查窗口 为什么我只能查找出一个,放在TIME事件也不行,!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
3 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
叶帆
2003-04-10
打赏
举报
回复
Public Function GetZiWin(window_hwnd As Long) As String
Dim buflen As Long
Dim child_hwnd As Long
Dim children() As Long
Dim num_children As Integer
Dim i As Integer
'取得类名
buflen = 256
buf = Space$(buflen - 1)
buflen = GetClassName(window_hwnd, buf, buflen)
buf = Left$(buf, buflen)
If Right(buf, 4) = "Edit" Then
'----------
hWindow = window_hwnd
'----------
Exit Function
Else
hWindow = 0
End If
num_children = 0
child_hwnd = GetWindow(window_hwnd, GW_CHILD) '取得第 1 个子窗口的句柄
Do While child_hwnd <> 0 '如果有子窗口
num_children = num_children + 1
ReDim Preserve children(1 To num_children)
children(num_children) = child_hwnd
child_hwnd = GetWindow(child_hwnd, GW_HWNDNEXT) '取得下一个兄弟窗口的句柄
Loop
For i = 1 To num_children
Call GetZiWin(children(i))
Next i
End Function
Public Function EnumProc(ByVal app_hwnd As Long, ByVal lParam As Long) As Boolean '遍查主窗口
Dim buf As String * 1024
Dim length As Long
Dim Title As String
length = GetWindowText(app_hwnd, buf, Len(buf))
Title = Left$(buf, length)
If InStr(Title, "发送消息") Then '判断是否为
Call GetZiWin(app_hwnd)
End If
EnumProc = 1
End Function
wumy_ld
2003-04-10
打赏
举报
回复
up
佛的光辉
2003-04-10
打赏
举报
回复
EnumProc代码怎么写的
Enum
Window
s
遍历
所有
窗口
OutputDebugString("hwnd 这是一个子
窗口
"); return TRUE; } BOOL CALLBACK
Enum
Window
sProc(HWND hwnd,LPARAM lParam) { DWORD dwPid = 0; Get
Window
ThreadProcessId(hwnd, &dwPid); // 获取
窗口
所属的...
c++
遍历
桌面所有
窗口
/
遍历
一个
窗口
下的所有
窗口
//
遍历
一个
窗口
下的所有子
窗口
BOOL CALLBACK
Enum
ChildProc(HWND hwnd, LPARAM lParam) { LPWSTR lpString = (LPWSTR)malloc(1024 * sizeof(WCHAR)); LPWSTR ClassString = (LPWSTR)malloc(1024 * sizeof...
查找标题已知的
窗口
句柄,
遍历
窗口
控件句柄
其实想要找到一个标题已知的
窗口
句柄,用一个API
函数
就可以了:Find
Window
. 其
函数
原形是: function Find
Window
(lpClassName, lp
Window
Name: PChar): HWND; stdcall; lpClassName:
窗口
类名.如果只知道标题,可以为空...
Delphi 查找标题已知的
窗口
句柄,
遍历
窗口
控件句柄
查找标题已知的
窗口
句柄,
遍历
窗口
控件 有了回调
函数
的概念及上面的例子,我们可以继续了。其实想要找到一个标题已知的
窗口
句柄,用一个API
函数
就可以了:Find
Window
. 其
函数
原形是: function Find
Window
...
Delphi 查找标题已知的
窗口
句柄,
遍历
窗口
控件句柄(转)
这个
函数
和
Enum
Window
函数
很有些想象.其作用也很相似.它的功能就是列举
窗口
句柄为hWndParent的窗体上所有的
窗口
控件的句柄.同样也是以回调
函数
参数的形式给出的. 我们再举一个实际的例子,来说明这个
函数
的用法....
VB基础类
7,763
社区成员
197,609
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章