易语言多种方法关闭文件夹

系统结构:子程序_关闭文件夹_发送关闭消息1,子程序_关闭文件夹_发送关闭消息2,子程序_关闭文件夹_发送销毁消息,子程序_关闭文件夹_AltF4,子程序_关闭文件夹_CtrlW,子程序_显示文件夹,SendMessage_str,SendMessage_int,PostMessage_int,GetClassName,FindWindowEx,IsWindow,GetWindowText,GetWindowLong,keybd_event,

======窗口程序集_启动窗口
           |  |
           |  |------ 子程序_关闭文件夹_发送关闭消息1
           |  |
           |  |------ 子程序_关闭文件夹_发送关闭消息2
           |  |
           |  |------ 子程序_关闭文件夹_发送销毁消息
           |  |
           |  |------ 子程序_关闭文件夹_AltF4
           |  |
           |  |------ 子程序_关闭文件夹_CtrlW
           |  |
           |  |------ 子程序_显示文件夹
           |  |
           |  |------ _按钮_刷新_被单击
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮_关闭_发送关闭消息1_被单击
           |  |
           |  |------ _按钮_关闭_AltF4_被单击
           |  |
           |  |------ _按钮_关闭_Ctrlw_被单击
           |  |
           |  |------ _按钮_关闭_发送销毁消息_被单击
           |  |
           |  |------ _按钮_关闭_发送关闭消息2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SendMessage_str
           |  |
           |  |---[dll]------   SendMessage_int
           |  |
           |  |---[dll]------   PostMessage_int
           |  |
           |  |---[dll]------   GetClassName
           |  |
           |  |---[dll]------   FindWindowEx
           |  |
           |  |---[dll]------   IsWindow
           |  |
           |  |---[dll]------   GetWindowText
           |  |
           |  |---[dll]------   GetWindowLong
           |  |
           |  |---[dll]------   keybd_event

调用的DLL命令:

.DLL命令 SendMessage_str, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wmsg, 整数型
    .参数 wparam, 整数型
    .参数 lparam, 文本型

.DLL命令 SendMessage_int, 整数型, , "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wmsg, 整数型
    .参数 wparam, 整数型
    .参数 lparam, 整数型

.DLL命令 PostMessage_int, 整数型, , "PostMessageA"
    .参数 hwnd, 整数型
    .参数 wmsg, 整数型
    .参数 wparam, 整数型
    .参数 lparam, 整数型

.DLL命令 GetClassName, 整数型, , "GetClassNameA"
    .参数 hwnd, 整数型
    .参数 lpClassName, 文本型
    .参数 nMaxCount, 整数型

.DLL命令 FindWindowEx, 整数型, , "FindWindowExA"
    .参数 hwnd1, 整数型
    .参数 hwnd2, 整数型
    .参数 lpsz1, 文本型
    .参数 lpsz2, 文本型

.DLL命令 IsWindow, 整数型, , "IsWindow"
    .参数 hwnd, 整数型

.DLL命令 GetWindowText, , , "GetWindowTextA"
    .参数 hwnd, 整数型
    .参数 lpString, 文本型
    .参数 cch, 整数型

.DLL命令 GetWindowLong, 整数型, , "GetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型

.DLL命令 keybd_event, 整数型, , "keybd_event"
    .参数 bVk, 整数型
    .参数 bScan, 整数型
    .参数 dwFlags, 整数型
    .参数 dwExtraInfo, 整数型