易语言判断是否重复运行模块源码

系统结构:是否重复运行1,是否重复运行2,显示窗口,置属性列项,API_释放互斥体,API_取错误信息,API_关闭内核对象,API_创建一个互斥体,API_置属性列项,API_取得窗口,API_取屏幕句柄,API_取属性列项,API_判断窗口最小化,API_设为前台窗口,API_显示窗口,API_创建事件对象,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 是否重复运行1
           |  |
           |  |------ 是否重复运行2
           |  |
           |  |------ 显示窗口
           |  |
           |  |------ 置属性列项
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_释放互斥体
           |  |
           |  |---[dll]------   API_取错误信息
           |  |
           |  |---[dll]------   API_关闭内核对象
           |  |
           |  |---[dll]------   API_创建一个互斥体
           |  |
           |  |---[dll]------   API_置属性列项
           |  |
           |  |---[dll]------   API_取得窗口
           |  |
           |  |---[dll]------   API_取屏幕句柄
           |  |
           |  |---[dll]------   API_取属性列项
           |  |
           |  |---[dll]------   API_判断窗口最小化
           |  |
           |  |---[dll]------   API_设为前台窗口
           |  |
           |  |---[dll]------   API_显示窗口
           |  |
           |  |---[dll]------   API_创建事件对象

调用的DLL命令:

.DLL命令 API_释放互斥体, 整数型, "kernel32", "ReleaseMutex"
    .参数 hMutex, 整数型

.DLL命令 API_取错误信息, 整数型, , "GetLastError", , 针对之前调用的api函数，用这个函数取得扩展错误信息（在vb里使用：在vb中，用Err对象的GetLastError属性获取GetLastError的值。这样做是必要的，因为在api调用返回以及vb调用继续执行期间，vb有时会重设GetLastError的值）  由api函数决定。请参考api32.txt文件，其中列出了一系列错误常数；都以ERROR_前缀起头。常用的错误代码见下表

.DLL命令 API_关闭内核对象, 整数型, "kernel32", "CloseHandle", , 关闭一个内核对象。其中包括文件、文件映射、进程、线程、security和同步对象等。涉及文件处理时，这个函数通常与vb的close命令相似。应尽可能的使用close，因为它支持vb的差错控制。注意这个函数使用的文件句柄与vb的文件编号是完全不同的  非零表示成功，零表示失败。会设置GetLastError
    .参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;

.DLL命令 API_创建一个互斥体, 整数型, "kernel32", "CreateMutexA", , 创建一个互斥体（MUTEX）  如执行成功，就返回互斥体对象的句柄；零表示出错。会设置GetLastError。即使返回的是一个有效句柄，但倘若指定的名字已经存在，GetLastError也会设为ERROR_ALREADY_EXISTS
    .参数 互斥体结构, 整数型, , SECURITY_ATTRIBUTES，指定一个SECURITY_ATTRIBUTES结构，或传递零值（将参数声明为ByVal As 并传递零值），表示使用不允许继承的默认描述符
    .参数 拥有互斥体, 整数型, , 如创建进程希望立即拥有互斥体，则设为TRUE。一个互斥体同时只能由一个线程拥有
    .参数 互斥体对象的名字, 文本型, 传址, 指定互斥体对象的名字。用vbNull创建一个未命名的互斥体对象。如已经存在拥有这个名字的一个事件，则打开现有的已命名互斥体。这个名字可能不与现有的事件、信号机、可等待计时器或文件映射相符;

.DLL命令 API_置属性列项, 整数型, "user32", "SetPropA", , 增加或修改属性列项
    .参数 hwnd, 整数型
    .参数 lpString, 文本型
    .参数 hData, 整数型

.DLL命令 API_取得窗口, 整数型, "user32", "GetWindow", , 获得一个窗口的句柄，该窗口与某源窗口有特定的关系  由wCmd决定的一个窗口的句柄。如没有找到相符窗口，或者遇到错误，则返回零值。会设置GetLastError
    .参数 源窗口, 整数型, , 源窗口
    .参数 关系, 整数型, , 指定结果窗口与源窗口的关系，它们建立在下述常数基础上：;GW_CHILD：寻找源窗口的第一个子窗口;GW_HWNDFIRST：为一个源子窗口寻找第一个兄弟（同级）窗口，或寻找第一个顶级窗口;GW_HWNDLAST：为一个源子窗口寻找最后一个兄弟（同级）窗口，或寻找最后一个顶级窗口;GW_HWNDNEXT：为源窗口寻找下一个兄弟窗口;GW_HWNDPREV：为源窗口寻找前一个兄弟窗口;GW_OWNER：寻找窗口的所有者;

.DLL命令 API_取屏幕句柄, 整数型, "user32", "GetDesktopWindow", , 获得代表整个屏幕的一个窗口（桌面窗口）句柄  桌面窗口的句柄

.DLL命令 API_取属性列项, 整数型, "user32", "GetPropA", , 从窗口属性表列中返回数据句柄
    .参数 hwnd, 整数型
    .参数 lpString, 文本型

.DLL命令 API_判断窗口最小化, 整数型, "user32", "IsIconic", , 判断窗口是否已最小化  非零表示成功，零表示失败
    .参数 窗口句柄, 整数型, , 待检测窗口的句柄;

.DLL命令 API_设为前台窗口, 整数型, "user32", "SetForegroundWindow", , 将窗口设为系统的前台窗口。这个函数可用于改变用户目前正在操作的应用程序  非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 带到前台的窗口;

.DLL命令 API_显示窗口, 整数型, "user32", "ShowWindow", , 控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）  如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）
    .参数 hwnd, 整数型, , 窗口句柄，要向这个窗口应用由nCmdShow指定的命令
    .参数 nCmdShow, 整数型, , 为窗口指定可视性方面的一个命令。请用下述任何一个常数;SW_HIDE：隐藏窗口，活动状态给令一个窗口;SW_MINIMIZE：最小化窗口，活动状态给令一个窗口;SW_RESTORE：用原来的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOW：用当前的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOWMAXIMIZED：最大化窗口，并将其激活;SW_SHOWMINIMIZED：最小化窗口，并将其激活;SW_SHOWMINNOACTIVE：最小化一个窗口，同时不改变活动窗口;SW_SHOWNA：用当前的大小和位置显示一个窗口，不改变活动窗口;SW_SHOWNOACTIVATE：用最近的大小和位置显示一个窗口，同时不改变活动窗口;SW_SHOWNORMAL：与SW_RESTORE相同;

.DLL命令 API_创建事件对象, 整数型, "kernel32", "CreateEventA", , 创建一个事件对象  如执行成功，返回事件对象句柄；零表示出错。会设置GetLastError。即使返回一个有效的句柄，但同时指出指定的名字已经存在，GetLastError也会设为ERROR_ALREADY_EXISTS
    .参数 security性结构, 整数型, , SECURITY_ATTRIBUTES，指定一个结构，用于设置对象的security特性。如变成ByVal As 并传递零值，则表明使用对象默认的security设置
    .参数 人工或自动事件, 逻辑型, , 如果为TRUE，表示创建一个人工重设事件；如果为FALSE，表示创建一个自动重设事件
    .参数 是否内部触发, 逻辑型, , 如事件应内部进入触发状态，则为TRUE
    .参数 事件对象名, 文本型, , 指定事件对象的名字。用vbNull创建一个未命名事件对象。如已经存在拥有这个名字的一个事件，则现有的命名事件就会打开。这个名字可能不与一个现有互斥体、信号机、可等待计时器或文件映射的名字相符;