资源管理器(超文本浏览框)

资源管理器(超文本浏览框)

.版本 2
.支持库 HtmlView

.子程序 EnumChildProc, 逻辑型
.参数 hwnd, 整数型
.参数 lParam, 整数型
.局部变量 类名1, 文本型
.局部变量 标题1, 文本型

类名1 ＝ 取空白文本 (20)
GetClassNameA (hwnd, 类名1, 20)
.如果真 (类名1 ＝ “SysListView32”)
    标题1 ＝ 取空白文本 (20)
    GetWindowTextA (hwnd, 标题1, 20)
    .如果真 (标题1 ＝ “FolderView”)
        句柄 ＝ hwnd
        返回 (假)
    .如果真结束

.如果真结束
返回 (真)

.子程序 NewProc, 整数型
.参数 hwnd, 整数型
.参数 uMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.判断开始 (uMsg ＝ 515)
    .如果真 (取SysListView32项目选中状态 (hwnd, 取SysListView32选中项 (hwnd)) ＝ 0)
        返回 (1)
    .如果真结束
    tmp ＝ 超文本浏览框1.地址
    tmp ＝ 处理地址 (tmp) ＋ “” ＋ 取SysListView32项目标题 (hwnd, 取SysListView32选中项 (hwnd))
    .如果真 (文件是否存在 (tmp))
        PathRemoveFileSpecA (tmp)
    .如果真结束
    组合框1.内容 ＝ tmp
.判断 (uMsg ＝ 2)
    SetWindowLongA (句柄, -4, OldProc)  ' 每跳转一次地址，SysListView32都会被销毁一次，晕死！！！
    句柄 ＝ 0
    时钟1.时钟周期 ＝ 100
.默认

.判断结束
返回 (CallWindowProcA (OldProc, hwnd, uMsg, wParam, lParam))

@易语言学习论坛-凌晨孤星