易语言文件修改监视源码

系统结构:目录变更处理,监视目录吧,停止监视吧,线程_停止监视吧,线程_监视文件更变,线程_文件更变处理,UnicodeToAnsi_Ptr,

======窗口程序集1
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |------ __启动窗口_可否被关闭
           |  |
           |  |------ 目录变更处理
           |  |
           |  |
======程序集1
           |  |
           |  |------ 监视目录吧
           |  |
           |  |------ 停止监视吧
           |  |
           |  |------ 线程_停止监视吧
           |  |
           |  |------ 线程_监视文件更变
           |  |
           |  |------ 线程_文件更变处理
           |  |
           |  |------ UnicodeToAnsi_Ptr
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _CloseHandle
           |  |
           |  |---[dll]------   _CreateFile
           |  |
           |  |---[dll]------   _CreateThread
           |  |
           |  |---[dll]------   _ReadDirectoryChangesW
           |  |
           |  |---[dll]------   _WideCharToMultiByte_Byte
           |  |
           |  |---[dll]------   _GlobalAlloc
           |  |
           |  |---[dll]------   _GlobalFree

调用的DLL命令:

.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, 整数型