易语言创建监视器源码

系统结构:过滤q,目录变更处理,托盘事件,sfdza,近似值,验证,监视目录,停止监视,线程_停止监视吧,线程_监视文件更变,线程_文件更变处理,UnicodeToAnsi_Ptr,API_取得Win目录,目录是否存在,启动插件,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ 过滤q
           |  |
           |  |------ 目录变更处理
           |  |
           |  |------ 托盘事件
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _插件_被选择
           |  |
           |  |------ sfdza
           |  |
           |  |------ _关于_被选择
           |  |
           |  |------ _静默模式_被选择
           |  |
           |  |------ _常规模式_被选择
           |  |
           |  |------ _设置_被选择
           |  |
           |  |------ _历史_被选择
           |  |
           |  |
======窗口程序集2
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _选择框1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _自己输入_被选择
           |  |
           |  |------ _选择文件_被选择
           |  |
           |  |------ _窗口1_可否被关闭
           |  |
           |  |
======窗口程序集3
           |  |
           |  |------ _列表框1_列表项被选择
           |  |
           |  |------ 近似值
           |  |
           |  |------ _窗口2_创建完毕
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ _按钮3_被单击
           |  |
           |  |------ _按钮4_被单击
           |  |
           |  |------ _按钮5_被单击
           |  |
           |  |------ _按钮6_被单击
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮7_被单击
           |  |
           |  |
======窗口程序集4
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ 验证
           |  |
           |  |------ _确定_被单击
           |  |
           |  |------ _窗口3_创建完毕
           |  |
           |  |------ _编辑框1_放开某键
           |  |
           |  |------ _窗口3_可否被关闭
           |  |
           |  |
======监视器
           |  |
           |  |------ 监视目录
           |  |
           |  |------ 停止监视
           |  |
           |  |------ 线程_停止监视吧
           |  |
           |  |------ 线程_监视文件更变
           |  |
           |  |------ 线程_文件更变处理
           |  |
           |  |------ UnicodeToAnsi_Ptr
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   API_取得Win目录
           |  |
           |  |---[dll]------   目录是否存在
           |  |
           |  |---[dll]------   _CloseHandle
           |  |
           |  |---[dll]------   _CreateFile
           |  |
           |  |---[dll]------   _CreateThread
           |  |
           |  |---[dll]------   _ReadDirectoryChangesW
           |  |
           |  |---[dll]------   _WideCharToMultiByte_Byte
           |  |
           |  |---[dll]------   _GlobalAlloc
           |  |
           |  |---[dll]------   _GlobalFree
           |  |
           |  |---[dll]------   启动插件

调用的DLL命令:

.DLL命令 API_取得Win目录, 整数型, , "GetWindowsDirectoryA"
    .参数 缓冲区, 文本型
    .参数 尺寸, 整数型

.DLL命令 目录是否存在, 逻辑型, "shlwapi.dll", "PathIsDirectoryA"
    .参数 路径, 文本型

.DLL命令 _CloseHandle, 整数型, , "CloseHandle"
    .参数 hObject, 整数型

.DLL命令 _CreateFile, 整数型, , "CreateFileA"
    .参数 lpFileName, 文本型
    .参数 dwDesiredAccess, 整数型
    .参数 dwShareMode, 整数型
    .参数 lpSecurityAttributes, 整数型
    .参数 dwCreationDisposition, 整数型
    .参数 dwFlagsAndAttributes, 整数型
    .参数 hTemplateFile, 整数型

.DLL命令 _CreateThread, 整数型, , "CreateThread"
    .参数 lpThreadAttributes, 整数型
    .参数 dwStackSize, 整数型
    .参数 lpStartAddress, 子程序指针
    .参数 lpParameter, 整数型
    .参数 dwCreationFlags, 整数型
    .参数 lpThreadId, 整数型

.DLL命令 _ReadDirectoryChangesW, 逻辑型, , "ReadDirectoryChangesW"
    .参数 hDirectory
    .参数 lpBuffer, 整数型
    .参数 nBufferLength
    .参数 bWatchSubtree, 逻辑型
    .参数 dwNotifyFilter
    .参数 lpBytesReturned, , 传址
    .参数 lpOverlapped, 整数型
    .参数 lpCompletionRoutine

.DLL命令 _WideCharToMultiByte_Byte, 整数型, , "WideCharToMultiByte"
    .参数 CodePage, 整数型
    .参数 dwFlags, 整数型
    .参数 lpWideCharStr, 整数型
    .参数 cchWideChar, 整数型
    .参数 lpMultiByteStr, 文本型
    .参数 cchMultiByte, 整数型
    .参数 lpDefaultChar, 整数型
    .参数 lpUsedDefaultChar, 整数型

.DLL命令 _GlobalAlloc, 整数型, , "GlobalAlloc"
    .参数 wFlags, 整数型
    .参数 dwBytes, 整数型

.DLL命令 _GlobalFree, 整数型, , "GlobalFree"
    .参数 hMem, 整数型

.DLL命令 启动插件, 逻辑型, "cj.dll", "start"
    .参数 id, 文本型