用FSZLib.dll 我给你发到信箱中pslib.dll 用以下代码,很清楚吧? 别忘了给100分 哈哈!!Public Declare Function CompFile Lib "FSZLib" (ByVal OutputName As String, ByVal InputName As String, ByVal Level As Long, ByVal ProgressFunction As Long) As Long Public Declare Function DecompFile Lib "FSZLib" (ByVal OutputName As String, ByVal InputName As String, ByVal ProgressFunction As Long) As Long Global gPerCent As Integer Enum fsCompressionLevel fsCmpNoCompression fsCmpFastest fsCmpLev2 '选择压缩比 fsCmpLev3 fsCmpLev4 fsCmpLev5 fsCmpDefault fsCmpLev7 fsCmpLev8 fsCmpMaximum End Enum Public Function 压缩(OutputFile As String, InputFile As String, Level As fsCompressionLevel) As Integer 压缩 = CompFile(OutputFile, InputFile, Level, AddressOf Progress) End Function Public Function 解压(OutputFile As String, InputFile As String) As Integer 解压 = DecompFile(OutputFile, InputFile, AddressOf Progress) End Function
我是在 foxpro 中用 RUN 命令解压你的控件能在Foxpro 中使用吗?
另外非常感谢你,请马上Email 一个控件给我,最好有使用方法。
我的Email: [email protected]
Pkunzip 是什么,怎么使用,能否告诉我?
那里有winzip的空件,我也想要一个,[email protected]
http://coolzm.533.net
DOWN完了可别忘了加分噢
其实WinZip也支持命令行格式,和PkZip的差不多,解压时参数为: -e
另外,我刚刚做好一个批量解压缩的程序,支持鼠标右键功能,支持不同路径、不同类型压缩文件同时解压,叫 UnZipALL ,可惜被别的公司买了,要不然把原码给你,可以调用很多解压缩软件的哦!
我给你发到信箱中pslib.dll
用以下代码,很清楚吧?
别忘了给100分 哈哈!!Public Declare Function CompFile Lib "FSZLib" (ByVal OutputName As String, ByVal InputName As String, ByVal Level As Long, ByVal ProgressFunction As Long) As Long
Public Declare Function DecompFile Lib "FSZLib" (ByVal OutputName As String, ByVal InputName As String, ByVal ProgressFunction As Long) As Long
Global gPerCent As Integer
Enum fsCompressionLevel
fsCmpNoCompression
fsCmpFastest
fsCmpLev2 '选择压缩比
fsCmpLev3
fsCmpLev4
fsCmpLev5
fsCmpDefault
fsCmpLev7
fsCmpLev8
fsCmpMaximum
End Enum
Public Function 压缩(OutputFile As String, InputFile As String, Level As fsCompressionLevel) As Integer
压缩 = CompFile(OutputFile, InputFile, Level, AddressOf Progress)
End Function
Public Function 解压(OutputFile As String, InputFile As String) As Integer
解压 = DecompFile(OutputFile, InputFile, AddressOf Progress)
End Function