易语言树型框取编辑状态选中文本源码

系统结构:Newbjk,SendMessageA,SetWindowLong,CallWindowProc,SendMessage,FindWindowEx,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _树型框1_开始编辑
           |  |
           |  |------ Newbjk
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   FindWindowEx

调用的DLL命令:

.DLL命令 SendMessageA, 整数型, , "SendMessageA"
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 文本型

.DLL命令 SetWindowLong, 整数型, "user32", "SetWindowLongA"
    .参数 hwnd, 整数型
    .参数 nIndex, 整数型
    .参数 dwNewLong, 整数型

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 整数型
    .参数 hWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
    .参数 hwnd, 整数型
    .参数 wMsg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 FindWindowEx, 整数型, "user32", "FindWindowExA"
    .参数 hWnd1, 整数型
    .参数 hWnd2, 整数型
    .参数 lpsz1, 整数型
    .参数 lpsz2, 整数型