易语言API创建互斥体禁止程序重复运行

系统结构:禁止重复运行,WaitForSingleObject,CreateMutex,ReleaseMutex,CloseHandle,

======模块程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 禁止重复运行
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   CreateMutex
           |  |
           |  |---[dll]------   ReleaseMutex
           |  |
           |  |---[dll]------   CloseHandle

调用的DLL命令:

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

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

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

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