鼠标点击某个文件，自动获取到该文件的完整路径

wxhpk9999 · 发表于 2021-7-12 20:39:27

一个小学生666 · 发表于 2021-7-12 20:53:52

.版本 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)
返回 (“桌面”)
.默认

.判断结束
返回 (“错误”)

wxhpk9999 · 发表于 2021-7-12 20:58:04

一个小学生666 发表于 2021-7-12 20:53
.版本 2
.支持库 EThread

不行啊，执行不了。能写一个源码吗

wxhpk9999 · 发表于 2021-7-25 16:27:00

？？？？？？？？？？？？？？？？？？？？？？？？？？

杰西卡技术传媒 · 发表于 2021-7-25 22:55:04

我也想要，解决了没有

wxhpk9999 · 发表于 2021-7-26 09:08:35

杰西卡技术传媒发表于 2021-7-25 22:55
我也想要，解决了没有

没有解决。。。。。。。。。。。。。。。。。。。

杰西卡技术传媒 · 发表于 2021-7-26 11:20:00

wxhpk9999 发表于 2021-7-26 09:08
没有解决。。。。。。。。。。。。。。。。。。。

如果关联文件后续我到是可以取到

wxhpk9999 · 发表于 2021-7-26 14:42:41

杰西卡技术传媒发表于 2021-7-26 11:20
如果关联文件后续我到是可以取到

不关联，我只是单纯的想要让鼠标单击任意文件夹里面文件或者磁盘里面的文件，获取该文件的完全路径。

wxhpk9999 · 发表于 2021-8-20 16:44:17

无法完成

杰西卡技术传媒 · 发表于 2021-8-27 22:30:29

一个小学生666 发表于 2021-7-12 20:53
.版本 2
.支持库 EThread

这个是取文件夹窗口标题

		自动登录	找回密码
密码			注册

[精币悬赏] 鼠标点击某个文件，自动获取到该文件的完整路径