函数参考

_WinAPI_BeginUpdateResource

获取用于添加,删除或替换二进制模块资源的句柄.

#Include <WinAPIEx.au3>
_WinAPI_BeginUpdateResource ( $sFile [, $fDelete] )

参数

$sFile 被更新的二进制文件资源.应用程序必须能够写访问此文件;
$sFile 引用的文件当前还未运行.
$fDelete [可选参数] 指定是否删除现有资源,有效值:
TRUE - 删除资源.更新后的文件仅包含 _WinAPI_UpdateResource() 添加的资源.
FALSE - 更新后的文件包括现有资源. (默认)

返回值

成功: 返回可供 _WinAPI_UpdateResource() 与 _WinAPI_EndUpdateResource() 函数使用的句柄.
失败: 返回 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