网站首页 > 易语言相关 > 系统工具源码 正文
资源管理器(超文本浏览框)
.版本 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))
@易语言学习论坛-凌晨孤星
- 上一篇: 自定义鼠标光标源码
- 下一篇: 资源管理器看家猫1.0
猜你喜欢
- 2018-10-13 资源管理器看家猫1.0
你 发表评论:
欢迎- 百度站内搜索
- 关注微信公众号
- 网站分类
-
- 网站公告
- 电子书书籍
- 程序员工具箱
- 编程工具
- 易语言相关
- 网络相关源码
- 图形图像源码
- 系统工具源码
- 易语言模块源码
- 易语言支持库
- 数据库类源码
- 易语言例程
- 易语言游戏开发
- 易语言模块
- 多媒体类源码
- 易语言资源网
- 易语言视频教程
- JS分析教程
- 易语言图文教程
- 易语言常见问题及笔记
- 工具源码
- 易语言版本
- 网络编程
- javascript
- PHP编程
- html
- 正则表达式
- 面试题
- nodejs
- 其它综合
- 脚本专栏
- python
- 按键精灵相关
- 按键精灵图文教程
- 按键精灵视频教程
- 按键精灵Q语言
- 按键精灵安卓版
- golang
- 游戏安全
- 火山相关
- 火山安卓软件
- 火山常见问题及笔记
- 火山安卓源码
- 火山视频教程
- 火山PC版本下载
- 火山PC视窗例程
- 互联网那些事
- 引流推广
- 项目揭秘
- 网络营销
- 营销软件
- QQ营销软件
- 娱乐软件
- 机器人插件
- 培训教程
- 技术教程
- 活动线报
- 数据库
- Redis
- Access
- MongoDB
- Mysql
- 问答
- 其它
- 易语言
- 需求
- 在线教程
- 多线程培训班
- 觅风易语言教程
- 模拟系列教程
- 集中营易语言教程
- 历史数据
- 随机tag
已有3位网友发表了看法:
易语言网站 评论于 [2019-06-27 08:01:39] 回复
超文本浏览框 按键精灵 易语言
易语言TV 评论于 [2019-10-01 14:58:15] 回复
易语言资源管理器
易语言例程 评论于 [2020-06-05 21:05:01] 回复
易语言超文本浏览框资源管理