易语言两文本文件比较源码 [db:版本]

两文本文件比较易语言源码

系统结构:比较,处理,CallWindowProcA,SetWindowLongA,FindWindowEx,SendMessage,发送消息1,发送消息2,投递消息1,SetWindowLong,CallWindowProc,GetShortPathNameA,

======窗口程序集1
| |
| |------ 比较
| |
| |------ __启动窗口_创建完毕
| |
| |------ 处理
| |
| |
======调用的Dll
| |
| |---[dll]------ CallWindowProcA
| |
| |---[dll]------ SetWindowLongA
| |
| |---[dll]------ FindWindowEx
| |
| |---[dll]------ SendMessage
| |
| |---[dll]------ 发送消息1
| |
| |---[dll]------ 发送消息2
| |
| |---[dll]------ 投递消息1
| |
| |---[dll]------ SetWindowLong
| |
| |---[dll]------ CallWindowProc
| |
| |---[dll]------ GetShortPathNameA

调用的DLL命令:

.DLL命令 CallWindowProcA, 整数型, , "CallWindowProcA"
.参数 程序指针, 子程序指针
.参数 窗口句柄, 整数型
.参数 消息, 整数型
.参数 参数1, 整数型
.参数 参数2, 整数型

.DLL命令 SetWindowLongA, 子程序指针, , "SetWindowLongA"
.参数 窗口句柄, 整数型
.参数 要置的特征, 整数型
.参数 新特征, 子程序指针, , 仅易语言3.0支持

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

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型, , Any型,根据需要可以设置成不同的类型

.DLL命令 发送消息1, 整数型, "user32", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 整数型

.DLL命令 发送消息2, 整数型, "user32", "SendMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 文本型

.DLL命令 投递消息1, 整数型, "user32", "PostMessageA"
.参数 hwnd, 整数型
.参数 wMsg, 整数型
.参数 wParam, 整数型
.参数 lParam, 长整数型, 传址

.DLL命令 SetWindowLong, 整数型, , "SetWindowLongA"
.参数 hwnd
.参数 nIndex
.参数 dwNewLong, 子程序指针

.DLL命令 CallWindowProc, 整数型, , "CallWindowProcA"
.参数 lpPrevWndFunc
.参数 hwnd
.参数 Msg
.参数 wParam
.参数 lParam, 字节集

.DLL命令 GetShortPathNameA, 整数型
.参数 lpszLongPath, 文本型
.参数 lpszShortPath, 文本型
.参数 cchBuffer, 整数型