易语言TaskDialog版输入框源码

系统结构:DialogInputBox,TaskDialogCallbackProc,创建字体,A2W,取指针_通用型,指针到整数,TaskDialogIndirect,LocalSize,TaskDialog,MultiByteToWideChar,MoveWindow,GetWindowRect,CreateWindowEx,GetWindow,SetWindowPos,SendMessage,GetWindowText,PostMessage,CreateFontA,SendMessageA,DeleteObject,IsBadReadPtr,GetWindowTextLength,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |
======程序集2
           |  |
           |  |------ DialogInputBox
           |  |
           |  |------ TaskDialogCallbackProc
           |  |
           |  |------ 创建字体
           |  |
           |  |------ A2W
           |  |
           |  |------ 取指针_通用型
           |  |
           |  |------ 指针到整数
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   TaskDialogIndirect
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   TaskDialog
           |  |
           |  |---[dll]------   MultiByteToWideChar
           |  |
           |  |---[dll]------   MoveWindow
           |  |
           |  |---[dll]------   GetWindowRect
           |  |
           |  |---[dll]------   CreateWindowEx
           |  |
           |  |---[dll]------   GetWindow
           |  |
           |  |---[dll]------   SetWindowPos
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   GetWindowText
           |  |
           |  |---[dll]------   PostMessage
           |  |
           |  |---[dll]------   CreateFontA
           |  |
           |  |---[dll]------   SendMessageA
           |  |
           |  |---[dll]------   DeleteObject
           |  |
           |  |---[dll]------   IsBadReadPtr
           |  |
           |  |---[dll]------   GetWindowTextLength

调用的DLL命令:

.DLL命令 TaskDialogIndirect, 整数型, "comctl32.dll", "TaskDialogIndirect"
    .参数 pTaskConfig, TASKDIALOGCONFIG, 传址
    .参数 pnButton, 整数型, 传址
    .参数 pnRadioButton, 整数型, 传址
    .参数 pfVerificationFlagChecked, 整数型, 传址

.DLL命令 LocalSize, 整数型
    .参数 hMem, TASKDIALOGCONFIG, 传址

.DLL命令 TaskDialog, 整数型, "comctl32.dll", "TaskDialog"
    .参数 hWndParent, 整数型
    .参数 hInstance, 整数型
    .参数 pszWindowTitle, 字节集
    .参数 pszMainInstruction, 字节集
    .参数 pszContent, 字节集
    .参数 dwCommonButtons, 整数型
    .参数 pszIcon, 整数型
    .参数 pnButton, 整数型, 传址

.DLL命令 MultiByteToWideChar, 整数型, , "MultiByteToWideChar"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpWideCharStr, 字节集
    .参数 cchWideChar, 整数型

.DLL命令 MoveWindow, 整数型, "user32", "MoveWindow", , 改变指定窗口的位置和大小。顶级窗口可能受最大或最小尺寸的限制，那些尺寸优先于这里设置的参数  非零表示成功，零表示失败
    .参数 hwnd, 整数型, , 欲移动窗口的句柄
    .参数 x, 整数型, , 窗口新的左侧位置
    .参数 y, 整数型, , 窗口新的顶部位置
    .参数 nWidth, 整数型, , 窗口的新宽度
    .参数 nHeight, 整数型, , 窗口的高宽度
    .参数 bRepaint, 整数型, , 如窗口此时应重画，则设为TRUE（非零）。FALSE（零）则表明应用程序会自己决定是否重画窗口;

.DLL命令 GetWindowRect, 整数型, "user32", "GetWindowRect", , 获得整个窗口的范围矩形，窗口的边框、标题栏、滚动条及菜单等都在这个矩形内  非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 想获得范围矩形的那个窗口的句柄
    .参数 lpRect, RECT, , RECT，屏幕坐标中随同窗口装载的矩形;

.DLL命令 CreateWindowEx, 整数型, "user32", "CreateWindowExA", , 建立窗口
    .参数 dwExStyle, 整数型
    .参数 lpClassName, 文本型
    .参数 lpWindowName, 文本型
    .参数 dwStyle, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 nWidth, 整数型
    .参数 nHeight, 整数型
    .参数 hWndParent, 整数型
    .参数 hMenu, 整数型
    .参数 hInstance, 整数型
    .参数 lpParam, 整数型

.DLL命令 GetWindow, 整数型, "user32", "GetWindow", , 获得一个窗口的句柄，该窗口与某源窗口有特定的关系  由wCmd决定的一个窗口的句柄。如没有找到相符窗口，或者遇到错误，则返回零值。会设置GetLastError
    .参数 hwnd, 整数型, , 源窗口
    .参数 wCmd, 整数型, , 指定结果窗口与源窗口的关系，它们建立在下述常数基础上：;GW_CHILD：寻找源窗口的第一个子窗口;GW_HWNDFIRST：为一个源子窗口寻找第一个兄弟（同级）窗口，或寻找第一个顶级窗口;GW_HWNDLAST：为一个源子窗口寻找最后一个兄弟（同级）窗口，或寻找最后一个顶级窗口;GW_HWNDNEXT：为源窗口寻找下一个兄弟窗口;GW_HWNDPREV：为源窗口寻找前一个兄弟窗口;GW_OWNER：寻找窗口的所有者;

.DLL命令 SetWindowPos, 整数型, "user32", "SetWindowPos", , 这个函数能为窗口指定一个新位置和状态。它也可改变窗口在内部窗口列表中的位置。该函数与DeferWindowPos函数相似，只是它的作用是立即表现出来的（在vb里使用：针对vb窗体，如它们在win32下屏蔽或最小化，则需重设最顶部状态。如有必要，请用一个子类处理模块来重设最顶部状态  非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型
    .参数 hWndInsertAfter, 整数型
    .参数 x, 整数型
    .参数 y, 整数型
    .参数 cx, 整数型
    .参数 cy, 整数型
    .参数 wFlags, 整数型

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 整数型, , 具体取决于消息;

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

.DLL命令 PostMessage, 整数型, "user32", "PostMessageA", , 将一条消息投递到指定窗口的消息队列。投递的消息会在Windows事件处理过程中得到处理。在那个时候，会随同投递的消息调用指定窗口的窗口函数。特别适合那些不需要立即处理的窗口消息的发送  如消息投递成功，则返回TRUE（非零）。会设置GetLastError
    .参数 hwnd, 整数型, , 接收消息的那个窗口的句柄。如设为HWND_BROADCAST，表示投递给系统中的所有顶级窗口。如设为零，表示投递一条线程消息（参考PostThreadMessage）
    .参数 wMsg, 整数型, , 消息标识符
    .参数 wParam, 整数型, , 具体由消息决定
    .参数 lParam, 整数型, , 具体由消息决定;

.DLL命令 CreateFontA, 整数型, , "CreateFontA", , 创建逻辑字体，执行成功则返回逻辑字体的句柄，零表示失败。会设置GetLastError
    .参数 nHeight, 整数型, , 所创建字体的字符高度
    .参数 nWidth, 整数型, , 字体的字符平均宽度
    .参数 nEscapement, 整数型, , 字符输出方向与水平向右的方向所成角度，以0.1度为单位
    .参数 nOrientation, 整数型, , 字符与基线的角度，以0.1度为单位
    .参数 nWeight, 整数型, , 字符颜色的深浅度
    .参数 bItalic, 字节型, , 斜体属性标志(0:正常字体，非0:斜体)
    .参数 bUnderline, 字节型, , 下划线属性标志(0:无下划线，非0:有下划线)
    .参数 cStrikeOut, 字节型, , 删除线属性标志(0:无删除线，非0:有删除线) 
    .参数 nCharSet, 字节型, , 字符集标识0:ANSI字符集，1:系统缺省字符集
    .参数 nOutPrecision, 字节型, , 输出精度
    .参数 nClipPrecision, 字节型, , 剪切精度
    .参数 nQuality, 字节型, , 输出品质
    .参数 nPitchAndFamily, 字节型, , 字符间距
    .参数 lpszFacename, 文本型, , 现有系统TrueType字体名称

.DLL命令 SendMessageA, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 整数型, , 具体取决于消息;

.DLL命令 DeleteObject, 整数型, "gdi32", "DeleteObject", , 用这个函数删除GDI对象，比如画笔、刷子、字体、位图、区域以及调色板等等。对象使用的所有系统资源都会被释放  非零表示成功，零表示失败
    .参数 hObject, 整数型, , 一个GDI对象的句柄;

.DLL命令 IsBadReadPtr, 整数型, "kernel32", "IsBadReadPtr", , 确定进程是否有读动作
    .参数 lp, 整数型
    .参数 ucb, 整数型

.DLL命令 GetWindowTextLength, 整数型, "user32", "GetWindowTextLengthA", , 调查窗口标题文字或控件内容的长短（在vb里使用：直接使用vb窗体或控件的caption或text属性）  字串长度，不包括空中止字符
    .参数 hwnd, 整数型, , 想调查文字长度的窗口的句柄;