易语言原子锁与许可区比较源码

系统结构:线程,线程2,InterlockedDecrement,InterlockedIncrement,WaitForSingleObject,CloseHandle,

======窗口程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ 线程
           |  |
           |  |------ 线程2
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   InterlockedDecrement
           |  |
           |  |---[dll]------   InterlockedIncrement
           |  |
           |  |---[dll]------   WaitForSingleObject
           |  |
           |  |---[dll]------   CloseHandle

调用的DLL命令:

.DLL命令 InterlockedDecrement, 整数型, "kernel32", "InterlockedDecrement", , 原子性自减(相当于--操作)，返回原始值。 
    .参数 lpAddend, 整数型, 传址

.DLL命令 InterlockedIncrement, 整数型, "kernel32", "InterlockedIncrement", , 增加LONG
    .参数 lpAddend, 整数型, 传址

.DLL命令 WaitForSingleObject, 整数型, , "WaitForSingleObject"
    .参数 句柄, 整数型
    .参数 超时, 整数型

.DLL命令 CloseHandle, 逻辑型, "kernel32", "CloseHandle", , 关闭一个内核对象，并不意味着结束线程。线程内核对象会随进程的结束而结束，但不会随线程的结束而结束，如果不对线程句柄进行操作，建议线程启动后立即关闭内核对象。会设置GetLastError
    .参数 对象句柄, 整数型, , 欲关闭的一个对象的句柄;