如何把AU3写好的自动安装文件和原文件打包成一个文件

dnvplj

请问各位朋友：
我用AU3把“ACDSee5软件”写成了自动安装，现在我想把“ACDSee5.exe（原文件）和自动安装.exe（AU3编译）这2个文件打包成一个文件。不知怎么写，请各位指教。



附原代码：

Local $InstallPath
If $cmdline[0] <> 0 Then
$installpath = $cmdline[1]
EndIf
TrayTip("软件自动安装","请勿动键盘和鼠标，否则可能导致安装失败",15,4)
Run(@ScriptDir & "\ACDSee5.exe")
WinWait("ACDSee 5.0 安装","ACDSee5 简体中文注册版")
WinActivate("ACDSee 5.0 安装","ACDSee5 简体中文注册版")
WinWaitActive("ACDSee 5.0 安装","ACDSee5 简体中文注册版")
Send("!N")
WinWait("ACDSee 5.0 安装","选择组件")
WinActivate("ACDSee 5.0 安装","选择组件")
WinWaitActive("ACDSee 5.0 安装","选择组件")
Send("!N")
WinWait("ACDSee 5.0 安装","选择安装位置")
WinActivate("ACDSee 5.0 安装","选择安装位置")
WinWaitActive("ACDSee 5.0 安装","选择安装位置")
Send("!N")
WinWait("ACDSee 5.0 安装","选择“开始菜单”文件夹")
WinActivate("ACDSee 5.0 安装","选择“开始菜单”文件夹")
WinWaitActive("ACDSee 5.0 安装","选择“开始菜单”文件夹")
Send("!I")
WinWait("ACDSee 5.0 安装","ACDSee 5.0 已安装到你的系统中")
WinActivate("ACDSee 5.0 安装","ACDSee 5.0 已安装到你的系统中")
WinWaitActive("ACDSee 5.0 安装","ACDSee 5.0 已安装到你的系统中")
Send("!F")
Exit

harrykc

我是用 FileInstall 的..

If Not FileExists(@TempDir & "") Then
        DirCreate(@TempDir & "")
EndIf

Dim $install = FileInstall("ACDSee5.exe", @TempDir & "\ACDSee5.exe", 1)

If $install = True Then
        Run(@TempDir & "\ACDSee5.exe")
EndIf

編譯時就會打包進去..

love5173

学习了 挺好的

Hen5ei

虽然二楼回答了...但是我还是要凑个数,请使用 FileInstall

mpf1240

很好，有收获！