易语言完整提取修改程序图标源码

系统结构:ChangeExeIcon,GetExeIcon,EnumResourceNames,

======程序集1
           |  |
           |  |------ _启动子程序
           |  |
           |  |------ ChangeExeIcon
           |  |
           |  |------ GetExeIcon
           |  |
           |  |
======调用的Dll
           |  |
           |  |---[dll]------   _lstrcpyn_整数型
           |  |
           |  |---[dll]------   _lstrcpyn_字节集
           |  |
           |  |---[dll]------   _BeginUpdateResource
           |  |
           |  |---[dll]------   _UpdateResource
           |  |
           |  |---[dll]------   _EndUpdateResource
           |  |
           |  |---[dll]------   _RtlMoveMemory
           |  |
           |  |---[dll]------   _RtlMoveMemory_读短整
           |  |
           |  |---[dll]------   _RtlMoveMemory_读整数
           |  |
           |  |---[dll]------   _RtlMoveMemory_写短整
           |  |
           |  |---[dll]------   _LoadLibrary
           |  |
           |  |---[dll]------   _FreeLibrary
           |  |
           |  |---[dll]------   EnumResourceNames
           |  |
           |  |---[dll]------   _FindResource
           |  |
           |  |---[dll]------   _SizeofResource
           |  |
           |  |---[dll]------   _LoadResource
           |  |
           |  |---[dll]------   _LockResource
           |  |
           |  |---[dll]------   _RtlMoveMemory_写整数

调用的DLL命令:

.DLL命令 _lstrcpyn_整数型, 整数型, "kernel32.dll", "lstrcpynA", , 取内存变量地址
    .参数 lpString1, 整数型, 传址, 传址
    .参数 lpString2, 整数型, 传址
    .参数 iMaxLength, 整数型

.DLL命令 _lstrcpyn_字节集, 整数型, "kernel32.dll", "lstrcpynW", , 取内存变量地址
    .参数 lpString1, 字节集, 传址, 传址
    .参数 lpString2, 字节集, 传址
    .参数 iMaxLength, 整数型

.DLL命令 _BeginUpdateResource, 整数型, "kernel32.dll", "BeginUpdateResourceA"
    .参数 pFileName, 文本型
    .参数 bDeleteExistingResources, 整数型

.DLL命令 _UpdateResource, 整数型, "kernel32.dll", "UpdateResourceA"
    .参数 hUpdate, 整数型
    .参数 lPTyPe, 整数型
    .参数 IPName, 整数型
    .参数 wLanguage, 短整数型
    .参数 lgData, 整数型
    .参数 cbData, 整数型

.DLL命令 _EndUpdateResource, 整数型, "kernel32.dll", "EndUpdateResourceA"
    .参数 hUpdate, 整数型
    .参数 fDiscard, 整数型

.DLL命令 _RtlMoveMemory, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 _RtlMoveMemory_读短整, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 短整数型, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 _RtlMoveMemory_读整数, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型, 传址
    .参数 Source, 整数型
    .参数 Length, 整数型

.DLL命令 _RtlMoveMemory_写短整, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 短整数型, 传址
    .参数 Length, 整数型

.DLL命令 _LoadLibrary, 整数型, "kernel32.dll", "LoadLibraryA", , 载入指定的动态链接库，并将它映射到当前进程使用的地址空间。一旦载入，即可访问库内保存的资源  成功则返回库模块的句柄，零表示失败。会设置GetLastError
    .参数 lpLibFileName, 文本型, , 指定要载入的动态链接库的名称。采用与CreateProcess函数的lpCommandLine参数指定的同样的搜索顺序;

.DLL命令 _FreeLibrary, 整数型, "kernel32.dll", "FreeLibrary", , 释放指定的动态链接库，它们早先是用LoadLibrary ;    API函数装载的  非零表示成功，零表示失败。会设置GetLastError
    .参数 hLibModule, 整数型, , 要释放的一个库句柄在VB里使用只能用这个函数释放那些由应用程序明确装载的DLL。对LoadLibrary的每一次调用都应该有一个对应的FreeLibrary调用;

.DLL命令 EnumResourceNames, 整数型, "kernel32.dll", "EnumResourceNamesA"
    .参数 hModule, 整数型
    .参数 lpType, 整数型
    .参数 lpEnumFunc, 子程序指针
    .参数 lParam, 整数型

.DLL命令 _FindResource, 整数型, "kernel32.dll", "FindResourceA", , 0失败
    .参数 hModule, 整数型
    .参数 lpName, 整数型
    .参数 lpType, 整数型

.DLL命令 _SizeofResource, 整数型, "kernel32.dll", "SizeofResource"
    .参数 hModule, 整数型
    .参数 hResInfo, 整数型

.DLL命令 _LoadResource, 整数型, "kernel32.dll", "LoadResource", , 0失败
    .参数 hModule, 整数型
    .参数 hReslnfo, 整数型

.DLL命令 _LockResource, 整数型, "kernel32.dll", "LockResource"
    .参数 hResData, 整数型

.DLL命令 _RtlMoveMemory_写整数, , "kernel32.dll", "RtlMoveMemory"
    .参数 Destination, 整数型
    .参数 Source, 整数型, 传址
    .参数 Length, 整数型