易语言创建互斥对象禁止重复运行模块源码

系统结构:禁止重复运行,关闭,等待,创建,释放,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 禁止重复运行
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   关闭
           |  |
           |  |---[dll]------   等待
           |  |
           |  |---[dll]------   创建
           |  |
           |  |---[dll]------   释放

调用的DLL命令:

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

.DLL命令 等待, 整数型, "kernel32.dll", "WaitForSingleObject"
    .参数 hHandle, 整数型
    .参数 dwMilliseconds, 整数型

.DLL命令 创建, 整数型, "kernel32.dll", "CreateMutexA"
    .参数 互斥体结构, security结构
    .参数 拥有互斥体, 逻辑型
    .参数 互斥体对象的名字, 文本型

.DLL命令 释放, 整数型, "kernel32.dll", "ReleaseMutex"
    .参数 hMutex, 整数型