e语言-资源管理器(超文本浏览框)

资源管理器(超文本浏览框).版本 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))