易语言事件状态源码

系统结构:Fun1Proc,FUN2PROC,CreateEvent,CreateThread,Sleep,GetLastError,CloseHandle,SetEvent,WaitForSingleObject,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ Fun1Proc
           |  |
           |  |------ FUN2PROC
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   CreateEvent
           |  |
           |  |---[dll]------   CreateThread
           |  |
           |  |---[dll]------   Sleep
           |  |
           |  |---[dll]------   GetLastError
           |  |
           |  |---[dll]------   CloseHandle
           |  |
           |  |---[dll]------   SetEvent
           |  |
           |  |---[dll]------   WaitForSingleObject

调用的DLL命令:

.DLL命令 CreateEvent, 整数型, , "CreateEventA"
    .参数 LPSECURITY_ATIRIBUTES, 整数型
    .参数 bManualReset, 逻辑型
    .参数 bInitialState, 逻辑型
    .参数 lpName, 文本型

.DLL命令 CreateThread, 整数型, , "CreateThread"
    .参数 SecurityAttributes, 整数型
    .参数 StackSize, 整数型
    .参数 StartFunction, 整数型
    .参数 ThreadParameter, 整数型
    .参数 CreationFlags, 整数型
    .参数 ThreadId, 整数型

.DLL命令 Sleep, 整数型, , "Sleep"
    .参数 dwMilliseconds, 整数型

.DLL命令 GetLastError, 整数型, , "GetLaseError"

.DLL命令 CloseHandle, 整数型, , "CloseHandle"
    .参数 Object, 整数型

.DLL命令 SetEvent, 整数型, , "SetEvent"
    .参数 hEvent, 整数型

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