易语言数据库查看器源码

系统结构:置软件标题,打开EDB,关闭EDB,读取EDB数据,输出状态,彗星设置文件关联,彗星取消文件关联,彗星刷新图标缓存,DeleteFileEx,SendMessageTimeout,SHChangeNotify,GetEnvironmentVariable,DeleteFile,SHGetSpecialFolderLocation,SHGetPathFromIDList,SetFileAttributes,ShellAbout,

======窗口程序集_启动窗口
           |  |
           |  |------ __启动窗口_创建完毕
           |  |
           |  |------ __启动窗口_首次激活
           |  |
           |  |------ __启动窗口_将被销毁
           |  |
           |  |------ __启动窗口_尺寸被改变
           |  |
           |  |------ 置软件标题
           |  |
           |  |------ 打开EDB
           |  |
           |  |------ 关闭EDB
           |  |
           |  |------ 读取EDB数据
           |  |
           |  |------ 输出状态
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |------ _打开数据库_被选择
           |  |
           |  |------ _关闭数据库_被选择
           |  |
           |  |------ _退出_被选择
           |  |
           |  |------ _设置文件关联_被选择
           |  |
           |  |------ _取消文件关联_被选择
           |  |
           |  |------ _关于_被选择
           |  |
           |  |
======程序集1
           |  |
           |  |------ 彗星设置文件关联
           |  |
           |  |------ 彗星取消文件关联
           |  |
           |  |------ 彗星刷新图标缓存
           |  |
           |  |------ DeleteFileEx
           |  |
           |  |
======窗口程序集_窗口1
           |  |
           |  |------ _窗口1_创建完毕
           |  |
           |  |------ _按钮1_被单击
           |  |
           |  |------ _按钮2_被单击
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SendMessageTimeout
           |  |
           |  |---[dll]------   SHChangeNotify
           |  |
           |  |---[dll]------   GetEnvironmentVariable
           |  |
           |  |---[dll]------   DeleteFile
           |  |
           |  |---[dll]------   SHGetSpecialFolderLocation
           |  |
           |  |---[dll]------   SHGetPathFromIDList
           |  |
           |  |---[dll]------   SetFileAttributes
           |  |
           |  |---[dll]------   ShellAbout

调用的DLL命令:

.DLL命令 SendMessageTimeout, 整数型, "user32", "SendMessageTimeoutA", , 向窗口发送一条消息。如窗口位于不同的线程中，则利用这个函数可以指定一个超时值，以便在另一个进程挂起的时候防止调用进程也永远挂起　成功时返回TRUE，失败时返回FALSE。会设置GetLastError
    .参数 hwnd, 整数型, , 要接收消息的一个窗口的句柄
    .参数 msg, 整数型
    .参数 wParam, 整数型, , 由消息决定
    .参数 lParam, 整数型, , 由消息决定
    .参数 fuFlags, 整数型, , 下述常数的一个或多个;SMTO_ABORTIFHUNG：如目标进程挂起，则函数立即返回;SMTO_BLOCK：除非函数返回，否则调用线程不能处理消息;SMTO_NORMAL：允许调用线程处理消息，同时保持函数继续执行
    .参数 uTimeout, 整数型, , 超时值，采用毫秒为单位
    .参数 lpdwResult, 整数型, 传址, 用于装载函数结果的一个变量;

.DLL命令 SHChangeNotify, , "shell32.dll", "SHChangeNotify", , 　
    .参数 wEventId, 整数型
    .参数 uFlags, 整数型
    .参数 dwItem1, 整数型
    .参数 dwItem2, 整数型

.DLL命令 GetEnvironmentVariable, 整数型, "kernel32", "GetEnvironmentVariableA", , 取得一个环境变量的值　载入的环境变量的长度。如指定的环境字串不存在，就返回零。如lpBuffer的长度不足以全部容下字串，则返回字串的全长。随后可用这个长度分配一个足够大的缓冲区
    .参数 lpName, 文本型, , 欲读入的环境字串的名称
    .参数 lpBuffer, 文本型, , 随同字串装载的一个缓冲区。注意预先将其初始化到合适的长度
    .参数 nSize, 整数型, , lpBuffer的长度;

.DLL命令 DeleteFile, 整数型, "kernel32", "DeleteFileA", , 删除指定文件　非零表示成功，零表示失败。会设置GetLastError
    .参数 lpFileName, 文本型, , 欲删除文件的名字;  

.DLL命令 SHGetSpecialFolderLocation, 整数型, "shell32.dll", "SHGetSpecialFolderLocation"
    .参数 hwndOwner, 整数型
    .参数 nFolder, 整数型
    .参数 ppidl, 整数型, 传址

.DLL命令 SHGetPathFromIDList, 整数型, "shell32.dll", "SHGetPathFromIDListA"
    .参数 pidl, 整数型
    .参数 pszPath, 文本型, 传址

.DLL命令 SetFileAttributes, 整数型, "kernel32", "SetFileAttributesA", , 设置文件属性　非零表示成功，零表示失败。会设置GetLastError
    .参数 lpFileName, 文本型
    .参数 dwFileAttributes, 整数型

.DLL命令 ShellAbout, 整数型, "shell32.dll", "ShellAboutA", , 显示SHELLABOUT对话框　
    .参数 hWnd, 整数型
    .参数 szApp, 文本型
    .参数 szOtherStuff, 文本型
    .参数 hIcon, 整数型