代码如下
版本 2
支持库 shell
程序集 窗口程序集1
子程序 __启动窗口_创建完毕
时钟1时钟周期 = 1
执行 (4, 取运行目录 () + “\xxxexe”, , , ) ' 运行目录中你的“XXX程序”
子程序 _时钟1_周期事件
如果真 (进程_是否存在 (“xxxexe”) = 假) ' [进程_是否存在()]子程序需要下载精益模块,百度搜索精益论坛就可以找到
执行 (4, 取运行目录 () + “\xxxexe”, , , ) ' 监测你的“xxx程序”是否被关闭,如果被关闭,再次运行
如果真结束
#[进程_是否存在()]子程序需要下载精益模块,百度搜索精益论坛就可以找到
都不关DLL的事,是两个种序,算法不同就是代码不同只是把不同计算算法的代码,一个共同变量,,,如果是一个程序,我肯定就不发贴问了,是两个程序,别人都可以直接用脚本交换变量,不用搞辅Zhu那些。
代码如下
版本 2
支持库 shell
程序集 窗口程序集1
子程序 __启动窗口_创建完毕
时钟1时钟周期 = 1
执行 (4, 取运行目录 () + “\xxxexe”, , , ) ' 运行目录中你的“XXX程序”
子程序 _时钟1_周期事件
如果真 (进程_是否存在 (“xxxexe”) = 假) ' [进程_是否存在()]子程序需要下载精益模块,百度搜索精益论坛就可以找到
执行 (4, 取运行目录 () + “\xxxexe”, , , ) ' 监测你的“xxx程序”是否被关闭,如果被关闭,再次运行
如果真结束
#[进程_是否存在()]子程序需要下载精益模块,百度搜索精益论坛就可以找到。
'以下代码非原创
但可行
觉得拷贝无聊者请忽略
'代码定义了两个子程序一个解压一个压缩
版本
2
子程序
压缩_WinRAR_压缩,
文本型,
公开,
本命令需要安装WinRAR
被压缩的文件,
文本型,
数组,
文件和文件夹都可以
参数
压缩到文件,
文本型,
,
全路径和rar\zip文件名
参数
WinRAR地址,
文本型,
可空,
如果注册表内没有WinRAR的信息。但是安装了的。就需要写
例:C:\Program
Files\WinRAR\WinRARexe
局部变量
易团俊,
整数型
局部变量
被压缩信息,
文本型
易团俊
=
0
被压缩信息
=
“”
如果真
(是否为空
(WinRAR地址))
WinRAR地址
=
取文本注册项
(#本地机器,
“SOFTWARE\Microsoft\Windows\CurrentVersion\App
Paths\WinRARexe\”,
)
如果真结束
如果真
(WinRAR地址
=
“”)
返回
(“找不到WinRAR目录”)
如果真结束
计次循环首
(取数组成员数
(被压缩的文件),
易团俊)
被压缩信息
=
被压缩信息
+
“
”
+
被压缩的文件
[易团俊]
计次循环尾
()
运行
(WinRAR地址
+
“
a
-ep1
-scul
-r0
-iext
”
+
压缩到文件
+
被压缩信息,
真,
)
返回
(“”)
子程序
压缩_WinRAR_解压,
文本型,
公开,
本命令需要安装WinRAR
参数
压缩文件,
文本型,
,
全路径和rar\zip文件名
参数
解压到文件夹,
文本型,
,
文件夹全路径
参数
WinRAR地址,
文本型,
可空,
如果注册表内没有WinRAR的信息。但是安装了的。就需要写
例:C:\Program
Files\WinRAR\WinRARexe
如果真
(是否为空
(WinRAR地址))
WinRAR地址
=
取文本注册项
(#本地机器,
“SOFTWARE\Microsoft\Windows\CurrentVersion\App
Paths\WinRARexe\”,
)
如果真结束
如果真
(WinRAR地址
=
“”)
返回
(“找不到WinRAR目录”)
如果真结束
运行
(WinRAR地址
+
“
x
-iext
-ow
-er
”
+
压缩文件
+
“
”
+
解压到文件夹,
真,
)
返回
(“”)
使用精易模块里面的 “进程_创建” 子程序。
子程序名:进程_创建
创建一个程序进程(成功返回进程ID,失败返回0)
返回值类型:整数型
参数<1>的名称为“程序路径”,类型为“文本型”。注明:欲创建进程的执行路径。
参数<2>的名称为“命令行”,类型为“文本型”,允许接收空参数数据。注明:附加上程序路径后的命令行参数。
参数<3>的名称为“运行目录”,类型为“文本型”,允许接收空参数数据。注明:通常留空,特殊情况下使用。
参数<4>的名称为“进程结构”,类型为“精易_进程结构”,接收参数数据时采用参考传递方式,允许接收空参数数据。注明:接收进程结构信息的变量,如果不为空,产品的句柄用CloseHandle函数释放。
以上就是关于易语言编程怎么让一个程序使用另一个程序全部的内容,包括:易语言编程怎么让一个程序使用另一个程序、两个易语言程序1.变量如何交换使用2.如何从另一程序调用另程序的子程序、易语言调用外部程序如何调用WINRAR压缩和解压文件!等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)