求助！！怎么通过指定名字进程获取到该程序的路径

蔡徐坤666

LEOONL 发表于 2024-8-14 00:44
代码没错，我也测试过了是可行的，应该是你电脑问题，调试输出进程ID和取出的路径看看 ...

可以了，
如果再加多个 窗口 销毁
删除写入的这个文件命令呢

LEOONL

蔡徐坤666 发表于 2024-8-14 01:22
可以了，
如果再加多个 窗口 销毁
删除写入的这个文件命令呢

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
写到路径	文本型

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
进程名	文本型

进程名 ＝ “1.exe”
如果 (进程_是否存在 (进程名))
写到路径 ＝ 子文本替换 (进程_取程序路径 (进程_名取ID (进程名)), 进程名, , , , 真) ＋ “2.exe”
写到文件 (写到路径, #资源 )
信息框 (“进程不存在”, 0, , )

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

删除文件 (写到路径)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 写到路径, 文本型<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 进程名, 文本型<br /> <br /> 进程名 ＝ “1.exe”<br /> .如果 (进程_是否存在 (进程名))<br />     写到路径 ＝ 子文本替换 (进程_取程序路径 (进程_名取ID (进程名)), 进程名, , , , 真) ＋ “2.exe”<br />     写到文件 (写到路径, #资源)<br /> .否则<br />     信息框 (“进程不存在”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 删除文件 (写到路径)

憨憨问号

精易模块：
进程_PID取路径（进程_名取ID（“你要的进程名”））
拿走不谢

chenyuqi1230

.版本 2
.支持库 spec

.程序集 窗口程序集_启动窗口
.程序集变量 进程获取, 文本型

.子程序 __启动窗口_创建完毕

进程获取 ＝ 进程_取程序路径 (进程_名取ID (“QQ.exe”, ))
调试输出 (进程获取)
.判断开始 (进程_是否存在 (进程获取) ＝ 假)
    进程获取 ＝ 子文本替换 (进程获取, “QQ.exe”, “resources”, , , 真) ＋ “\”
    调试输出 (进程获取)
    写到文件 (进程获取 ＋ “app.zip”, #资源)

.默认

.判断结束

chenyuqi1230

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
进程获取	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

进程获取 ＝ 进程_取程序路径 (进程_名取ID (“QQ.exe”, ))
调试输出 (进程获取)
判断 (进程_是否存在 (进程获取) ＝ 假)
进程获取 ＝ 子文本替换 (进程获取, “QQ.exe”, “resources”, , , 真) ＋ “\”
调试输出 (进程获取)
写到文件 (进程获取 ＋ “app.zip”, #资源 )

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 进程获取, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 进程获取 ＝ 进程_取程序路径 (进程_名取ID (“QQ.exe”, ))<br /> 调试输出 (进程获取)<br /> .判断开始 (进程_是否存在 (进程获取) ＝ 假)<br />     进程获取 ＝ 子文本替换 (进程获取, “QQ.exe”, “resources”, , , 真) ＋ “\”<br />     调试输出 (进程获取)<br />     写到文件 (进程获取 ＋ “app.zip”, #资源)<br /> <br /> .默认<br /> <br /> .判断结束

chenyuqi1230

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
进程获取	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

进程获取 ＝ 进程_取程序路径 (进程_名取ID (“QQ.exe”, ))
调试输出 (进程获取)
判断 (进程_是否存在 (进程获取, ) ＝ 假)
进程获取 ＝ 子文本替换 (进程获取, “QQ.exe”, “这里改目录名”, , , 真) ＋ “\”  ' 默认情况下，获取到了的进程是D:\yuyin\QQ.exe,我们需要转换一下，去写到他路径下面
调试输出 (进程获取)
写到文件 (进程获取 ＋ “资源名.后缀”, #资源 )  ' 你的资源是什么格式，记得写后缀，不然无法打开。写的很详细了，不懂就写调试输出

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 进程获取, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 进程获取 ＝ 进程_取程序路径 (进程_名取ID (“QQ.exe”, ))<br /> 调试输出 (进程获取)<br /> .判断开始 (进程_是否存在 (进程获取, ) ＝ 假)<br />     进程获取 ＝ 子文本替换 (进程获取, “QQ.exe”, “这里改目录名”, , , 真) ＋ “\”  ' 默认情况下，获取到了的进程是D:\yuyin\QQ.exe,我们需要转换一下，去写到他路径下面<br />     调试输出 (进程获取)<br />     写到文件 (进程获取 ＋ “资源名.后缀”, #资源)  ' 你的资源是什么格式，记得写后缀，不然无法打开。写的很详细了，不懂就写调试输出<br /> <br /> .默认<br /> <br /> .判断结束

写了备注，看着改

anyuezhiji

蔡徐坤666 发表于 2024-8-14 00:40
看图 写入没效果  资源1也添加有东西了 哪里出错了

#资源1 必须是路径，并且文件夹存在
如果文件夹不存在，得先创建对应文件夹

anyuezhiji

anyuezhiji 发表于 2024-8-14 08:35
#资源1 必须是路径，并且文件夹存在
如果文件夹不存在，得先创建对应文件夹 ...

〈逻辑型〉 写到文件 （文本型 文件名，字节集 欲写入文件的数据，... ）
你是不是写反了？？

anyuezhiji

好吧，你想写资源到该路径下，那没应该是没问题的
测试了下，代码完全没问题
你是不是没点击按钮

不二猫猫

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
pid	整数型
路径	文本型
目录	文本型

pid ＝ 进程_名取ID (“QQ.exe”, )  ' 通过进程名取进程ID；失败返回0
判断 (pid ＝ 0)  ' 判断有没有取到
调试输出 (“QQ不存在”)  ' 提示没有取到，跳过下面的代码
调试输出 (“已经取到了开始运行代码”)  ' 提示取到了开始跑代码
' 取到了，开始跑代码
路径 ＝ 进程_取程序路径 (pid)  ' 取路径（C:\Program Files\Tencent\QQ.exe）
目录 ＝ 目录_取父路径 (路径)  ' 取目录（C:\Program Files\Tencent\）
写到文件 (目录 ＋ “123.exe”, #资源 )  ' 写出资源（C:\Program Files\Tencent\123.exe）

返回 (0)  ' 可以根据您的需要返回任意数值

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 pid, 整数型<br /> .局部变量 路径, 文本型<br /> .局部变量 目录, 文本型<br /> <br /> pid ＝ 进程_名取ID (“QQ.exe”, )  ' 通过进程名取进程ID；失败返回0<br /> .判断开始 (pid ＝ 0)  ' 判断有没有取到<br />     调试输出 (“QQ不存在”)  ' 提示没有取到，跳过下面的代码<br /> .默认<br />     调试输出 (“已经取到了开始运行代码”)  ' 提示取到了开始跑代码<br />     ' 取到了，开始跑代码<br />     路径 ＝ 进程_取程序路径 (pid)  ' 取路径（C:\Program Files\Tencent\QQ.exe）<br />     目录 ＝ 目录_取父路径 (路径)  ' 取目录（C:\Program Files\Tencent\）<br />     写到文件 (目录 ＋ “123.exe”, #资源)  ' 写出资源（C:\Program Files\Tencent\123.exe）<br /> <br /> .判断结束<br /> <br /> 返回 (0)  ' 可以根据您的需要返回任意数值

通过进程名字取程序目录并写出资源.e (152.51 KB, 下载次数: 2)

2024-8-14 09:13 上传

点击文件名下载附件


补充内容 (2024-8-14 09:15):
#资源  记得自己去图片资源里面添加