更新或删除资源模块内的修改.
#Include <WinAPIEx.au3>
_WinAPI_EndUpdateResource ( $hUpdate [, $fDiscard] )
| $hUpdate | _WinAPI_BeginUpdateResource() 与 _WinAPI_UpdateResource() 函数返回的模块句柄. |
| $fDiscard | [可选参数] 指定资源更新是否写入文件,有效值: TRUE - 删除更新. FALSE - 写入更新,资源更新将生效. (默认) |
| 成功: | 返回 1. |
| 失败: | 返回 0,设置 the @error 为非 0 值. |
在MSDN中搜索
#Include <APIConstants.au3>
#Include <WinAPIEx.au3>
Opt('MustDeclareVars', 1)
Global Const $sExe = @ScriptDir & '\MyProg.exe'
Global Const $tagICONRESDIR = 'byte Width;byte Height;byte ColorCount;byte Reserved;ushort Planes;ushort BitCount;dword BytesInRes;ushort IconId;'
Global Const $tagNEWHEADER = 'ushort Reserved;ushort ResType;ushort ResCount;' ; & $tagICONRESDIR[ResCount]
Global $hFile, $hUpdate, $tIcon, $pIcon, $sIcon, $tDir, $pDir, $tInfo, $tData, $iSize
Global $Count, $Bytes = 0, $ID = 400, $Error = 1
; 选择图标以更新资源
$sIcon = FileOpenDialog('Select File', @ScriptDir & '\Extras', 'Icon Files (*.ico)', 1 + 2, 'Script.ico')
If Not $sIcon Then
Exit
EndIf
; 创建简单的可执行文件 (MyProg.exe), 将添加图标到其中
If Not FileCopy(@ScriptDir & '\Extras\MyProg.exe', $sExe) Then
MsgBox(16, 'Error', 'Unable to copy MyProg.exe or file already exist in the current directory.')
Exit
EndIf
Do
; 开始更新资源
$hUpdate = _WinAPI_BeginUpdateResource($sExe)
If @error Then
ExitLoop
EndIf
; 把 .ico 文件作为原始二进制数据读取到结构中
$tIcon = DllStructCreate('ushort Reserved;ushort Type;ushort Count;byte[' & (FileGetSize($sIcon) - 6) & ']')
$pIcon = DllStructGetPtr($tIcon)
$hFile = _WinAPI_CreateFile($sIcon, 2, 2)
If Not $hFile Then
ExitLoop
EndIf
_WinAPI_ReadFile($hFile, $pIcon, DllStructGetSize($tIcon), $Bytes)
_WinAPI_CloseHandle($hFile)
If Not $Bytes Then
ExitLoop
EndIf
; 添加 .ico 文件中的所有图标到标识为 400, 401 等的 RT_ICON 资源, 并填充到组图标结构
$Count = DllStructGetData($tIcon, 'Count')
$tDir = DllStructCreate($tagNEWHEADER & 'byte[' & (14 * $Count) & ']')
$pDir = DllStructGetPtr($tDir)
DllStructSetData($tDir, 'Reserved', 0)
DllStructSetData($tDir, 'ResType', 1)
DllStructSetData($tDir, 'ResCount', $Count)
For $i = 1 To $Count
$tInfo = DllStructCreate('byte Width;byte Heigth;byte Colors;byte Reserved;ushort Planes;ushort BPP;dword Size;dword Offset', $pIcon + 6 + 16 * ($i - 1))
$iSize = DllStructGetData($tInfo, 'Size')
If Not _WinAPI_UpdateResource($hUpdate, $RT_ICON, $ID, 0, $pIcon + DllStructGetData($tInfo, 'Offset'), $iSize) Then
ExitLoop 2
EndIf
$tData = DllStructCreate($tagICONRESDIR, $pDir + 6 + 14 * ($i - 1))
DllStructSetData($tData, 'Width', DllStructGetData($tInfo, 'Width'))
DllStructSetData($tData, 'Height', DllStructGetData($tInfo, 'Heigth'))
DllStructSetData($tData, 'ColorCount', DllStructGetData($tInfo, 'Colors'))
DllStructSetData($tData, 'Reserved', 0)
DllStructSetData($tData, 'Planes', DllStructGetData($tInfo, 'Planes'))
DllStructSetData($tData, 'BitCount', DllStructGetData($tInfo, 'BPP'))
DllStructSetData($tData, 'BytesInRes', $iSize)
DllStructSetData($tData, 'IconId', $ID)
$ID += 1
Next
; 添加新的命名为 "MAINICON" 的 RT_GROUP_ICON 资源
If Not _WinAPI_UpdateResource($hUpdate, $RT_GROUP_ICON, 'MAINICON', 0, $pDir, DllStructGetSize($tDir)) Then
Exitloop
EndIf
$Error = 0
Until 1
; 保存或放弃可执行文件中资源的修改
If Not _WinAPI_EndUpdateResource($hUpdate, $Error) Then
$Error = 1
EndIf
; 如果错误发生了则显示消息
If $Error Then
MsgBox(16, 'Error', 'Unable to change resources.')
EndIf