论坛 › 『 提问交流 』 › 如何把AU3写好的自动安装文件和原文件打包成一个文件

dnvplj 发表于 2011-2-3 08:49:20

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

本帖最后由 dnvplj 于 2011-2-3 08:52 编辑

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



附原代码：Local $InstallPath
If $cmdline <> 0 Then
$installpath = $cmdline
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 发表于 2011-2-3 11:10:25

我是用 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 发表于 2011-2-3 12:52:39

学习了 挺好的

Hen5ei 发表于 2011-2-3 21:38:32

虽然二楼回答了...但是我还是要凑个数,请使用 FileInstall
{:face (303):}

mpf1240 发表于 2011-2-6 15:57:42

很好，有收获！

查看完整版本: 如何把AU3写好的自动安装文件和原文件打包成一个文件