c语言lvm取鼠标所在表项,易语言取取鼠标所在目录源码

.版本 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)

返回 (“桌面”)

.默认

.判断结束

返回 (“错误”)

@BXV

文件下载

解压密码：

来源：三叶资源网，欢迎分享，公众号：iisanye，(三叶资源网⑤群：21414575)