想法没错、、、首先编辑框中的内容要作为窗口1的收件地址,你只需要创建一个全局变量就OK了。
.版本 2
.程序集 窗口程序集1
.程序集变量 文件号, 整数型
.子程序 __启动窗口_创建完毕
文件号 = 打开文件 (取运行目录 () + “\123.txt”, #读入, )
.如果真 (文件号 ≠ 0)
编辑框1.内容 = 读入文本 (文件号, )
.如果真结束
关闭文件 (文件号)
.子程序 _保存_被单击
文件号 = 打开文件 (取运行目录 () + “\123.txt”, #重写, )
写出文本 (文件号, 编辑框1.内容)
关闭文件 ()
收信地址 = 编辑框1.内容
以上是窗口4中的代码
在窗口1中你也可以添加以下代码
.版本 2
.子程序 __启动窗口_创建完毕
文件号 = 打开文件 (取运行目录 () + “\123.txt”, #读入, )
.如果真 (文件号 ≠ 0)
收信地址 = 读入文本 (文件号, )
.如果真结束
关闭文件 (文件号)
根据你的要求,源码如下。。
运行
(“C:\你的reg路径.reg”,
真,
)
'
这句运行reg,并等待完毕
运行
(“C:\你的PS路径.exe”,
假,
)
'
这句打开你的ps
结束
()
'
这句关闭
说个最简单得方法:两个编辑框加上两个按钮再加个执行的命令!按钮一执行编辑框一的内容,按钮二执行编辑框二!编辑框一、二的内容分别填上要打开的那两个程序的路径!就OK了!
.版本2.支持库spec.支持库xplib
.程序集窗口程序集1
.子程序_按钮1_被单击.局部变量abc,文本型.局部变量根号位置,整数型.局部变量点位置,整数型.局部变量文件名标题,文本型.局部变量按钮1按过
通用对话框1.打开()abc=通用对话框1.文件名编辑框1.内容=abc根号位置=倒找文本(编辑框1.内容,“\”,,假)+1
'找到文件名标题开头位置,
1表示"\"的下一个字符点位置=倒找文本(编辑框1.内容,“.”,,假)
'找到扩展名点位置点位置=选择(点位置=-1,取文本长度(编辑框1.内容)+1,点位置)
'如果没有扩展名就取文件名长度文件名标题=取文本中间(编辑框1.内容,根号位置,点位置-根号位置)
'取出文件名标题调试输出(文件名标题)
.子程序_按钮3_被单击.局部变量abc,文本型.局部变量根号位置,整数型.局部变量点位置,整数型.局部变量文件名标题,文本型.局部变量按钮1按过
通用对话框1.打开()abc=通用对话框1.文件名
编辑框2.内容=abc根号位置=倒找文本(编辑框2.内容,“\”,,假)+1
'找到文件名标题开头位置,
1表示"\"的下一个字符点位置=倒找文本(编辑框2.内容,“.”,,假)
'找到扩展名点位置点位置=选择(点位置=-1,取文本长度(编辑框2.内容)+1,点位置)
'如果没有扩展名就取文件名长度文件名标题=取文本中间(编辑框2.内容,根号位置,点位置-根号位置)
'取出文件名标题调试输出(文件名标题)
.子程序_按钮2_被单击
.如果(按钮4.可视=假)
_按钮4_被单击().否则
.如果结束
运行(到文本(编辑框1.内容),假,)
.子程序_按钮4_被单击
运行(到文本(编辑框2.内容),假,)
.子程序__启动窗口_创建完毕
XP风格(1)
编辑框的内容只能显示文本型的数据,所以
在等号后加上到文本()这个命令就行了。如编辑框1.内容=到文本(到数值(xx)/到数值(xx))
载入( 窗口1
,
,
假)
把原来是真的改为假就行了.