利用winrar制作exe程序,如何配置解压后自动运行

转自:https://blog.csdn.net/shann09/article/details/27497901

rar自解压安装,且解压后自动运行某程序
1,winRAR能够打包成自解压的exe文件,并且设定解压前或解压后运行某个程序
2,选择要压缩的所有文件,右键“添加到压缩文件”
3,勾选“创建自解压格式压缩文件”
4,“高级”选项卡 -》 “自解压选项”
5,“常规”选项卡 -》 解压路径:C:\Program Files\ctrl(默认解压路径,)
6,“解压后运行” -》 Reg.bat(运行的当前路径,即:解压路径\Reg.bat)
7,“模式”选项卡 -》 选择“全部静默”(这样的话解压路径就会是上面设置的默认解压路径)
实例:有如下3个文件,都是在ctrl文件夹下:
D:\ctrl\
D:\ctrl\aa.dll
D:\ctrl\bb.dll
D:\ctrl\Reg.bat
1,一般情况下,要正确运行Reg.bat,当前路径应该在ctrl目录下,例如在cmd命令行下应该这样运行
cd D:\ctrl
Reg.bat
而不是这样运行
cd D:
ctrl\Reg.bat
2,自解压文件的“解压后运行”功能,其当前路径就是解压路径
a.如果打包的是D:\ctrl\目录及其子文件,而解压路径设置为C:\Program Files\ctrl,那么生成如下文件:
C:\Program Files\ctrl\ctrl\
C:\Program Files\ctrl\ctrl\aa.dll
C:\Program Files\ctrl\ctrl\bb.dll
C:\Program Files\ctrl\ctrl\Reg.bat
不想要的。
b.如果打包的是D:\ctrl\目录及其子文件,而解压路径设置为C:\Program Files\,那么生成如下文件:
C:\Program Files\ctrl\
C:\Program Files\ctrl\aa.dll
C:\Program Files\ctrl\bb.dll
C:\Program Files\ctrl\Reg.bat
不想要的,因为当前路径就是C:\Program Files\,可以设置“解压后运行”“ctrl\Reg.bat”,但是无法成功运行
c.如果仅打包的是D:\ctrl\目录下的子文件,而解压路径设置为C:\Program Files\,那么生成如下文件:
C:\Program Files\aa.dll
C:\Program Files\bb.dll
C:\Program Files\Reg.bat
不想要的。
d.如果仅打包的是D:\ctrl\目录下的子文件,而解压路径设置为C:\Program Files\ctrl,那么生成如下文件:
C:\Program Files\ctrl\
C:\Program Files\ctrl\aa.dll
C:\Program Files\ctrl\bb.dll
C:\Program Files\ctrl\Reg.bat
想要的,解压后路径:C:\Program Files\ctrl。
3,所以要想让自解压文件正确运行Reg.bat,应该
a,打包D:\ctrl\目录下的子文件(不包括ctrl\目录本身)
b,解压路径应该设置为C:\Program Files\ctrl
c,设置“解压后运行”:Reg.bat
--------------------- 
作者:shann09 
来源:CSDN 
原文:https://blog.csdn.net/shann09/article/details/27497901 
版权声明:本文为博主原创文章,转载请附上博文链接!

 

  • 1
    点赞
  • 6
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
在VB.NET中使用winrar.exe进行文件解压的方法如下: 首先,需要在VB.NET项目中添加对System.Diagnostics命名空间的引用,以便可以使用Process类来启动外部应用程序。 接下来,可以使用以下代码来解压文件: ```vb Dim winrarPath As String = "C:\Program Files\WinRAR\WinRAR.exe" ' winrar.exe的路径 Dim rarFile As String = "C:\path\to\file.rar" ' 要解压RAR文件路径 Dim extractTo As String = "C:\path\to\extract\to" ' 解压到的目标文件夹路径 Dim command As String = String.Format("x ""{0}"" ""{1}"" -y", rarFile, extractTo) Dim processInfo As New ProcessStartInfo(winrarPath, command) processInfo.WindowStyle = ProcessWindowStyle.Hidden ' 设置窗口风格为隐藏 processInfo.UseShellExecute = False ' 设置为不使用操作系统的Shell执行 processInfo.RedirectStandardOutput = True ' 将标准输出重定向到Process.StandardOutput流中 Dim process As Process = Process.Start(processInfo) process.WaitForExit() ' 等待进程结束 Dim output As String = process.StandardOutput.ReadToEnd() ' 读取标准输出信息 process.Close() ' 关闭进程 ' 检查解压是否成功 If output.Contains("All OK") Then MessageBox.Show("文件解压成功!") Else MessageBox.Show("文件解压失败。") End If ``` 上述代码中,我们首先指定了winrar.exe的路径、要解压RAR文件路径以及解压到的目标文件夹路径。然后,使用Process类启动winrar.exe并传入解压命令,其中"-y"参数表示自动覆盖已存在的文件。接着,通过重定向标准输出流来读取winrar.exe的输出信息。最后,根据输出信息判断解压是否成功,并弹出相应的提示窗口。 需要注意的是,以上代码假设winrar.exe已经正确安装在指定的路径下。如果winrar.exe的路径不同,或者运行环境中没有安装WinRAR软件,则需要相应地修改winrarPath的值,并确保winrar.exe存在于指定路径中。 希望以上回答对您有所帮助!
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值