|
发表于 2010-6-16 11:38:43
|
显示全部楼层
吉林省长春市
我也来交个作业
做的不是很好- .版本 2
- .支持库 eAPI
- .程序集 窗口程序集1
- .子程序 __启动窗口_创建完毕
- .局部变量 进程列表, 进程信息, , "0"
- .局部变量 本程序进程名, 文本型
- .局部变量 计次, 整数型
- .局部变量 全部进程, 文本型
- .局部变量 第一次查找, 整数型
- .局部变量 第二次查找, 整数型
- 进程列表 = 取系统进程列表 ()
- 本程序进程名 = 取执行文件名 ()
- .计次循环首 (取数组成员数 (进程列表), 计次)
- 全部进程 = 全部进程 + 进程列表 [计次].进程名称
- .计次循环尾 ()
- 第一次查找 = 寻找文本 (全部进程, 本程序进程名, , 真)
- 第二次查找 = 寻找文本 (全部进程, 本程序进程名, 第一次查找 + 2, 真)
- .如果真 (第二次查找 > 第一次查找)
- 信息框 (“该程序正在运行中...” + #换行符 + “请不要重复运行...”, #警告图标, “提示信息”)
- 结束 ()
- .如果真结束
复制代码
禁止重复运行.rar
(1.14 KB, 下载次数: 44)
|
评分
-
查看全部评分
|