随机点名软件当前为正式版

易语言 2020-02-26 17:44:35

随机点名软件当前为正式版

进程 = 取系统进程列表 ()
.计次循环首 (取数组成员数 (进程), i)
.如果真 (i > 1)
.如果真 (进程 [i].进程名称 = 取执行文件名 ())
数量 = 数量 + 1
.如果真结束

.如果真结束

.计次循环尾 ()
.如果真 (数量 ≥ 2)
信息框 (“您的电脑已经有本软件正在运行,不需要再重复运行本软件!”, 0, “毒蝎科技提醒:”, )
结束 ()
.如果真结束
窗口1.可视 = 假 ' 毒蝎科技
置托盘图标 (#图片1, “毒蝎科技-随机点名” + #换行符 + “当前状态:离线” + #换行符 + “当前为正式版”)