在易语言里，我要做一个能检测别的软件是否在运行软件，教教我

比如说QQ：我先打开QQ，再打开我做好的软件，打开之后显示QQ正在运行。我把QQ关了之后他又显示QQ没在运行。怎么做？？？
谢谢！！

DLL分部
.版本 2

.DLL命令 _创建快照, 整数型, , "CreateToolhelp32Snapshot"
    .参数 falg, 整数型
    .参数 id, 整数型

.DLL命令 _第一个, 整数型, , "Process32First"
    .参数 h, 整数型
    .参数 p, 进程信息_

.DLL命令 _关闭对象, 整数型, , "CloseHandle", 公开, kernel32.dll
    .参数 对象句柄, 整数型

.DLL命令 _下一个, 整数型, , "Process32Next"
    .参数 h, 整数型
    .参数 p, 进程信息_自定义数据类型
.版本 2

.数据类型 进程信息_, , 进程信息
    .成员 dwSize, 整数型
    .成员 cntUsage, 整数型
    .成员 进程ID, 整数型
    .成员 th32DefaultHeapID, 整数型
    .成员 th32ModuleID, 整数型
    .成员 cntThreads, 整数型
    .成员 th32ParentProcessID, 整数型
    .成员 pcPriClassBase, 整数型
    .成员 dwFlags, 整数型
    .成员 进程名称, 字节型, , "256"源码部分
.版本 2

.程序集 窗口程序集_启动窗口

.子程序 __启动窗口_创建完毕

输出调试文本 (进程是否存在 (“QQ.exe”))

.子程序 进程是否存在, 逻辑型, 公开, 判断指定进程是否存在(此判断与进程其它信息无关联)(存在返回真,不存在或失败返回假)
.参数 进程名, 文本型, , 欲检测的进程名(不区分大小写)
.局部变量 信息, 进程信息_
.局部变量 进程快照, 整数型
.局部变量 进程句柄, 整数型

进程快照 ＝ _创建快照 (15, 0)
.如果真 (进程快照 ＝ 0)
    返回 (假)
.如果真结束
信息.dwSize ＝ 1024
进程句柄 ＝ _第一个 (进程快照, 信息)
.判断循环首 (进程句柄 ≠ 0)
    .如果真 (信息.进程ID ≠ 0)
        .如果真 (到小写 (进程名) ＝ 到小写 (到文本 (信息.进程名称)))
            _关闭对象 (进程快照)
            返回 (真)
        .如果真结束

    .如果真结束
    进程句柄 ＝ _下一个 (进程快照, 信息)
.判断循环尾 ()
_关闭对象 (进程快照)
返回 (假)

先取进程列表数组。在遍历判断 也可以用模块