用zip控件就行了,上网download一个吧,要我妹一个给你吗?

解决方案 »

  1.   

    to billpower:
    我是在 foxpro 中用 RUN 命令解压你的控件能在Foxpro 中使用吗?
    另外非常感谢你,请马上Email 一个控件给我,最好有使用方法。
    我的Email: [email protected]
      

  2.   

    假如是Zip文件,你完全可以通过调用Pkunzip来实现,Winzip不是命令行程序,实现解压缩时好像没有参数。
      

  3.   

    请问 xiaozuo:
    Pkunzip 是什么,怎么使用,能否告诉我?
      

  4.   

    你好,我记得曾经在一个网站上看到一篇文章说在WINZIP的网站上有相关的控件可以完成你的要求,而且还可以完成WINZIP的所有功能,至于用命令行来调用WINZIP就没听说过了
      

  5.   


    那里有winzip的空件,我也想要一个,[email protected]
      

  6.   

    我告诉你一个网站,你去DOWN好了
    http://coolzm.533.net
    DOWN完了可别忘了加分噢
      

  7.   

    Pkunzip是DOS下的ZIP文件解压缩程序,支持命令行,发到你的信箱里了。
      

  8.   

    用XcdZip控件啊,它几乎能完成所有的WINZIP功能!EMAIL:[email protected]
      

  9.   

    哈哈,还是我知道!!!
    其实WinZip也支持命令行格式,和PkZip的差不多,解压时参数为: -e
    另外,我刚刚做好一个批量解压缩的程序,支持鼠标右键功能,支持不同路径、不同类型压缩文件同时解压,叫 UnZipALL ,可惜被别的公司买了,要不然把原码给你,可以调用很多解压缩软件的哦!
      

  10.   

    用ShellExcute(),将其中一个参数设为"zip".保证搞定,给分吧!!!!
      

  11.   

    用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