易语言WIN32程序设计之时钟源码

系统结构:GetModuleHandle,DialogBoxParam,ExitProcess,LoadIcon,SendDlgItemMessage,MessageBeep,SetTimer,KillTimer,EndDialog,GetDlgItemInt,SetDigItemInt,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _ProcWinMain
           |  |
           |  |------ _ProcTimer
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   GetModuleHandle
           |  |
           |  |---[dll]------   DialogBoxParam
           |  |
           |  |---[dll]------   ExitProcess
           |  |
           |  |---[dll]------   LoadIcon
           |  |
           |  |---[dll]------   SendDlgItemMessage
           |  |
           |  |---[dll]------   MessageBeep
           |  |
           |  |---[dll]------   SetTimer
           |  |
           |  |---[dll]------   KillTimer
           |  |
           |  |---[dll]------   EndDialog
           |  |
           |  |---[dll]------   GetDlgItemInt
           |  |
           |  |---[dll]------   SetDigItemInt

调用的DLL命令:

.DLL命令 GetModuleHandle, 整数型, , "GetModuleHandleA"
    .参数 lpModuleNmae, 整数型

.DLL命令 DialogBoxParam, 整数型, , "DialogBoxParamA"
    .参数 hInstance, 整数型
    .参数 lpTemplateName, 整数型
    .参数 hWndParent, 整数型
    .参数 lpDialogFunc, 整数型
    .参数 dwInitParam, 整数型

.DLL命令 ExitProcess, 整数型, , "ExitProcess"
    .参数 uExitCode, 整数型

.DLL命令 LoadIcon, 整数型, , "LoadIconA"
    .参数 hInstance, 整数型
    .参数 lpIcoonName, 整数型

.DLL命令 SendDlgItemMessage, , , "SendDlgItemMessageA"
    .参数 hDlg, 整数型
    .参数 nIDDlgItem, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 MessageBeep, 整数型, , "MessageBeep"
    .参数 wType, 整数型

.DLL命令 SetTimer, 整数型, , "SetTimer"
    .参数 hWnd, 整数型
    .参数 nIDEvent, 整数型
    .参数 uElapse, 整数型
    .参数 lpTimerFunc, 整数型

.DLL命令 KillTimer, , , "KillTimer"
    .参数 hWnd, 整数型
    .参数 nIDEvent, 整数型

.DLL命令 EndDialog, 整数型, , "EndDialog"
    .参数 hDlg, 整数型
    .参数 nResult, 整数型

.DLL命令 GetDlgItemInt, 整数型, , "GetDlgItemInt"
    .参数 hDlg, 整数型
    .参数 nIDDlgItem, 整数型
    .参数 lpTranslated, 整数型
    .参数 bSigned, 逻辑型

.DLL命令 SetDigItemInt, 整数型, , "SetDlgItemInt"
    .参数 hDlg, 整数型
    .参数 nIDDlgItem, 整数型
    .参数 wValue, 整数型
    .参数 bSigned, 逻辑型