lzh文件解压缩

科技前沿 • 2025-04-07 22:08 • 阅读 45

大家好，我是讯享网，很高兴认识大家。

lzh文件解压缩

讯享网

执行例： Common.LhaUtils.UnCompress("d:/test.lzh", "d:/out/")

Imports System.Runtime.InteropServices

' '' <summary>

' '' LZH文件解压缩

' '' 　需要UNLHA32.DLL文件

' '' 　下载地址：http://www2.nsknet.or.jp/~micco/micindex.html

' '' </summary>

' '' <remarks></remarks>

Public Class LhaUtils

'取得DLL的版本

<DllImport("unlha32")> _

Private Shared Function UnlhaGetVersion() As UInt16

End Function

'取得DLL的执行情况

<DllImport("unlha32")> _

Private Shared Function UnlhaGetRunning() As Boolean

End Function

'文件检查

<DllImport("unlha32")> _

Private Shared Function UnlhaCheckArchive( _

ByVal szFileName As String, _

ByVal iMode As Integer) As Boolean

End Function

'文件解压缩

<DllImport("unlha32")> _

Private Shared Function Unlha( _

ByVal hwnd As Integer, _

ByVal szCmdLine As String, _

ByVal szOutput As String, _

ByVal dwSize As Integer) As Integer

End Function

Public Shared Sub UnCompress(ByVal archiveFile As String, ByVal extractDir As String)

'文件检查

If Not System.IO.File.Exists(archiveFile) Then

Throw New ApplicationException("文件不存在")

End If

'DLL检查

Try

Dim ver As UInt16 = UnlhaGetVersion()

'Console.WriteLine("版本：{0}", ver)

Catch

Throw New ApplicationException("没找到Unlha32.dll文件")

End Try

'执行检查

If UnlhaGetRunning() Then

Throw New ApplicationException("DLL正在执行")

End If

'解压缩检查

If Not UnlhaCheckArchive(archiveFile, 0) Then

Throw New ApplicationException("文件不能被解压缩")

End If

'文件名和文件夹名

If archiveFile.IndexOf(" "c) > 0 Then

archiveFile = """" + archiveFile + """"

End If

If Not extractDir.EndsWith("") Then

extractDir += ""

End If

If extractDir.IndexOf(" "c) > 0 Then

extractDir = """" + extractDir + """"

End If

'解压缩

Dim ret As Integer = Unlha(0, _

String.Format("x {0} {1} *", archiveFile, extractDir), Nothing, 0)

'结果

If ret <> 0 Then

If ret = 32800 Then

Throw New ApplicationException("文件解压缩取消")

Else

Throw New ApplicationException("文件解压缩异常结束")

End If

End Sub

End Class

lzh文件解压缩

lzh文件解压缩

相关推荐