易语言程序加壳源码

系统结构:压1缩,删除核心库资源,取短路径,取临时目录,U_PX处理,删除管理员权限,备份,失败删除,Y,cmd标题,SetConsoleTitleA,BeginUpdateResourceA,UpdateResourceA,EndUpdateResourceA,GetShortPathNameA,临时目录,

======英培程序集1
           |  |
           |  |------ _英培_创建完毕
           |  |
           |  |------ 压1缩
           |  |
           |  |------ 删除核心库资源
           |  |
           |  |------ 取短路径
           |  |
           |  |------ _按钮一键处理_被单击
           |  |
           |  |------ _按钮开始压缩_被单击
           |  |
           |  |------ _按钮开始压缩1_被单击
           |  |
           |  |------ 取临时目录
           |  |
           |  |------ U_PX处理
           |  |
           |  |------ _按钮1浏览_被单击
           |  |
           |  |------ _拖放对象1_得到文件
           |  |
           |  |------ _按钮_退出程序_被单击
           |  |
           |  |------ _按钮添加管理员权限_被单击
           |  |
           |  |------ 删除管理员权限
           |  |
           |  |------ _按钮删除管理员权限_被单击
           |  |
           |  |------ _按钮内部移位_被单击
           |  |
           |  |------ 备份
           |  |
           |  |------ 失败删除
           |  |
           |  |
======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ Y
           |  |
           |  |------ cmd标题
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   SetConsoleTitleA
           |  |
           |  |---[dll]------   BeginUpdateResourceA
           |  |
           |  |---[dll]------   UpdateResourceA
           |  |
           |  |---[dll]------   EndUpdateResourceA
           |  |
           |  |---[dll]------   GetShortPathNameA
           |  |
           |  |---[dll]------   临时目录

调用的DLL命令:

.DLL命令 SetConsoleTitleA, 整数型, "kernel32.dll", "SetConsoleTitleA", 公开, 置控制台窗口标题    .参数 lpTitle, 文本型, , 标题
    .参数 标题, 文本型

.DLL命令 BeginUpdateResourceA, 整数型, , , , 如果此函数运行成功,函数返回一个句柄。如果被指定的文件不是一个可执行文件，或者可执行文件已被装载，或者文件不存在，或是文件不能被打开写入时，则返回值为空。
    .参数 pFileName, 文本型, , pFileName：指向一个表示结束的空字符串指针，它是用来指定用以更新资源的基于32-位可执行文件的文件名。应用程序必须获得访问这个文件的可写权限，并且此文件在当前状态下不能被执行。如果pFileName未被指定完全路径，系统将在当前路径下搜寻此文件。
    .参数 bDeleteExistingResources, 逻辑型, , bDeleteExistingResources：说明是否删除PFileName参数指定的现有资源。如果这个参数为TRUE则现有的资源将被删除，而更新可执行文件只包括由UpdateResource函数增加的资源。如果这个参数为FALSE，则更新的可执行文件包括现有的全部资源，除非通过UpdateResource特别说明被删除或是替换的。

.DLL命令 UpdateResourceA, 逻辑型, , , , 可执行文件
    .参数 指定更新文件句柄, 整数型, , hUpdate：指定更新文件句柄。此句柄由BeginUpdateResource函数返回。
    .参数 传递的整数值, 整数型, , lpType：指向说明将被更新的资源类型的字符串，它以NULL为终止符。这个参数可以是一个通过宏MAKENTRESOURCE传递的整数值，含义参见EnumResLangProc\lpType。
    .参数 lpName, 整数型, , 指向说明待被更新的资源名称的字符串，它以NULL为终止符。这个参数可以是一个通过宏MAKEINTRESOURCE传递的整数值。
    .参数 wLanguage, 整数型, , wLanguage：指定将被更新资源的语言标识。要了解基本的语言标识符以及由这些标识符组成的字语言标识符的列表，可参见宏MAKELANGID。
    .参数 lpData, 字节集, , lpData：指向被插入可执行文件的资源数据的指针。如果资源是预定义类型值之一，那么数据必须是有效且适当排列的。注意这是存储在可执行文件中原始的一进制数据，而不是由Loadlcon，LoadString或其他装载特殊资源函数提供的数据。所有包含字符串、文本的数据必须是Unicode格式；IpData不能指向ANSI数据。如果lpData为NULL，所指定的资源将从可执行文件中被删除。
    .参数 cbData, 整数型, , cbData：指定lpData中的资源数据数据大小，以字节计数。

.DLL命令 EndUpdateResourceA, 逻辑型, , , , 该函数终止在可执行文件中的资源更新。
    .参数 hUpdate, 整数型, , hUpdate：用于资源更新的句柄。此句柄通过BeginUpdateResource函数返回。
    .参数 fDiscard, 逻辑型, , fDiscard：用来说明是否向可执行文件中写入资源更新内容。如果此参数为TRUE，则在可执行文件中无变化；如果此参数为FALSE，则在可执行文件中写入变化。

.DLL命令 GetShortPathNameA, 整数型, "kernel32.dll", "GetShortPathNameA", , 返回装载到lpszShortPath缓冲区的字符数量。如lpszShortPath的长度不足，不能容下文件名，就返回需要的缓冲区长度
    .参数 lpszLongPath, 文本型, , 指定欲获取短路径名的那个文件的名字。可以是个完整路径，或者由当前目录决定
    .参数 lpszShortPath, 文本型, , 指定一个缓冲区，用于装载文件的短路径和文件名，需先分配空间。
    .参数 cchBuffer, 整数型, , lpszShortPath缓冲区长度，请设置为260。

.DLL命令 临时目录, 整数型, , "GetTempPathA", 公开
    .参数 缓冲区长度, 整数型
    .参数 缓冲区, 文本型