易语言关闭指定窗口源码

系统结构:枚举窗体,是否关闭,寻找顶级窗口_,枚举子窗口_,枚举父窗口_,取屏幕句柄_,取窗口标题_,投递消息,API_结束进程,API_GetWindowThreadProcessId,API_退出进程,API_OpenProcess,API_清除窗口,

======窗口程序集1
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ 枚举窗体
           |  |
           |  |------ _时钟1_周期事件
           |  |
           |  |------ 是否关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   寻找顶级窗口_
           |  |
           |  |---[dll]------   枚举子窗口_
           |  |
           |  |---[dll]------   枚举父窗口_
           |  |
           |  |---[dll]------   取屏幕句柄_
           |  |
           |  |---[dll]------   取窗口标题_
           |  |
           |  |---[dll]------   投递消息
           |  |
           |  |---[dll]------   API_结束进程
           |  |
           |  |---[dll]------   API_GetWindowThreadProcessId
           |  |
           |  |---[dll]------   API_退出进程
           |  |
           |  |---[dll]------   API_OpenProcess
           |  |
           |  |---[dll]------   API_清除窗口

调用的DLL命令:

.DLL命令 寻找顶级窗口_, 整数型, "user32.dll", "FindWindowA", , FindWindow,寻找窗口列表中第一个符合指定条件的顶级窗口
    .参数 窗口类名, 文本型, , lpClassName，参见相关帮助
    .参数 窗口文本, 文本型, , lpWindowName，参见相关帮助

.DLL命令 枚举子窗口_, 整数型, "user32.dll", "EnumChildWindows", , 为指定的父窗口枚举子窗口
    .参数 父窗口句柄, 整数型, , hWndParent,欲枚举子窗口的父窗口的句柄
    .参数 函数指针, 子程序指针, , lpEnumFunc,为每个子窗口调用的函数的指针
    .参数 自定义值, 文本型, , lParam,参见相关帮助

.DLL命令 枚举父窗口_, 整数型, "user32.dll", "EnumWindows", , 枚举窗口列表中的所有父窗口（顶级和被所有窗口）
    .参数 函数指针, 子程序指针, , lpEnumFunc,指向为每个子窗口都调用的一个函数的指针
    .参数 自定义数值, 整数型, , lParam,参见相关帮助

.DLL命令 取屏幕句柄_, 整数型, "user32", "GetDesktopWindow"

.DLL命令 取窗口标题_, 整数型, "user32", "GetWindowTextA", , 取得一个窗体的标题（caption）文字，或者一个控件的内容（在vb里使用：使用vb窗体或控件的caption或text属性）  复制到lpString的字串长度；不包括空中止字符。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲获取文字的那个窗口的句柄
    .参数 缓冲区, 文本型, , 预定义的一个缓冲区，至少有cch+1个字符大小；随同窗口文字载入
    .参数 缓冲尺寸, 整数型, , lp缓冲区的长度;

.DLL命令 投递消息, 整数型, , "PostMessageA"
    .参数 句柄, 整数型
    .参数 消息, 整数型
    .参数 a, 整数型
    .参数 b, 整数型

.DLL命令 API_结束进程, 整数型, "kernel32", "TerminateProcess", , 结束一个进程  非零表示成功，零表示失败。会设置GetLastError
    .参数 hProcess, 整数型, , 指定要中断的一个进程的句柄
    .参数 uExitCode, 整数型, , 进程的一个退出代码;

.DLL命令 API_GetWindowThreadProcessId, 整数型, "user32", "GetWindowThreadProcessId", , ;    获取与指定窗口关联在一起的一个进程和线程标识符  拥有窗口的线程的标识符
    .参数 hwnd, 整数型, , 指定一个变量，用于装载拥有那个窗口的一个进程的标识符
    .参数 lpdwProcessId, 整数型, 传址, 指定窗口句柄;

.DLL命令 API_退出进程, , "kernel32", "ExitProcess", , 中止一个进程
    .参数 进程句柄, 整数型, , 指定想中断的那个进程的一个退出代码在VB中使用应尽量避免用该函数来关闭进程。不要在自己的VB程序中使用它。此时，应试着向要关闭的那个程序的主窗口投递一条WM_CLOSE消息;

.DLL命令 API_OpenProcess, 整数型, "kernel32", "OpenProcess", , 将句柄返回给过程对象
    .参数 dwDesiredAccess, 整数型
    .参数 bInheritHandle, 整数型
    .参数 dwProcessId, 整数型

.DLL命令 API_清除窗口, 整数型, "user32", "DestroyWindow", , 破坏（即清除）指定的窗口以及它的所有子窗口（在vb里使用：用处不大。原文：it ;    is unlikely to be of much use.）  非零表示成功，零表示失败。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲清除的窗口的句柄;