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

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