运行(取运行目录()+"\1.exe")
如果你要把你想运行的这个1.exe加到你的程序里,可以先把这个1.exe放到图片资源里,比如在图片资源里的名字是 图片1,你可以先把他创建,在运行。例子:
写到文件(取运行目录()+"\1.exe",#图片1)
运行(取运行目录()+"\1.exe")
呃..楼主,不太明白你问题所说的是神马意思。您是说用您编译的软件,不指定路径,打开电脑里你想打开的exe软件吧..?如果是这样我有3种方法:
1.在程序内写好运行路径,打开编译好的程序后直接打开。
运行
(“要运行exe的路径”,
假,
)
如:运行
(“C:\Program
Files\Tencent\QQ\Bin\QQ.exe”,
假,
)
如果不是这种,而是知道某个exe名不需要路径想打开它,请参考第二种:
2.在编辑框内输入文件名,自动搜索并打开。
.版本
2
.支持库
EThread
.程序集
窗口程序集1
.程序集变量
线程,
整数型
.子程序
_按钮1_被单击
编辑框2.内容
=
“”
启动线程
(&创建线程,
,
线程)
.子程序
__启动窗口_创建完毕
编辑框2.是否允许多行
=
真
编辑框2.滚动条
=
3
.子程序
创建线程
文件搜索
(“C:\”,
编辑框1.内容)
文件搜索
(“D:\”,
编辑框1.内容)
文件搜索
(“E:\”,
编辑框1.内容)
'
若还有其他盘还可以继续添加
关闭线程句柄
(线程)
.子程序
文件搜索
.参数
目录名,
文本型
.参数
文件名,
文本型,
可空
.局部变量
寻找结果,
文本型
.如果真
(目录名
=
“”)
信息框
(“目录名不能为空”,
0,
)
返回
()
.如果真结束
.如果真
(文件名
=
“”)
文件名
=
“*.*”
.如果真结束
.如果真
(取文本右边
(目录名,
1)
≠
“\”)
目录名
=
目录名
+
“\”
.如果真结束
寻找结果
=
寻找文件
(目录名
+
文件名,
)
.判断循环首
(寻找结果
≠
“”)
编辑框2.加入文本
(目录名
+
寻找结果
+
“
”
+
#换行符)
寻找结果
=
寻找文件
(,
)
.判断循环尾
()
寻找结果
=
寻找文件
(目录名
+
“*.*”,
#子目录)
.判断循环首
(寻找结果
≠
“”)
.如果真
(寻找结果
≠
“.”
且
寻找结果
≠
“..”)
文件搜索
(目录名
+
寻找结果,
文件名)
.如果真结束
寻找结果
=
寻找文件
(,
#子目录)
.判断循环尾
()
-----------------------------------------------------
如果只是想单纯地不提供路径打开文件,推荐用第三种方法:
3.自动搜索文件并且打开。
启动线程
(&创建线程,
,
线程)
.子程序
创建线程
文件搜索
(“C:\”,“你要打开的文件”)
文件搜索
(“D:\”,“你要打开的文件”)
文件搜索
(“E:\”,“你要打开的文件”)
文件搜索
(“F:\”,“你要打开的文件”)
'
若还有其他盘还可以继续添加
关闭线程句柄
(线程)
.子程序
文件搜索
.参数
目录名,
文本型
.参数
文件名,
文本型,
可空
.局部变量
寻找结果,
文本型
.如果真
(目录名
=
“”)
信息框
(“目录名不能为空”,
0,
)
返回
()
.如果真结束
.如果真
(文件名
=
“”)
文件名
=
“*.*”
.如果真结束
.如果真
(取文本右边
(目录名,
1)
≠
“\”)
目录名
=
目录名
+
“\”
.如果真结束
寻找结果
=
寻找文件
(目录名
+
文件名,
)
.判断循环首
(寻找结果
≠
“”)
寻找结果
=
寻找文件
(,
)
.判断循环尾
()
寻找结果
=
寻找文件
(目录名
+
“*.*”,
#子目录)
.判断循环首
(寻找结果
≠
“”)
.如果真
(寻找结果
≠
“.”
且
寻找结果
≠
“..”)
文件搜索
(目录名
+
寻找结果,
文件名)
.如果真结束
寻找结果
=
寻找文件
(,
#子目录)
.判断循环尾
()
运行
(“你要打开的文件名字”,
假,
)
或者
运行
(寻找结果,
假,
)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)