一个简单的禁止软件重复运行例程

sohoo

好像不错，学习了

〓压寨公子〓

怎么禁止的呢，下载下赖研究一下下了！！！

幽靈家族

看看你这方法简单不

新手姥

2个精币            

XunTr

生成一个空白文件，退出时删除不就行了！

﹏最后的拥抱へ

如果我把进程隐藏了呢

798924038

http://bbs.eyuyan.com/read.php?tid=374583   更简单的禁止重复运行。不是互斥体更不是进程检测

尔俾

如果我把进程隐藏了呢

汉族

我以前也搞过，给你分享我的思路吧，
------------------------------------------------------------

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕			编译后运行测试

禁止程序2次运行 (取执行文件名 ())

子程序名	返回值类型	公开	备 注
禁止程序2次运行	逻辑型		汉族—无聊之作
参数名	类 型	参考	可空	数组	备 注
程序	文本型
信息	文本型
标题	文本型

变量名	类 型	静态	数组	备 注
q	进程信息		0
w	整数型
a	整数型
j	逻辑型

清除数组 (q)
w ＝ 0
q ＝ 取系统进程列表 ()
计次循环首 (取数组成员数 (q), a)
判断 (程序 ＝ q [a].进程名称)
w ＝ w ＋ 1
如果真 (w ＝ 2)
判断 (信息 ＝ “” 且 标题 ＝ “”)
信息框 (“只能运行一个”, 0, , )
结束 ()
判断 (信息 ＝ “” 且 标题 ≠ “”)
信息框 (“只能运行一个”, 0, 标题, )
结束 ()
判断 (信息 ≠ “” 且 标题 ＝ “”)
信息框 (信息, 0, , )
结束 ()



j ＝ 真
j ＝ 假

计次循环尾 ()
返回 (j)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕, , , 编译后运行测试<br /> <br /> 禁止程序2次运行 (取执行文件名 ())<br /> <br /> .子程序 禁止程序2次运行, 逻辑型, , 汉族—无聊之作<br /> .参数 程序, 文本型<br /> .参数 信息, 文本型, 可空<br /> .参数 标题, 文本型, 可空<br /> .局部变量 q, 进程信息, , "0"<br /> .局部变量 w, 整数型<br /> .局部变量 a, 整数型<br /> .局部变量 j, 逻辑型<br /> <br /> 清除数组 (q)<br /> w ＝ 0<br /> q ＝ 取系统进程列表 ()<br /> .计次循环首 (取数组成员数 (q), a)<br />     .判断开始 (程序 ＝ q [a].进程名称)<br />         w ＝ w ＋ 1<br />         .如果真 (w ＝ 2)<br />             .判断开始 (信息 ＝ “” 且 标题 ＝ “”)<br />                 信息框 (“只能运行一个”, 0, , )<br />                 结束 ()<br />             .判断 (信息 ＝ “” 且 标题 ≠ “”)<br />                 信息框 (“只能运行一个”, 0, 标题, )<br />                 结束 ()<br />             .判断 (信息 ≠ “” 且 标题 ＝ “”)<br />                 信息框 (信息, 0, , )<br />                 结束 ()<br />             .默认<br /> <br />             .判断结束<br /> <br />         .如果真结束<br />         j ＝ 真<br />     .默认<br />         j ＝ 假<br />     .判断结束<br /> <br /> .计次循环尾 ()<br /> 返回 (j)

-----------------------------------------------------------------------------------

流氓9

==============