如何修改内容/替换.msi文件的二进制文件作为构建后步骤？

在x64系统上使用CustomAction构建Visual Studio 2010安装项目时，Visual Studio包含错误版本的
InstallUtilLib.dll
：它安装32位垫片，这对于编译为64位的CustomActions不起作用（在我的情况下是一个要求，因为它取决于64位本机dll）。 安装这样的
.msi
会导致
System.BadImageFormat
异常。 根据这篇文章（使用Visual Studio进行64位托管自定义操作），解决方案是在
orca.exe
中打开生成的
.msi
并替换二进制“InstallUtil”。 我想自动化这个。有任何想法吗？ 编辑：根据mohlsen提供的答案，我在解决方案中添加了以下脚本（不是安装项目本身，因为添加到安装项目的文件进入了msi ...）： 
Option Explicit
rem -----------------------------------------------------------
rem Setup_PostBuildEvent_x64.vbs
rem 
rem Patch an msi with the 64bit version of InstallUtilLib.dll 
rem to allow x64 built managed CustomActions.
rem -----------------------------------------------------------    

Const msiOpenDatabaseModeTransact = 1
Const msiViewModifyAssign         = 3

rem path to the 64bit version of InstallUtilLib.dll
Const INSTALL_UTIL_LIB_PATH = "C:WindowsMicrosoft.NETFramework64v2.0.50727InstallUtilLib.dll"

Dim installer : Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

Dim sqlQuery : sqlQuery = "SELECT `Name`, `Data` FROM Binary"

Dim database
Set database = installer.OpenDatabase(Wscript.Arguments(0), msiOpenDatabaseModeTransact)
Dim view : Set view = database.OpenView(sqlQuery)

Dim record : Set record = installer.CreateRecord(2)
record.StringData(1) = "InstallUtil"
view.Execute record

record.SetStream 2, INSTALL_UTIL_LIB_PATH

view.Modify msiViewModifyAssign, record
database.Commit

Set view = Nothing
Set database = Nothing
接下来，我编辑了安装项目属性：我将
PostBuildEvent
属性设置为： 
wscript.exe "$(ProjectDir)..Setup_PostBuildEvent_x64.vbs" $(BuiltOuputPath)
注意：右键单击解决方案资源管理器中的安装项目，然后选择“属性”将打开错误的对话框（“属性页”）。你想要“属性窗口”（CTRL + W，P）。     
2019-05-21 2 条评论
分享

没有找到相关结果

    已邀请:

    好按紊叉

    不确定如何通过脚本，代码等自动执行此操作。但无论如何，此功能都可以通过Windows Installer SDK获得，我相信它现在是Windows SDK的一部分（曾经是Platform SDK） 。 无论如何，这里是我过去用来手动将文件添加到MSI的VBScript。它已经有一段时间了，但我只是在MSI上运行它来测试，并用Orca验证并且程序集被添加到二进制表中。这应该指向正确的方向。 
    Option Explicit

Const msiOpenDatabaseModeTransact     = 1
Const msiViewModifyAssign         = 3

Dim installer : Set installer = Nothing
Set installer = Wscript.CreateObject("WindowsInstaller.Installer")

Dim sqlQuery : sqlQuery = "SELECT `Name`,`Data` FROM Binary"

Dim database : Set database = installer.OpenDatabase("YourInstallerFile.msi", msiOpenDatabaseModeTransact)
Dim view     : Set view = database.OpenView(sqlQuery)
Dim record

Set record = installer.CreateRecord(2)
record.StringData(1) = "InstallUtil"
view.Execute record

record.SetStream 2, "InstallUtilLib.dll"

view.Modify msiViewModifyAssign, record 
database.Commit 
Set view = Nothing
Set database = Nothing
    希望这可以帮助！     
    2019-05-21 0 0
    分享
    为什么被折叠? 0 个回复被折叠

    要回复问题请先登录或注册

    或代码 OrCode.com 备案号：粤ICP备15020848号-1
    Escape time: 0.046164989471436