易语言取取鼠标所在目录源码

.版本 2 .支持库 EThread .程序集 窗口程序集_启动窗口 .子程序 __启动窗口_创建完毕 启动线程 (&子程序1, , ) .子程序 子程序1 .局部变量 H, 文本型 .判断循环首 (真) H = 取鼠标所在目录 () .如果真 (H ≠ “错误”) 编辑框1.加入文本 (H + #换行符) .如果真结束 .判断循环尾 () .子程序 取鼠标所在目录, 文本型 .局部变量 子窗口数组, 整数型, , "0" .局部变量 i, 整数型 .局部变量 句柄, 整数型 .局部变量 H, 文本型 .局部变量 类名, 文本型 句柄 = 窗口_取祖句柄 (窗口_取鼠标处窗口句柄 ()) 类名 = 窗口_取类名 (句柄) .判断开始 (类名 = “CabinetWClass”) 窗口_枚举所有子窗口 (句柄, 子窗口数组, ) .计次循环首 (取数组成员数 (子窗口数组), i) .如果真 (窗口_取类名 (子窗口数组 [i]) = “ToolbarWindow32”) H = 窗口_取标题 (子窗口数组 [i]) .判断开始 (文本_寻找文本 (H, “地址:”, , 假) ≠ -1) 返回 (取文本右边 (H, 取文本长度 (H) - 5)) 跳出循环 () .默认 到循环尾 () .判断结束 .如果真结束 .计次循环尾 () .判断 (文本_寻找文本 (类名, “Progman”, , 假) ≠ -1 或 文本_寻找文本 (类名, “WorkerW”, , 假) ≠ -1) 返回 (“桌面”) .默认 .判断结束 返回 (“错误”)
相关文件下载地址
©下载资源版权归作者所有;本站所有资源均来源于网络,仅供学习使用,请支持正版!

易语言取取鼠标所在目录源码》有0个想法

发表回复

您的电子邮箱地址不会被公开。 必填项已用 * 标注