孤独剑的专栏

挑战极限

DELPHI 利用WINRRA 实现压缩解压

解压:

ShellExecute(Handle,’open’,’WinRar’,’e -r -y E:\MyCode\C1\升级程序\升级程序.rar f:\’,nil,SW_HIDE)

压缩:

ShellExecute(Handle,’open’,’WinRar’,’a -r f:\ver.rar f:\ver.txt’,nil,SW_HIDE)

说明:路径中含有空格,得用双引号引用。
WinRarStr := ‘e -r -y C:\JinShuiBakDir\code.rar ’ + ‘”’+ExtractFilePath(Application.ExeName+’”’);
i := ShellExecute(Application.Handle,’open’,’WinRar’,pchar(WinRarStr),nil,SW_HIDE);

阅读更多
个人分类: Delphi
上一篇关于 Delphi 中流的使用(7) 压缩与解压缩(TCompressionStream、TDecompressionStream)
下一篇Mysql删除或者更新出错 Error Code: 1175. You are using safe update
想对作者说点什么? 我来说一句

VclZip delphi文件夹压缩解压控件

2015年09月01日 522KB 下载

Delphi实现文件压缩解压

2017年08月03日 920KB 下载

Delphi实现Zip压缩/解压缩

2013年06月06日 5.11MB 下载

Delphi解压gzip字符串例程

2008年12月13日 442KB 下载

没有更多推荐了,返回首页

关闭
关闭