易语言画板类模块源码 [db:版本]

易语言画板类模块源码

系统结构:创建矩形l,创建point,创建size,destruction,Establish,GetHdc,GetGraphics,Refresh,Eliminate,destruction,Eliminate,Establish,GetHdc,GetGraphics,GetWidth,GetHeight,Establish,destruction,Setlong,Suspension,Restart,GetModuleHandle_整数,LocalSize_WNDCLASSEX,DwmEnableBlurBehindWindow,DwmExtendFrameIntoClientArea,CreateDIBSectionA,UpdateLayeredWindow,KillTimer,CreateStreamOnHGlobal_逻辑,CreateWaitableTimerA,SetWaitableTimer,MsgWaitForMultipleObjects,CloseHandle,CopyToPtr_FromEBin,FillRect,DragAcceptFiles,CallWindowProc,GetProp,RtlMoveMemory,SetProp,SetCapture,ReleaseCapture,DestroyWindow,GetSystemMetrics,SHBrowseForFolder,SHGetPathFromIDList,PostMessage_zj,PostMessage_zs,GetWindowText,GetClassName,

======程序集1
| |
| |------ _启动子程序
| |
| |
======前台画板
| |
| |------ 创建矩形l
| |
| |------ 创建point
| |
| |------ 创建size
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ destruction
| |
| |------ Establish
| |
| |------ GetHdc
| |
| |------ GetGraphics
| |
| |------ Refresh
| |
| |------ Eliminate
| |
| |
======后台画板
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ destruction
| |
| |------ Eliminate
| |
| |------ Establish
| |
| |------ GetHdc
| |
| |------ GetGraphics
| |
| |------ GetWidth
| |
| |------ GetHeight
| |
| |
======时钟类
| |
| |------ _初始化
| |
| |------ _销毁
| |
| |------ Establish
| |
| |------ destruction
| |
| |------ Setlong
| |
| |------ Suspension
| |
| |------ Restart
| |
| |
======调用的Dll
| |
| |---[dll]------ _VirtualAlloc
| |
| |---[dll]------ GetModuleHandle_整数
| |
| |---[dll]------ LocalSize_WNDCLASSEX
| |
| |---[dll]------ DwmEnableBlurBehindWindow
| |
| |---[dll]------ DwmExtendFrameIntoClientArea
| |
| |---[dll]------ CreateDIBSectionA
| |
| |---[dll]------ UpdateLayeredWindow
| |
| |---[dll]------ KillTimer
| |
| |---[dll]------ CreateStreamOnHGlobal_逻辑
| |
| |---[dll]------ CreateWaitableTimerA
| |
| |---[dll]------ SetWaitableTimer
| |
| |---[dll]------ MsgWaitForMultipleObjects
| |
| |---[dll]------ CloseHandle
| |
| |---[dll]------ CopyToPtr_FromEBin
| |
| |---[dll]------ FillRect
| |
| |---[dll]------ DragAcceptFiles
| |
| |---[dll]------ CallWindowProc
| |
| |---[dll]------ GetProp
| |
| |---[dll]------ RtlMoveMemory
| |
| |---[dll]------ SetProp
| |
| |---[dll]------ SetCapture
| |
| |---[dll]------ ReleaseCapture
| |
| |---[dll]------ DestroyWindow
| |
| |---[dll]------ GetSystemMetrics
| |
| |---[dll]------ SHBrowseForFolder
| |
| |---[dll]------ SHGetPathFromIDList
| |
| |---[dll]------ PostMessage_zj
| |
| |---[dll]------ PostMessage_zs
| |
| |---[dll]------ _获得句柄
| |
| |---[dll]------ _取屏幕句柄
| |
| |---[dll]------ _创建快照
| |
| |---[dll]------ _第一个模块
| |
| |---[dll]------ _关闭对象
| |
| |---[dll]------ _取窗口进程ID
| |
| |---[dll]------ GetWindowText
| |
| |---[dll]------ GetClassName

调用的DLL命令:

.DLL命令 _VirtualAlloc, 整数型, "kernel32.dll", "VirtualAlloc", 公开
.参数 lpAddress, 整数型
.参数 dwSize, 整数型
.参数 flAllocationType, 整数型
.参数 flProtect, 整数型

.DLL命令 GetModuleHandle_整数, 整数型, "kernel32.dll", "GetModuleHandleA", 公开
.参数 lpModuleName, 整数型

.DLL命令 LocalSize_WNDCLASSEX, 整数型, "kernel32.dll", "LocalSize", 公开
.参数 hMem, WNDCLASSEX, 传址

.DLL命令 DwmEnableBlurBehindWindow, 整数型, "dwmapi", , 公开
.参数 hWnd, 整数型
.参数 Blur, BLURBEHIND

.DLL命令 DwmExtendFrameIntoClientArea, 整数型, "dwmapi", , 公开
.参数 hWnd, 整数型
.参数 Margin, Margin

.DLL命令 CreateDIBSectionA, 整数型, , "CreateDIBSection", 公开
.参数 hDC, 整数型
.参数 pBMI, BITMAPINFO
.参数 iUsage, 整数型
.参数 ppvBits, 整数型
.参数 hSection, 整数型
.参数 dwOffset, 整数型

.DLL命令 UpdateLayeredWindow, 逻辑型, , , 公开
.参数 hWnd, 整数型
.参数 hdcDst, 整数型
.参数 pptDst, POINT_l
.参数 psize, size_l
.参数 hdcSrc, 整数型
.参数 pptSrc, POINT_l
.参数 crKey, 整数型
.参数 pblend, BLENDFUNCTION
.参数 dwFlags, 整数型

.DLL命令 KillTimer, 整数型, "user32", "KillTimer", 公开, 中止定时器
.参数 hwnd, 整数型
.参数 nIDEvent, 整数型

.DLL命令 CreateStreamOnHGlobal_逻辑, 整数型, "Ole32.dll", "CreateStreamOnHGlobal", 公开
.参数 hGlobal, 整数型
.参数 fDeleteOnRelease, 逻辑型
.参数 ppstm, 整数型, 传址

.DLL命令 CreateWaitableTimerA, 整数型, , "CreateWaitableTimerA", 公开
.参数 lpTimerAttributes, 整数型
.参数 bManualReset, 逻辑型
.参数 lpTimerName, 整数型

.DLL命令 SetWaitableTimer, 整数型, , "SetWaitableTimer", 公开
.参数 hTimer, 整数型
.参数 pDueTime, LARGE_INTEGER
.参数 lPeriod, 整数型
.参数 pfnCompletionRoutine, 整数型
.参数 lpArgToCompletionRoutine, 整数型
.参数 fResume, 逻辑型

.DLL命令 MsgWaitForMultipleObjects, 整数型, , "MsgWaitForMultipleObjects", 公开
.参数 nCount, 整数型
.参数 pHandles, 整数型, 传址
.参数 fWaitAll, 逻辑型
.参数 dwMilliseconds, 整数型
.参数 dwWakeMask, 整数型

.DLL命令 CloseHandle, 逻辑型, , "CloseHandle", 公开
.参数 hObject, 整数型

.DLL命令 CopyToPtr_FromEBin, , , "RtlMoveMemory", 公开
.参数 Dest
.参数 Src, 字节集
.参数 length

.DLL命令 FillRect, , , "FillRect", 公开
.参数 hwnd, 整数型
.参数 rect, rect_l
.参数 brush, 整数型

.DLL命令 DragAcceptFiles, 整数型, "shell32.dll", "DragAcceptFiles", 公开
.参数 hWnd, 整数型
.参数 fAccept, 整数型

.DLL命令 CallWindowProc, 整数型, "user32.dll", "CallWindowProcA", 公开
.参数 lpPrevWndFunc, 字节集
.参数 hwnd, 整数型
.参数 msg, 整数型, 数组
.参数 wParam, 整数型
.参数 lParam, 逻辑型

.DLL命令 GetProp, 整数型, , "GetPropA", 公开
.参数 hWnd, 整数型
.参数 lpString, 文本型

.DLL命令 RtlMoveMemory, , "kernel32.dll", "RtlMoveMemory", 公开
.参数 目标, 整数型, , any
.参数 缓冲区, 整数型, , any
.参数 尺寸, 整数型

.DLL命令 SetProp, 整数型, , "SetPropA", 公开
.参数 hWnd, 整数型
.参数 lpString, 文本型
.参数 hData, 整数型

.DLL命令 SetCapture, 整数型, , "SetCapture", 公开
.参数 hwnd, 整数型

.DLL命令 ReleaseCapture, , , "ReleaseCapture", 公开

.DLL命令 DestroyWindow, 整数型, "user32.dll", "DestroyWindow", 公开
.参数 hwnd, 整数型

.DLL命令 GetSystemMetrics, 整数型, "user32.dll", "GetSystemMetrics", 公开
.参数 值, 整数型

.DLL命令 SHBrowseForFolder, 整数型, "shell32.dll", "SHBrowseForFolder", 公开, 浏览文件夹信息_
.参数 lpbi, 文件夹信息_

.DLL命令 SHGetPathFromIDList, 整数型, "shell32.dll", "SHGetPathFromIDListA", 公开, $(b)从列表id取路径_
.参数 结构指针, 整数型, , pIdl
.参数 路径, 文本型, 传址, pszPath

.DLL命令 PostMessage_zj, , , "PostMessageA"
.参数 hWnd, 整数型
.参数 Msg, 整数型
.参数 wParam, 字节型
.参数 IParam, 整数型

.DLL命令 PostMessage_zs, , , "PostMessageA"
.参数 hWnd, 整数型
.参数 Msg, 整数型
.参数 wParam, 整数型
.参数 IParam, 整数型

.DLL命令 _获得句柄, 整数型, , "GetWindow", , 获得一个窗口的句柄，该窗口与某源窗口有特定的关系(返回一个窗口句柄,没有找到或错误返回0)
.参数 hwnd, 整数型, , 源窗口
.参数 cmd, 整数型, , 指定结果窗口与源窗口的关系，它们建立在下述常数基础上

.DLL命令 _取屏幕句柄, 整数型, , "GetDesktopWindow", 公开, user32.dll返回屏幕的句柄

.DLL命令 _创建快照, 整数型, , "CreateToolhelp32Snapshot"
.参数 falg, 整数型
.参数 id, 整数型

.DLL命令 _第一个模块, 整数型, , "Module32First", , 第一个模块，查找模块
.参数 快照句柄, 整数型
.参数 模块信息, 模块信息型

.DLL命令 _关闭对象, 整数型, , "CloseHandle", 公开, kernel32.dll
.参数 对象句柄, 整数型

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

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

.DLL命令 GetClassName, 整数型, , "GetClassNameA", , user32.dll为指定的窗口取得类名　以字节数表示的类名长度；排除最后的空中止字符。零表示出错。会设置GetLastError
.参数 句柄, 整数型, , 欲获得类名的那个窗口的句柄
.参数 文本, 文本型, , 随同类名载入的缓冲区。预先至少必须分配nMaxCount+1个字符
.参数 文本长度, 整数型, , 由lpClassName提供的缓冲区长度;