文件压缩 autoit

ljxu · 发表于 2013-6-20 23:18:17

除了调用winrar，autoit有可以专门压缩文件的函数或者udf吗？

如果有的话，能告诉我嘛？

pusofalse · 发表于 2013-6-20 23:30:06

#include <WinAPIEx.au3>
_WinAPI_CompressBuffer

ljxu · 发表于 2013-6-21 10:38:54

回复 2# pusofalse

有例子吗?麻烦给我看看

楼上风云 · 发表于 2013-6-21 12:31:33

回复 3# ljxu

帮助文件UDFs3CHS.chm中有示例，P版都把函数给您指出来了啊、

ljxu · 发表于 2013-6-21 12:38:20

回复 4# 楼上风云

查看过，没找到，是最近更新的函数吗？

xjdjpbp · 发表于 2013-6-21 14:23:53

v3.3.8.1下的Autoit UDFs Help查過，無此函數

xjdjpbp · 发表于 2013-6-21 14:53:16

會錯意了!

#include <WinAPIEx.au3>

_WinAPI_CompressBuffer

WinAPIex.au3

lxwlxwayy · 发表于 2013-6-21 18:00:22

Func _WinAPI_CompressBuffer($pUncompressedBuffer, $iUncompressedSize, $pCompressedBuffer, $iCompressedSize, $iFormatAndEngine = 0x0002)

        Local $Ret, $pWorkSpace = 0, $Error = 1

        Do
                $Ret = DllCall('ntdll.dll', 'uint', 'RtlGetCompressionWorkSpaceSize', 'ushort', $iFormatAndEngine, 'ulong*', 0, 'ulong*', 0)
                If (@error) Or ($Ret[0]) Then
                        ExitLoop
                EndIf
                $pWorkSpace = __HeapAlloc($Ret[2])
                If @error Then
                        ExitLoop
                EndIf
                $Ret = DllCall('ntdll.dll', 'uint', 'RtlCompressBuffer', 'ushort', $iFormatAndEngine, 'ptr', $pUncompressedBuffer, 'ulong', $iUncompressedSize, 'ptr', $pCompressedBuffer, 'ulong', $iCompressedSize, 'ulong', 4096, 'ulong*', 0, 'ptr', $pWorkSpace)
                If (@error) Or ($Ret[0]) Or (Not $Ret[7]) Then
                        ExitLoop
                EndIf
                $Error = 0
        Until 1
        __HeapFree($pWorkSpace)
        If $Error Then
                If IsArray($Ret) Then
                        Return SetError(1, $Ret[0], 0)
                Else
                        Return SetError(9, 0, 0)
                EndIf
        EndIf
        Return $Ret[7]
EndFunc   ;==>_WinAPI_CompressBuffer

shuangliudaxia · 发表于 2013-6-26 17:55:57

路过学习了先

		自动登录	找回密码
密码			加入

[系统综合] 文件压缩 autoit

相关帖子