易语言多功能高级模块源码

系统结构:托盘_置托盘图标,托盘_删除托盘图标,系统_取操作系统版本,窗口_窗口渐显,窗口_窗口渐消,文本_加密文本,文本_解密文本,系统_高精度等待,系统_设置自动运行,时钟_创建时钟,时钟_销毁时钟,配置_读加密配置项,配置_写加密配置项,配置_取加密配置节名,配置_取加密配置项名,配置_删除加密配置小节,配置_删除加密配置项目,配置_置配置文件密码,回收站_是否有文件,回收站_清空回收站,目录_浏览文件夹,回收站_删除到回收站,文本_到字节集,托盘事件处理,十进制到十六进制,十六进制到十进制,GetDiskLists,BinMid,BinLen,BinToText,GetBlankBin,GetTheFolder,BrowseCallbackProc,SetWindowLong,RegisterWindowMessageA,LocalSize,lstrcpyn,Shell_NotifyIconA,SendMessage,SetForegroundWindow,TrackPopupMenu,CallWindowProc,SetWindowLong_,GetWindowLong_,SetLayeredWindowAttributes_,ShowWindow_,CreateWaitableTimer_,SetWaitableTimer_,MsgWaitForMultipleObjects_,CloseHandle_,SetTimer_,KillTimer_,取操作系统目录,SHQueryRecycleBin,GetLogicalDriveStrings,LocalAlloc,LocalFree,RtlMoveMemory,SHEmptyRecycleBin,lstrcat,SHBrowseForFolder,系统关于窗口,SHGetPathFromIDList,SHFileOperation,lstrcpyn_文本型,文本_取长度,

======程序集
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ _临时子程序
           |  |
           |  |------ 托盘_置托盘图标
           |  |
           |  |------ 托盘_删除托盘图标
           |  |
           |  |------ 系统_取操作系统版本
           |  |
           |  |------ 窗口_窗口渐显
           |  |
           |  |------ 窗口_窗口渐消
           |  |
           |  |------ 文本_加密文本
           |  |
           |  |------ 文本_解密文本
           |  |
           |  |------ 系统_高精度等待
           |  |
           |  |------ 系统_设置自动运行
           |  |
           |  |------ 时钟_创建时钟
           |  |
           |  |------ 时钟_销毁时钟
           |  |
           |  |------ 配置_读加密配置项
           |  |
           |  |------ 配置_写加密配置项
           |  |
           |  |------ 配置_取加密配置节名
           |  |
           |  |------ 配置_取加密配置项名
           |  |
           |  |------ 配置_删除加密配置小节
           |  |
           |  |------ 配置_删除加密配置项目
           |  |
           |  |------ 配置_置配置文件密码
           |  |
           |  |------ 回收站_是否有文件
           |  |
           |  |------ 回收站_清空回收站
           |  |
           |  |------ 目录_浏览文件夹
           |  |
           |  |------ 回收站_删除到回收站
           |  |
           |  |------ 文本_到字节集
           |  |
           |  |------ _取指针_文本型
           |  |
           |  |
======窗口程序集1
           |  |
           |  |
======程序集_不公开
           |  |
           |  |------ 托盘事件处理
           |  |
           |  |------ 十进制到十六进制
           |  |
           |  |------ 十六进制到十进制
           |  |
           |  |------ GetDiskLists
           |  |
           |  |------ BinMid
           |  |
           |  |------ BinLen
           |  |
           |  |------ BinToText
           |  |
           |  |------ _取指针_字节集
           |  |
           |  |------ GetBlankBin
           |  |
           |  |------ GetTheFolder
           |  |
           |  |------ BrowseCallbackProc
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetWindowLong
           |  |
           |  |---[dll]------   RegisterWindowMessageA
           |  |
           |  |---[dll]------   LocalSize
           |  |
           |  |---[dll]------   lstrcpyn
           |  |
           |  |---[dll]------   Shell_NotifyIconA
           |  |
           |  |---[dll]------   SendMessage
           |  |
           |  |---[dll]------   SetForegroundWindow
           |  |
           |  |---[dll]------   TrackPopupMenu
           |  |
           |  |---[dll]------   CallWindowProc
           |  |
           |  |---[dll]------   SetWindowLong_
           |  |
           |  |---[dll]------   GetWindowLong_
           |  |
           |  |---[dll]------   SetLayeredWindowAttributes_
           |  |
           |  |---[dll]------   ShowWindow_
           |  |
           |  |---[dll]------   CreateWaitableTimer_
           |  |
           |  |---[dll]------   SetWaitableTimer_
           |  |
           |  |---[dll]------   MsgWaitForMultipleObjects_
           |  |
           |  |---[dll]------   CloseHandle_
           |  |
           |  |---[dll]------   SetTimer_
           |  |
           |  |---[dll]------   KillTimer_
           |  |
           |  |---[dll]------   取操作系统目录
           |  |
           |  |---[dll]------   SHQueryRecycleBin
           |  |
           |  |---[dll]------   GetLogicalDriveStrings
           |  |
           |  |---[dll]------   LocalAlloc
           |  |
           |  |---[dll]------   LocalFree
           |  |
           |  |---[dll]------   RtlMoveMemory
           |  |
           |  |---[dll]------   SHEmptyRecycleBin
           |  |
           |  |---[dll]------   lstrcat
           |  |
           |  |---[dll]------   SHBrowseForFolder
           |  |
           |  |---[dll]------   系统关于窗口
           |  |
           |  |---[dll]------   SHGetPathFromIDList
           |  |
           |  |---[dll]------   SHFileOperation
           |  |
           |  |---[dll]------   lstrcpyn_文本型
           |  |
           |  |---[dll]------   文本_取长度

调用的DLL命令:

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

.DLL命令 RegisterWindowMessageA, 整数型, , "RegisterWindowMessageA"
    .参数 lpString, 文本型

.DLL命令 LocalSize, 整数型
    .参数 参数一, NotifyIconData, 传址

.DLL命令 lstrcpyn, 整数型, , "lstrcpyn"
    .参数 lpString1, 字节型, 数组
    .参数 lpString2, 文本型
    .参数 iMaxLength, 整数型

.DLL命令 Shell_NotifyIconA, 整数型, "shell32.dll", "Shell_NotifyIconA"
    .参数 dwMessage, 整数型
    .参数 lpData, NotifyIconData

.DLL命令 SendMessage, 整数型, "user32", "SendMessageA", , 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回。SendMessageBynum， ;    SendMessageByString是该函数的“类型security”声明形式  由具体的消息决定
    .参数 hwnd, 整数型, , 要接收消息的那个窗口的句柄
    .参数 wMsg, 整数型, , 消息的标识符
    .参数 wParam, 整数型, , 具体取决于消息
    .参数 lParam, 整数型, , 具体取决于消息;

.DLL命令 SetForegroundWindow, 整数型, "user32", "SetForegroundWindow", , 将窗口设为系统的前台窗口。这个函数可用于改变用户目前正在操作的应用程序  非零表示成功，零表示失败。会设置GetLastError
    .参数 hwnd, 整数型, , 带到前台的窗口;

.DLL命令 TrackPopupMenu, 整数型, "user32", "TrackPopupMenu", , 在屏幕的任意地方显示一个弹出式菜单  非零表示成功，零表示失败。会设置GetLastError
    .参数 hMenu, 整数型, , 弹出式菜单的句柄
    .参数 wFlags, 整数型, , 位置标志和鼠标追踪标志的组合，见下表;位置标志：说明;TPM_CENTERALIGN：菜单在指定位置水平居中;TPM_LEFTALIGN：菜单的左侧置于水平x坐标处;TPM_RIGHTALIGN：菜单的右侧置于水平x坐标处;TPM_LEFTBUTTON：鼠标左键标准运作方式;TPM_RIGHTBUTTON：用鼠标右键进行菜单追踪
    .参数 x, 整数型, , 这个点指定了弹出式菜单在屏幕坐标系统中的位置
    .参数 y, 整数型, , 同上
    .参数 nReserved, 整数型, , 未使用，设为零
    .参数 hwnd, 整数型, , 用于接收弹出式菜单命令的窗口的句柄。应该使用窗体的窗口句柄——窗体中有一个菜单能象弹出式菜单那样接收相同的命令ID集
    .参数 lprc, 整数型, 传址, Rect，用屏幕坐标定义的一个矩形，如用户在这个矩形的范围内单击，则弹出式菜单不会关闭。如单击弹出式菜单之外的任何一个地方，则会关闭菜单。可以设为NULL;

.DLL命令 CallWindowProc, 整数型, "user32", "CallWindowProcA"
    .参数 lpPrevWndFunc, 子程序指针
    .参数 HWnd, 整数型
    .参数 Msg, 整数型
    .参数 wParam, 整数型
    .参数 lParam, 整数型

.DLL命令 SetWindowLong_, 整数型, , "SetWindowLongA", , 在窗口结构中为指定的窗口设置信息  指定数据的前一个值
    .参数 窗口句柄, 整数型, , hwnd，欲为其取得信息的窗口的句柄
    .参数 窗口信息值, 整数型, , nIndex，请参考GetWindowLong函数的nIndex参数的说明
    .参数 窗口信息新值, 整数型, , dwNewLong，由nIndex指定的窗口信息的新值

.DLL命令 GetWindowLong_, 整数型, "user32", "GetWindowLongA", , 从指定窗口的结构中取得信息  由nIndex决定。零表示出错。会设置GetLastError
    .参数 窗口句柄, 整数型, , 欲为其获取信息的窗口的句柄
    .参数 属性, 整数型, , 欲取回的信息，可以是下述任何一个常数：;GWL_EXSTYLE：扩展窗口样式;GWL_STYLE：窗口样式;GWL_WNDPROC：该窗口的窗口函数的地址;GWL_HINSTANCE：拥有窗口的实例的句柄;GWL_HWNDPARENT：该窗口之父的句柄。不要用SetWindowWord来改变这个值;GWL_ID：对话框中一个子窗口的标识符;GWL_USERDATA：含义由应用程序规定;DWL_DLGPROC：这个窗口的对话框函数地址;DWL_MSGRESULT：在对话框函数中处理的一条消息返回的值;DWL_USER：含义由应用程序规定;

.DLL命令 SetLayeredWindowAttributes_, 整数型, , "SetLayeredWindowAttributes", , 设置窗口透明
    .参数 hwnd, 整数型
    .参数 crKey, 整数型
    .参数 bAlpha, 整数型
    .参数 dwFlags, 整数型

.DLL命令 ShowWindow_, 整数型, "user32", "ShowWindow", , 控制窗口的可见性（在vb里使用：针对vb窗体及控件，请使用对应的vb属性）  如窗口之前是可见的，则返回TRUE（非零），否则返回FALSE（零）
    .参数 hwnd, 整数型, , 窗口句柄，要向这个窗口应用由nCmdShow指定的命令
    .参数 nCmdShow, 整数型, , 为窗口指定可视性方面的一个命令。请用下述任何一个常数;SW_HIDE：隐藏窗口，活动状态给令一个窗口;SW_MINIMIZE：最小化窗口，活动状态给令一个窗口;SW_RESTORE：用原来的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOW：用当前的大小和位置显示一个窗口，同时令其进入活动状态;SW_SHOWMAXIMIZED：最大化窗口，并将其激活;SW_SHOWMINIMIZED：最小化窗口，并将其激活;SW_SHOWMINNOACTIVE：最小化一个窗口，同时不改变活动窗口;SW_SHOWNA：用当前的大小和位置显示一个窗口，不改变活动窗口;SW_SHOWNOACTIVATE：用最近的大小和位置显示一个窗口，同时不改变活动窗口;SW_SHOWNORMAL：与SW_RESTORE相同;

.DLL命令 CreateWaitableTimer_, 整数型, , "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命令 SetTimer_, 整数型, , "SetTimer"
    .参数 hWnd, 整数型
    .参数 nIDEvent, 整数型
    .参数 uElapse, 整数型
    .参数 lpTimerFunc, 子程序指针

.DLL命令 KillTimer_, 整数型, , "KillTimer"
    .参数 hwnd, 整数型
    .参数 nIDEvent, 整数型

.DLL命令 取操作系统目录, 整数型, "kernel32.dll", "GetWindowsDirectoryA"
    .参数 操作系统目录, 文本型
    .参数 目录长度, 整数型

.DLL命令 SHQueryRecycleBin, 整数型, "shell32.dll", "SHQueryRecycleBinA"
    .参数 根路径, 文本型
    .参数 回收站询问信息, SHQUERYRBINFO, 传址

.DLL命令 GetLogicalDriveStrings, 整数型, "kernel32", "GetLogicalDriveStringsA"
    .参数 nBufferLength, 整数型
    .参数 lpBuffer, 字节集

.DLL命令 LocalAlloc, 整数型
    .参数 uFlags, 整数型
    .参数 uBytes, 整数型

.DLL命令 LocalFree, 整数型
    .参数 hMem, 整数型

.DLL命令 RtlMoveMemory, 整数型, , "RtlMoveMemory"
    .参数 lpvDest, 整数型, 传址
    .参数 lpvSource, 整数型
    .参数 cbCopy, 整数型

.DLL命令 SHEmptyRecycleBin, , "shell32.dll", "SHEmptyRecycleBinA"
    .参数 句柄, 整数型
    .参数 pszRootPath, 文本型
    .参数 dwFlags, 整数型

.DLL命令 lstrcat, 整数型, "kernel32", "lstrcatA"
    .参数 lpString1, 文本型
    .参数 lpString2, 文本型

.DLL命令 SHBrowseForFolder, 整数型, "shell32", "SHBrowseForFolder"
    .参数 lpbi, BrowseInfo

.DLL命令 系统关于窗口, , , "ShellAboutA", 公开, 自定义系统关于窗口
    .参数 句柄, 整数型, , 指定窗口的句柄(HWND)，可以为0.
    .参数 软件名称, 文本型, , 指定软件名称。
    .参数 版权文本, 文本型, , 版权信息文本，不可太长。
    .参数 图标, 整数型, , 图标句柄，由LoadIconA函数返回。

.DLL命令 SHGetPathFromIDList, 整数型, "shell32", "SHGetPathFromIDList"
    .参数 pidList, 整数型
    .参数 lpBuffer, 文本型

.DLL命令 SHFileOperation, 整数型, "Shell32.dll", "SHFileOperationA"
    .参数 文件参数, SHFILEOPSTRUCT

.DLL命令 lstrcpyn_文本型, 整数型, , "lstrcpyn"
    .参数 欲取其指针, 文本型, 传址
    .参数 欲取其指针, 文本型, 传址
    .参数 保留, 整数型

.DLL命令 文本_取长度, 整数型, "kernel32.dll", "lstrlenA"
    .参数 文本, 文本型