Backup Windows using libwim-15.dll

MadDogVachon · July 2

Hi everyone,

Homes32 has made a good UDF for manipulating Windows Image Files (.wim) without ImageX.exe but Windows Imaging API directly (wimgapi.dll). I want to capture and apply a system image using wimlib (libwim-15.dll) for faster and better compression. With my kitchen programming skills, I can't figure out how to make my code work with the developers documentation.

Here's what I got:

#RequireAdmin

_WimLib()

Func _WimLib()
    Local Const $Title = "WimLibGui with AutoIt3"
    Local $iResult, $WIMStruct
    Local $sSourceFolder = "Z:"
    Local $sWimFile = "A:\WimLibTest\WimLib Test 2022.WimLib"

    Local $ghWimLib = DllOpen(@ScriptDir & "\libwim-15.dll")
    If $ghWimLib = -1 Then
        MsgBox(262144+16, $Title, """libwin-15.dll"" cannot be opened." & @CRLF & @CRLF & "WimLib.")
        Return
    EndIf

    $WIMStruct = $sWimFile

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_create_new_wim", _
            "ctype", "WIMLIB_COMPRESSION_TYPE_LZX", _
            "wim_ret", $WIMStruct)
    If @error Then
        ConsoleWrite("Error ""wimlib_create_new_wim"" " & @error)
        Return
    EndIf

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_add_image", _
            "wim", $WIMStruct, _
            "source", $sSourceFolder, _
            "name", "", _
            "config_file", "", _
            "add_flags", 0)
    If @error Then
        ConsoleWrite("Error ""wimlib_add_image"" " & @error)
        Return
    EndIf

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_write", _
            "wim", $WIMStruct, _
            "path", $sWimFile, _
            "image", 1, _
            "write_flags", 1, _
            "num_threads", 0)
    If @error Then
        ConsoleWrite("Error ""wimlib_write"" " & @error)
        Return
    EndIf

    Return "Done!"

    $ghWimLib = 0
EndFunc   ;==>_WimLib

Thanks for the help!

Jonathan

Edited July 2 by MadDogVachon
Added a links

Danyfirex · July 3

Please try to read AutoIt Dllcall documentation, It seems to be You're running without learning how to walk. 🙃

Saludos

MadDogVachon · July 4

Hi Danyfirex,

Thanks for your answer. I totally agree with you. Sadly, not everyone can imitate Ironman🙃.

I read monoceres tutorial Dealing_with_Dll.pdf, DllCall documentation and Homes32 WimgapiUDF to no avail. I can't figure out how to translate the C code of WimLib documentation to Autoit. That's why I posted here. If you, or someone else, can point me where I can understand, I'm willing to learn.

Thanks again!

Jonathan

Edited July 5 by MadDogVachon

MadDogVachon · July 4

Sorry, I forgot to give the link to Homes32's UDF. Here.

Jonathan

Danyfirex · July 5

Hello, It's because you're not reading/checking deeply. (but It's a little complex if you're a newbie)

You can find header information more simple here.

I don't have time now to convert WIMStruct to AutoIt so I'll probably write code/help later.

Saludos

MadDogVachon · July 6

Hi Danyfirex,

I finally understand what you said... 😇 And what to do...😓

Here's my improved code. Still not working but it's a step forward.

#RequireAdmin

ConsoleWrite(@CRLF & _WimLib() & @CRLF)

Func _WimLib()
    Local Const $Title = "WimLibGui with AutoIt3"
    Local $iResult
    Local $sSourceFolder = "Z:"
    Local $sWimFile = "D:\WinRE in work!\WimLib\WimLib Test 2022.WimLib"

    Local $ghWimLib = DllOpen(@ScriptDir & "\libwim-15.dll")
    If $ghWimLib = -1 Then
        MsgBox(262144+16, $Title, """libwin-15.dll"" cannot be opened." & @CRLF & @CRLF & "WimLib.")
        Return
    EndIf

    Local $WIMStruct = DllStructCreate("ptr")

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_create_new_wim", _
            "INT", 2, _                     ; ctype
            "STRUCT", $WIMStruct)           ; wim_ret
    If @error Then Return "Error ""wimlib_create_new_wim"" " & @error
    ConsoleWrite("""wimlib_create_new_wim"" " & $iResult)

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_add_image", _
            "STRUCT", $WIMStruct, _         ; wim
            "wstr", $sSourceFolder, _       ; source
            "wstr", "", _                   ; name
            "wstr", "", _                   ; config_file
            "int", 0)                       ; add_flags
    If @error Then Return "Error ""wimlib_add_image"" " & @error
    ConsoleWrite("""wimlib_add_image"" " & $iResult)

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_write", _
            "STRUCT", $WIMStruct, _         ; wim
            "wstr", $sWimFile, _            ; path
            "int", 1, _                     ; image
            "int", 1, _                     ; write_flags
            "int", 0)                       ; num_threads
    If @error Then Return "Error ""wimlib_write"" " & @error
    ConsoleWrite("""wimlib_write"" " & $iResult)

    Return "Done!"

    $ghWimLib = 0
EndFunc   ;==>_WimLib

Thanks also for pointing to the header. And yes, I'm a newbie regarding DLL.

I hope to share an improved code shortly. Thanks!

Jonathan

Edited July 6 by MadDogVachon
I'm a French Canadian who made errors...

MadDogVachon · July 9

Shortly...

Hi everyone,

Here's my "improved" code. Still not working because I don't know to create a new structure.

#RequireAdmin

; wimlib_compression_type
Global Const $WIMLIB_COMPRESSION_TYPE_NONE                  = 0
Global Const $WIMLIB_COMPRESSION_TYPE_XPRESS                = 1     ; Chunk sizes that are powers of 2 between «2^12» and «2^16», inclusively.
Global Const $WIMLIB_COMPRESSION_TYPE_LZX                   = 2     ; Chunk sizes that are powers of 2 between «2^15» and «2^21», inclusively.
                                                                    ; Chunk sizes other than «2^15» are not compatible with the Microsoft implementation.
Global Const $WIMLIB_COMPRESSION_TYPE_LZMS                  = 3     ; Chunk sizes that are powers of 2 between «2^15» and 2^30», inclusively.
                                                                    ; This format is best used for large chunk sizes.
                                                                    ; Note: LZMS compression is only compatible with wimlib v1.6.0 and later,
                                                                    ; WIMGAPI Windows 8 and later, and DISM Windows 8.1 and later.
                                                                    ; Chunk sizes larger than «2^26» are not compatible with the Microsoft implementation.

; wimlib_progress_msg
Global Const $WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_BEGIN       = 0
Global Const $WIMLIB_PROGRESS_MSG_EXTRACT_TREE_BEGIN        = 1
Global Const $WIMLIB_PROGRESS_MSG_EXTRACT_FILE_STRUCTURE    = 3
Global Const $WIMLIB_PROGRESS_MSG_EXTRACT_STREAMS           = 4
Global Const $WIMLIB_PROGRESS_MSG_EXTRACT_SPWM_PART_BEGIN   = 5
Global Const $WIMLIB_PROGRESS_MSG_EXTRACT_METADATA          = 6
Global Const $WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_END         = 7
Global Const $WIMLIB_PROGRESS_MSG_EXTRACT_TREE_END          = 8
Global Const $WIMLIB_PROGRESS_MSG_SCAN_BEGIN                = 9
Global Const $WIMLIB_PROGRESS_MSG_SCAN_DENTRY               = 10
Global Const $WIMLIB_PROGRESS_MSG_SCAN_END                  = 11
Global Const $WIMLIB_PROGRESS_MSG_WRITE_STREAMS             = 12
Global Const $WIMLIB_PROGRESS_MSG_WRITE_METADATA_BEGIN      = 13
Global Const $WIMLIB_PROGRESS_MSG_WRITE_METADATA_EN         = 14
Global Const $WIMLIB_PROGRESS_MSG_RENAME                    = 15
Global Const $WIMLIB_PROGRESS_MSG_VERIFY_INTEGRITY          = 16
Global Const $WIMLIB_PROGRESS_MSG_CALC_INTEGRITY            = 17
Global Const $WIMLIB_PROGRESS_MSG_SPLIT_BEGIN_PART          = 19
Global Const $WIMLIB_PROGRESS_MSG_SPLIT_END_PART            = 20
Global Const $WIMLIB_PROGRESS_MSG_UPDATE_BEGIN_COMMAND      = 21
Global Const $WIMLIB_PROGRESS_MSG_UPDATE_END_COMMAND        = 22
Global Const $WIMLIB_PROGRESS_MSG_REPLACE_FILE_IN_WIM       = 23
Global Const $WIMLIB_PROGRESS_MSG_WIMBOOT_EXCLUDE           = 24
Global Const $WIMLIB_PROGRESS_MSG_UNMOUNT_BEGIN             = 25
Global Const $WIMLIB_PROGRESS_MSG_DONE_WITH_FILE            = 26
Global Const $WIMLIB_PROGRESS_MSG_BEGIN_VERIFY_IMAGE        = 27
Global Const $WIMLIB_PROGRESS_MSG_END_VERIFY_IMAGE          = 28
Global Const $WIMLIB_PROGRESS_MSG_VERIFY_STREAMS            = 29

; wimlib_progress_status
Global Const $WIMLIB_PROGRESS_STATUS_CONTINUE               = 0
Global Const $WIMLIB_PROGRESS_STATUS_ABORT                  = 1

; wimlib_update_op
Global Const $WIMLIB_UPDATE_OP_ADD                          = 0

; wimlib_error_code
Global Const $WIMLIB_ERR_SUCCESS                            = 0
Global Const $WIMLIB_ERR_ALREADY_LOCKED                     = 1
Global Const $WIMLIB_ERR_DECOMPRESSION                      = 2
Global Const $WIMLIB_ERR_FUSE                               = 6
Global Const $WIMLIB_ERR_GLOB_HAD_NO_MATCHES                = 8
Global Const $WIMLIB_ERR_ICONV_NOT_AVAILABLE                = 9
Global Const $WIMLIB_ERR_IMAGE_COUNT                        = 10
Global Const $WIMLIB_ERR_IMAGE_NAME_COLLISION               = 11
Global Const $WIMLIB_ERR_INSUFFICIENT_PRIVILEGES            = 12
Global Const $WIMLIB_ERR_INTEGRITY                          = 13
Global Const $WIMLIB_ERR_INVALID_CAPTURE_CONFIG             = 14
Global Const $WIMLIB_ERR_INVALID_CHUNK_SIZE                 = 15
Global Const $WIMLIB_ERR_INVALID_COMPRESSION_TYPE           = 16
Global Const $WIMLIB_ERR_INVALID_HEADER                     = 17
Global Const $WIMLIB_ERR_INVALID_IMAGE                      = 18
Global Const $WIMLIB_ERR_INVALID_INTEGRITY_TABLE            = 19
Global Const $WIMLIB_ERR_INVALID_LOOKUP_TABLE_ENTRY         = 20
Global Const $WIMLIB_ERR_INVALID_METADATA_RESOURCE          = 21
Global Const $WIMLIB_ERR_INVALID_MULTIBYTE_STRING           = 22
Global Const $WIMLIB_ERR_INVALID_OVERLAY                    = 23
Global Const $WIMLIB_ERR_INVALID_PARAM                      = 24
Global Const $WIMLIB_ERR_INVALID_PART_NUMBER                = 25
Global Const $WIMLIB_ERR_INVALID_PIPABLE_WIM                = 26
Global Const $WIMLIB_ERR_INVALID_REPARSE_DATA               = 27
Global Const $WIMLIB_ERR_INVALID_RESOURCE_HASH              = 28
Global Const $WIMLIB_ERR_INVALID_UTF16_STRING               = 30
Global Const $WIMLIB_ERR_INVALID_UTF8_STRING                = 31
Global Const $WIMLIB_ERR_IS_DIRECTORY                       = 32
Global Const $WIMLIB_ERR_IS_SPLIT_WIM                       = 33
Global Const $WIMLIB_ERR_LIBXML_UTF16_HANDLER_NOT_AVAILABLE = 34
Global Const $WIMLIB_ERR_LINK                               = 35
Global Const $WIMLIB_ERR_METADATA_NOT_FOUND                 = 36
Global Const $WIMLIB_ERR_MKDIR                              = 37
Global Const $WIMLIB_ERR_MQUEUE                             = 38
Global Const $WIMLIB_ERR_NOMEM                              = 39
Global Const $WIMLIB_ERR_NOTDIR                             = 40
Global Const $WIMLIB_ERR_NOTEMPTY                           = 41
Global Const $WIMLIB_ERR_NOT_A_REGULAR_FILE                 = 42
Global Const $WIMLIB_ERR_NOT_A_WIM_FILE                     = 43
Global Const $WIMLIB_ERR_NOT_PIPABLE                        = 44
Global Const $WIMLIB_ERR_NO_FILENAME                        = 45
Global Const $WIMLIB_ERR_NTFS_3G                            = 46
Global Const $WIMLIB_ERR_OPEN                               = 47
Global Const $WIMLIB_ERR_OPENDIR                            = 48
Global Const $WIMLIB_ERR_PATH_DOES_NOT_EXIST                = 49
Global Const $WIMLIB_ERR_READ                               = 50
Global Const $WIMLIB_ERR_READLINK                           = 51
Global Const $WIMLIB_ERR_RENAME                             = 52
Global Const $WIMLIB_ERR_REPARSE_POINT_FIXUP_FAILED         = 54
Global Const $WIMLIB_ERR_RESOURCE_NOT_FOUND                 = 55
Global Const $WIMLIB_ERR_RESOURCE_ORDER                     = 56
Global Const $WIMLIB_ERR_SET_ATTRIBUTES                     = 57
Global Const $WIMLIB_ERR_SET_REPARSE_DATA                   = 58
Global Const $WIMLIB_ERR_SET_SECURITY                       = 59
Global Const $WIMLIB_ERR_SET_SHORT_NAME                     = 60
Global Const $WIMLIB_ERR_SET_TIMESTAMPS                     = 61
Global Const $WIMLIB_ERR_SPLIT_INVALID                      = 62
Global Const $WIMLIB_ERR_STAT                               = 63
Global Const $WIMLIB_ERR_UNEXPECTED_END_OF_FILE             = 65
Global Const $WIMLIB_ERR_UNICODE_STRING_NOT_REPRESENTABLE   = 66
Global Const $WIMLIB_ERR_UNKNOWN_VERSION                    = 67
Global Const $WIMLIB_ERR_UNSUPPORTED                        = 68
Global Const $WIMLIB_ERR_UNSUPPORTED_FILE                   = 69
Global Const $WIMLIB_ERR_WIM_IS_READONLY                    = 71
Global Const $WIMLIB_ERR_WRITE                              = 72
Global Const $WIMLIB_ERR_XML                                = 73
Global Const $WIMLIB_ERR_WIM_IS_ENCRYPTED                   = 74
Global Const $WIMLIB_ERR_WIMBOOT                            = 75
Global Const $WIMLIB_ERR_ABORTED_BY_PROGRESS                = 76
Global Const $WIMLIB_ERR_UNKNOWN_PROGRESS_STATUS            = 77
Global Const $WIMLIB_ERR_MKNOD                              = 78
Global Const $WIMLIB_ERR_MOUNTED_IMAGE_IS_BUSY              = 79
Global Const $WIMLIB_ERR_NOT_A_MOUNTPOINT                   = 80
Global Const $WIMLIB_ERR_NOT_PERMITTED_TO_UNMOUNT           = 81

; WIMLIB_CHANGE
Global Const $WIMLIB_CHANGE_READONLY_FLAG                       = 0x00000001
Global Const $WIMLIB_CHANGE_GUID                                = 0x00000002
Global Const $WIMLIB_CHANGE_BOOT_INDEX                          = 0x00000004
Global Const $WIMLIB_CHANGE_RPFIX_FLAG                          = 0x00000008

; WIMLIB_ADD_FLAG
Global Const $WIMLIB_ADD_FLAG_NTFS                              = 0x00000001
Global Const $WIMLIB_ADD_FLAG_DEREFERENCE                       = 0x00000002
Global Const $WIMLIB_ADD_FLAG_VERBOSE                           = 0x00000004
Global Const $WIMLIB_ADD_FLAG_BOOT                              = 0x00000008
Global Const $WIMLIB_ADD_FLAG_UNIX_DATA                         = 0x00000010
Global Const $WIMLIB_ADD_FLAG_NO_ACLS                           = 0x00000040
Global Const $WIMLIB_ADD_FLAG_EXCLUDE_VERBOSE                   = 0x00000080
Global Const $WIMLIB_ADD_FLAG_RPFIX                             = 0x00000100
Global Const $WIMLIB_ADD_FLAG_NORPFIX                           = 0x00000200
Global Const $WIMLIB_ADD_FLAG_NO_UNSUPPORTED_EXCLUDE            = 0x00000400
Global Const $WIMLIB_ADD_FLAG_WINCONFIG                         = 0x00000800
Global Const $WIMLIB_ADD_FLAG_WIMBOOT                           = 0x00001000
Global Const $WIMLIB_ADD_FLAG_NO_REPLACE                        = 0x00002000
Global Const $WIMLIB_ADD_FLAG_TEST_FILE_EXCLUSION               = 0x00004000
Global Const $WIMLIB_ADD_FLAG_SNAPSHOT                          = 0x00008000
Global Const $WIMLIB_ADD_FLAG_FILE_PATHS_UNNEEDED               = 0x00010000

; WIMLIB_WRITE_FLAG
Global Const $WIMLIB_WRITE_FLAG_CHECK_INTEGRITY                 = 0x00000001
Global Const $WIMLIB_WRITE_FLAG_NO_CHECK_INTEGRITY              = 0x00000002
Global Const $WIMLIB_WRITE_FLAG_PIPABLE                         = 0x00000004
Global Const $WIMLIB_WRITE_FLAG_NOT_PIPABLE                     = 0x00000008
Global Const $WIMLIB_WRITE_FLAG_RECOMPRESS                      = 0x00000010
Global Const $WIMLIB_WRITE_FLAG_FSYNC                           = 0x00000020
Global Const $WIMLIB_WRITE_FLAG_REBUILD                         = 0x00000040
Global Const $WIMLIB_WRITE_FLAG_SOFT_DELETE                     = 0x00000080
Global Const $WIMLIB_WRITE_FLAG_IGNORE_READONLY_FLAG            = 0x00000100
Global Const $WIMLIB_WRITE_FLAG_SKIP_EXTERNAL_WIM               = 0x00000200
Global Const $WIMLIB_WRITE_FLAG_STREAMS_OK                      = 0x00000400
Global Const $WIMLIB_WRITE_FLAG_RETAIN_GUID                     = 0x00000800
Global Const $WIMLIB_WRITE_FLAG_SOLID                           = 0x00001000
Global Const $WIMLIB_WRITE_FLAG_SEND_DONE_WITH_FILE_MESSAGES    = 0x00002000
Global Const $WIMLIB_WRITE_FLAG_NO_SOLID_SORT                   = 0x00004000
Global Const $WIMLIB_WRITE_FLAG_UNSAFE_COMPACT                  = 0x00008000

; WIMLIB_DELETE_FLAG
Global Const $WIMLIB_DELETE_FLAG_FORCE                          = 0x00000001
Global Const $WIMLIB_DELETE_FLAG_RECURSIVE                      = 0x00000002

; WIMLIB_EXPORT_FLAG
Global Const $WIMLIB_EXPORT_FLAG_BOOT                           = 0x00000001
Global Const $WIMLIB_EXPORT_FLAG_NO_NAMES                       = 0x00000002
Global Const $WIMLIB_EXPORT_FLAG_NO_DESCRIPTIONS                = 0x00000004
Global Const $WIMLIB_EXPORT_FLAG_GIFT                           = 0x00000008
Global Const $WIMLIB_EXPORT_FLAG_WIMBOOT                        = 0x00000010

; WIMLIB_UPDATE_FLAG_SEND_PROGRESS
Global Const $WIMLIB_UPDATE_FLAG_SEND_PROGRESS                  = 0x00000001


ConsoleWrite(@CRLF & _WimLib_Capture() & @CRLF)

Func _WimLib_Capture()
    Local Const $Title = "WimLibGui with AutoIt3"
    Local $iResult, $pCallBack
    Local $bSolid = True
    Local $iCompressionType = $WIMLIB_COMPRESSION_TYPE_LZX
    Local $iCompressionLevel = 50
    Local $iChunkSize = 2^15
    Local $iFlag = BitOR($WIMLIB_ADD_FLAG_VERBOSE, $WIMLIB_WRITE_FLAG_CHECK_INTEGRITY)
    Local $sSourceFolder = "Z:"
    Local $sWimFile = "D:\WinRE in work!\WimLib\WimLib Test 2022.WimLib"

    Local $ghWimLib = DllOpen(@ScriptDir & "\libwim-15.dll")
    If $ghWimLib = -1 Then
        MsgBox(262144+16, $Title, """libwin-15.dll"" cannot be opened." & @CRLF & @CRLF & "WimLib.")
        Return
    EndIf

    Local $WIMStruct = DllStructCreate("ptr")   ;????????????????????????????????????????????????????????????????????????????????????????

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_create_new_wim", _
            "INT", $WIMLIB_COMPRESSION_TYPE_LZMS, _         ; int ctype
            "STRUCT", $WIMStruct)                           ; WIMStruct wim_ret
    If @error Then Return "Error ""wimlib_create_new_wim"" " & @error & "_" & $iResult
    ConsoleWrite("""wimlib_create_new_wim"" " & $iResult)

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_add_image", _
            "STRUCT", $WIMStruct, _                         ; WIMStruct wim
            "wstr", $sSourceFolder, _                       ; const wimlib_tchar source
            "wstr", "", _                                   ; const wimlib_tchar name
            "wstr", "", _                                   ; const wimlib_tchar config_file
            "int", 0)                                       ; int add_flags
    If @error Then Return "Error ""wimlib_add_image"" " & @error & "_" & $iResult
    ConsoleWrite("""wimlib_add_image"" " & $iResult)

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_set_default_compression_level", _
            "int", $iCompressionType, _                     ; int ctype
            "uint", $iCompressionLevel)                     ; unsigned int compression_level
    If @error Then Return "Error ""wimlib_set_default_compression_level"" " & @error & "_" & $iResult
    ConsoleWrite("""wimlib_set_default_compression_level"" " & $iResult)

    If $bSolid = True Then
        $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_set_output_pack_chunk_size", _
                "STRUCT", $WIMStruct, _                         ; WIMStruct wim
                "uint", $iChunkSize)                            ; uint32_t chunk_size
        If @error Then Return "Error ""wimlib_set_output_pack_chunk_size"" " & @error & "_" & $iResult
        ConsoleWrite("""wimlib_set_output_pack_chunk_size"" " & $iResult)

        $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_set_output_pack_compression_type", _
                "STRUCT", $WIMStruct, _                         ; WIMStruct wim
                "int", $iCompressionType)                       ; int ctype
        If @error Then Return "Error ""wimlib_set_output_pack_compression_type"" " & @error & "_" & $iResult
        ConsoleWrite("""wimlib_set_output_pack_compression_type"" " & $iResult)
    Else
        $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_set_output_chunk_size", _
                "STRUCT", $WIMStruct, _                         ; WIMStruct wim
                "uint", $iChunkSize)                            ; uint32_t chunk_size
        If @error Then Return "Error ""wimlib_set_output_chunk_size"" " & @error & "_" & $iResult
        ConsoleWrite("""wimlib_set_output_chunk_size"" " & $iResult)

        $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_set_output_compression_type", _
                "STRUCT", $WIMStruct, _                         ; WIMStruct wim
                "int", $iCompressionType)                       ; int ctype
        If @error Then Return "Error ""wimlib_set_output_compression_type"" " & @error & "_" & $iResult
        ConsoleWrite("""wimlib_set_output_compression_type"" " & $iResult)
    EndIf

    $iResult = DllCall($ghWimLib, "int:cdecl", "wimlib_write", _
            "STRUCT", $WIMStruct, _                         ; WIMStruct wim
            "wstr", $sWimFile, _                            ; const wimlib_tchar path
            "int", 1, _                                     ; int image
            "int", $iFlag, _                                ; int write_flags
            "uint", 0)                                      ; unsigned num_threads
    If @error Then Return "Error ""wimlib_write"" " & @error & "_" & $iResult
    ConsoleWrite("""wimlib_write"" " & $iResult)

    $ghWimLib = 0
    DllCallbackFree($pCallBack)

    Return "Done!"
EndFunc   ;==>_WimLib_Capture

Jonathan

LarsJ · July 10

Note that the WIMStruct is a file structure and as such cannot be handled as an AutoIt DllStruct. The reference to the WIMStruct file structure is a pointer. The code below is AutoIt code to obtain this pointer from the wimlib_create_new_wim() function.

Also note that the DllCall() function returns an array (as opposed to a simple variable).

The code here is 64 bit code:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

#AutoIt3Wrapper_UseX64=Y

Opt( "MustDeclareVars", 1 )

WimLib()

Func WimLib()
  Local $hWimLib = DllOpen( "libwim-15-64.dll" )
  If $hWimLib = -1 Then Return ConsoleWrite( "ERR: libwin-15-64.dll open" & @CRLF )
  ConsoleWrite( "OK : libwin-15-64.dll open" & @CRLF )

  Local $aRet, $tWIMStruct = DllStructCreate( "ptr" ) ; Pointer storage for WIMStruct pointer
  $aRet = DllCall( $hWimLib, "int:cdecl", "wimlib_create_new_wim", _
                             "int", 2, _              ; ctype
                             "struct*", $tWIMStruct ) ; Store WIMStruct pointer
  If $aRet[0] Or @error Then Return ConsoleWrite( "ERR: wimlib_create_new_wim" & @CRLF & _
                                                  "$aRet[0] = " & $aRet[0] & @CRLF & _
                                                  "@error   = " & @error & @CRLF )
  ConsoleWrite( "OK : wimlib_create_new_wim" & @CRLF )
  Local $pWIMStruct = DllStructGetData( $tWIMStruct, 1 ) ; Get WIMStruct pointer from storage
  ConsoleWrite( "$pWIMStruct = " & $pWIMStruct & @CRLF )

  $hWimLib = 0
EndFunc

Output:

OK : libwin-15-64.dll open
OK : wimlib_create_new_wim
$pWIMStruct = 0x0000000000909530

MadDogVachon · July 10

Hi LarsJ,

Thanks for your reply. I've implemented your code. But I have the error 36 with wimlib_add_image.

Output:

OK : libwin-15-64.dll open
OK : wimlib_create_new_wim
$pWIMStruct = 0x000001E20CF763A0
ERR: wimlib_add_image
$aRet[0] = 36
@error   = 0

Error 36 indicate failure (for different reasons) to read the metadata resource for an image over which iteration needed to be done. Sometime, I have error 10 (WIMLIB_ERR_IMAGE_COUNT) which seems be related to metadata. Other time, no error and the script stop itself without the "OK : wimlib_add_image" message.

Here's your updated code to test:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

#AutoIt3Wrapper_UseX64=Y

Opt( "MustDeclareVars", 1 )

WimLib()

Func WimLib()
    Local $hWimLib = DllOpen( "libwim-15-64.dll" )
    If $hWimLib = -1 Then Exit ConsoleWrite( "ERR: libwin-15-64.dll open" & @CRLF )
    ConsoleWrite( "OK : libwin-15-64.dll open" & @CRLF )

    Local $aRet, $tWIMStruct = DllStructCreate( "ptr" ) ; Pointer storage for WIMStruct pointer
    $aRet = DllCall( $hWimLib, "int:cdecl", "wimlib_create_new_wim", _
                                "int", 2, _              ; ctype
                                "struct*", $tWIMStruct ) ; Store WIMStruct pointer
    If $aRet[0] Or @error Then Return ConsoleWrite( "ERR: wimlib_create_new_wim" & @CRLF & _
                                                  "$aRet[0] = " & $aRet[0] & & @CRLF _
                                                  DllCall($hWimLib, "wstr:cdecl", "wimlib_get_error_string", "int", $aRet[0]) & @CRLF & _
                                                  "@error   = " & @error & @CRLF )
    ConsoleWrite( "OK : wimlib_create_new_wim" & @CRLF )
    Local $pWIMStruct = DllStructGetData( $tWIMStruct, 1 ) ; Get WIMStruct pointer from storage
    ConsoleWrite( "$pWIMStruct = " & $pWIMStruct & @CRLF )

    $aRet = DllCall( $hWimLib, "int:cdecl", "wimlib_add_image", _
                                "struct*", $tWIMStruct, _   ; WIMStruct pointer
                                "wstr", "Z:", _             ; source
                                "wstr", "", _               ; name
                                "wstr", "", _               ; config_file
                                "int", 4)                   ; add_flags
    If $aRet[0] Or @error Then Return ConsoleWrite( "ERR: wimlib_add_image" & @CRLF & _
                                                  "$aRet[0] = " & $aRet[0] & @CRLF & _
                                                  DllCall($hWimLib, "wstr:cdecl", "wimlib_get_error_string", "int", $aRet[0]) & @CRLF & _
                                                  "@error   = " & @error & @CRLF )
    ConsoleWrite( "OK : wimlib_add_image" & @CRLF )

    $hWimLib = 0
EndFunc

You can see I also added DllCall($hWimLib, "wstr:cdecl", "wimlib_get_error_string", "int", $aRet[0]) to convert a wimlib error code into a string describing it. Which is not working...

Thanks again!

Jonathan

MattHiggs · July 10

Hey Dude. You are embarking on a project that I started forever ago, but never really got too far on. I am not very knowledgeable when it comes to working with C libraries and whatnot. Guess I am just stupid. I can provide to you what little I have done. Hope it helps. Maybe you can get farther than I did.

; #INDEX# =======================================================================================================================
; Title .........: wimlib
; AutoIt Version : 3.3.8.1+
; Language ......: English
; Description ...: Functions allow for the manipulation of wim files using wimlib rather than the Micrsoft Assessment and Deployment Toolkit
; Author(s) .....: William Higgs (whiggs)
; ===============================================================================================================================
#include-once
#include "C:\Users\whiggs\OneDrive\always script\wimlib_lib\wimlibconstants.au3"
#include <WinAPI.au3>
#include <Debug.au3>
;#include <_DLLStructDisplay.au3>

Global $wimstr = 0
Global $gsWimlibDLL = ""
Global $ghwimlib = 0 ; initialized by _init_WIMlib() and contains the handle to DllOpen($gsWimDLL)
Global $giWIMRef = 0 ; reference var. Value is >= 1 if $gsWimlibDLL is loaded.

Func _init_wimlib ($dllfile = "libwim-15.dll", $initflags = 0)
    $giWIMRef += 1
    If $giWIMRef > 1 Then
        Return SetExtended($ghwimlib, 0) ; dll already loaded
    EndIf

    If Not FileExists ( $dllfile ) Then
        Return SetError ( 2, 0, -1 )
    EndIf
    $gsWimlibDLL = $dllfile
    $ghwimlib = DllOpen ( $gsWimlibDLL )
    If $ghwimlib = -1 Then
        $giWIMRef = 0
        Return SetError ( 1, 0, -1 )
    EndIf
    DllCall ( $ghwimlib, "int:cdecl", "wimlib_global_init", $initflags )
    If @error Then
        Return SetError(3, 0, -1)
    EndIf

    Return SetExtended ( $ghwimlib, 0 )

EndFunc


Func _quit_wimlib ()
    If $ghwimlib = 0 Or $ghwimlib = -1 Then
        Return SetError ( 1, 0, False )
    EndIf
    $giWIMRef -= 1
    If $giWIMRef = 0 Then
        DllCall ( $ghwimlib, "none:cdecl", "wimlib_global_cleanup" )
        DllClose ( $ghwimlib )
        $ghwimlib = 0
    EndIf

EndFunc

Func _open_wim ($wimfile, $openflags = 0, $callback = Null )
    ;$tchar = DllStructCreate
    If $callback = Null Then
        $aReturn = DllCall( $ghwimlib, "int:cdecl", "wimlib_open_wim", "wstr", $wimfile, "int", $openflags, "ptr*", Null )
    Else
        $aReturn = DllCall( $ghwimlib, "int:cdecl", "wimlib_open_wim_with_progress", "wstr", $wimfile, "int", $openflags, "ptr*", Null, "ptr", DllCallbackGetPtr ( $callback ), "ptr", 0 )
    EndIf

    ;If @error Then Exit MsgBox($MB_ICONERROR, "ERROR", "wimlib_open_wim DllCall failed with @error " & @error & @CRLF & "@ewxtend: " & @extended)
    _DebugArrayDisplay($aReturn, "wimlib_open_wim $aReturn")

    ;If bad return code, then return with error
    If $aReturn[0] <> 0 Then Return SetError(1, $aReturn[0], 0)

    ;All is good, return pointer
    Return $aReturn[3] ;Pointer to WIMStruct structure

EndFunc

Func _wimlib_free($pWimStruct)
    ;Free winstruct resources
    If Not IsPtr ( $pWimStruct ) Then
        Return SetError ( 1, 0 )
    EndIf

    DllCall( $ghwimlib, "none:cdecl", "wimlib_free", "ptr", $pWimStruct )
    If @error Then Exit MsgBox($MB_ICONERROR, "ERROR", "wimlib_free DllCall failed with @error " & @error)
    ;All is good
    Return SetExtended( _WinAPI_GetLastError() )
EndFunc
Func _wimlib_register_progress_function ( $Wimstruct, $progfunc, $progctx = Null )
    $mesresult = DllCall ( $ghwimlib, "none:cdecl", "wimlib_register_progress_function", "ptr", $Wimstruct, "ptr", $progfunc, "ptr", $progctx )
EndFunc

Func _wimlib_verify_wim ( $Wimstruct, $progressfunc = Null, $pvUserData = 0 )
    If Not IsPtr ( $Wimstruct ) Then
        Return SetError ( 1, 0, Null )
    EndIf
    ;If $withprogress Then
        ;$str = DllStructCreate ( $tagwimlib_progress_info_verify_image )
        ;$progfun = DllCallbackRegister ( "prog", "
    ;Else
        $verresult = DllCall ( $ghwimlib, "int:cdecl", "wimlib_verify_wim", "ptr", $Wimstruct, "int", 0 )
    ;EndIf

    If @error Then
        Return SetError ( 2, -1 )
    EndIf
    _DebugArrayDisplay($verresult, "wimlib_verify_wim $verresult")
    Return $verresult[0]
EndFunc
Func _wimlib_get_image_name ( $Wimstruct, $image )
    If Not IsPtr ( $Wimstruct ) Then
        Return SetError ( 1, 0, Null )
    EndIf
    $imnaresult = DllCall ( $ghwimlib, "wstr:cdecl", "wimlib_get_image_name", "ptr", $Wimstruct, "int", $image )
    If @error Then
        Return SetError ( 2, 0 )
    EndIf
    Return $imnaresult[0]
EndFunc
Func _wimlib_get_xml_data ( $Wimstruct )
    If Not IsPtr ( $Wimstruct ) Then
        Return SetError ( 1, 0, Null )
    EndIf
    Local $aReturn[2]
    Local $ppvImageInfo = DllStructCreate("ptr") ; Buffer for XML Data
    Local $pcbImageInfo = DllStructCreate("dword") ; Size of buffer in bytes

    $xmlresult = DllCall ( $ghwimlib, "int:cdecl", "wimlib_get_xml_data", "ptr", $Wimstruct, "ptr", DllStructGetPtr ( $ppvImageInfo ), "ptr", DllStructGetPtr ( $pcbImageInfo ) )
    If @error Then
        Return SetError ( 2, 0, Null )
    EndIf

    _DebugArrayDisplay($xmlresult, "wimlib_get_xml_data $xmlresult")
    Local $xml = DllStructCreate("byte [" & DllStructGetData($pcbImageInfo, 1) & "]", DllStructGetData($ppvImageInfo, 1))
    $aReturn[0] = $xmlresult[0]
    $aReturn[1] = BinaryToString(DllStructGetData($xml, 1), 2)
    _WinAPI_LocalFree($ppvImageInfo)
    _WinAPI_LocalFree($xml)
    Return $aReturn[1]
    ;Return DllStructGetData ( $ppvImageInfo, 1 )
EndFunc

Func _wimlib_get_wim_info ( $Wimstruct )
    If Not IsPtr ( $Wimstruct ) Then
        Return SetError ( 1, 0, Null )
    EndIf
    $infostruct = DllStructCreate ( $tagwimlib_wim_info )
    $wiminforesult = DllCall ( $ghwimlib, "int:cdecl", "wimlib_get_wim_info", "ptr", $Wimstruct, "ptr", DllStructGetPtr ( $infostruct ) )
    If @error Then
        Return SetError ( 2, 0, Null )
    EndIf
    _DebugArrayDisplay($wiminforesult, "wimlib_get_wim_info $wiminforesult")
    Return $wiminforesult[2]
EndFunc

And this is what I have for wimlibconstants:

#include-once

; #INDEX# =======================================================================================================================
; Title .........: WIMLib_Constants
; AutoIt Version : 3.3.15.0
; Description ...: Constants for WIMlib functions.
; Author(s) .....: Higgs, William (whiggs)
; ===============================================================================================================================

; #CONSTANTS# ===================================================================================================================
#region ### START $WIMLib Constants ###

Global Enum $WIMLIB_ERR_SUCCESS, $WIMLIB_ERR_ALREADY_LOCKED, $WIMLIB_ERR_DECOMPRESSION, $WIMLIB_ERR_FUSE = 6, $WIMLIB_ERR_GLOB_HAD_NO_MATCHES = 8, $WIMLIB_ERR_IMAGE_COUNT = 10, $WIMLIB_ERR_IMAGE_NAME_COLLISION, $WIMLIB_ERR_INSUFFICIENT_PRIVILEGES, $WIMLIB_ERR_INTEGRITY, $WIMLIB_ERR_INVALID_CAPTURE_CONFIG, $WIMLIB_ERR_INVALID_CHUNK_SIZE, $WIMLIB_ERR_INVALID_COMPRESSION_TYPE, $WIMLIB_ERR_INVALID_HEADER, $WIMLIB_ERR_INVALID_IMAGE, $WIMLIB_ERR_INVALID_INTEGRITY_TABLE, $WIMLIB_ERR_INVALID_LOOKUP_TABLE_ENTRY, $WIMLIB_ERR_INVALID_METADATA_RESOURCE, $WIMLIB_ERR_INVALID_OVERLAY = 23, $WIMLIB_ERR_INVALID_PARAM, $WIMLIB_ERR_INVALID_PART_NUMBER, $WIMLIB_ERR_INVALID_PIPABLE_WIM, $WIMLIB_ERR_INVALID_REPARSE_DATA, $WIMLIB_ERR_INVALID_RESOURCE_HASH, $WIMLIB_ERR_INVALID_UTF16_STRING = 30, $WIMLIB_ERR_INVALID_UTF8_STRING, $WIMLIB_ERR_IS_DIRECTORY, $WIMLIB_ERR_IS_SPLIT_WIM, $WIMLIB_ERR_LINK = 35, $WIMLIB_ERR_METADATA_NOT_FOUND, $WIMLIB_ERR_MKDIR, $WIMLIB_ERR_MQUEUE, $WIMLIB_ERR_NOMEM, $WIMLIB_ERR_NOTDIR, $WIMLIB_ERR_NOTEMPTY, $WIMLIB_ERR_NOT_A_REGULAR_FILE, $WIMLIB_ERR_NOT_A_WIM_FILE, $WIMLIB_ERR_NOT_PIPABLE, $WIMLIB_ERR_NO_FILENAME, $WIMLIB_ERR_NTFS_3G, $WIMLIB_ERR_OPEN, $WIMLIB_ERR_OPENDIR, $WIMLIB_ERR_PATH_DOES_NOT_EXIST, $WIMLIB_ERR_READ, $WIMLIB_ERR_READLINK, $WIMLIB_ERR_RENAME, $WIMLIB_ERR_REPARSE_POINT_FIXUP_FAILED = 54, $WIMLIB_ERR_RESOURCE_NOT_FOUND, $WIMLIB_ERR_RESOURCE_ORDER, $WIMLIB_ERR_SET_ATTRIBUTES, $WIMLIB_ERR_SET_REPARSE_DATA, $WIMLIB_ERR_SET_SECURITY, $WIMLIB_ERR_SET_SHORT_NAME, $WIMLIB_ERR_SET_TIMESTAMPS, $WIMLIB_ERR_SPLIT_INVALID, $WIMLIB_ERR_STAT, $WIMLIB_ERR_UNEXPECTED_END_OF_FILE = 65, $WIMLIB_ERR_UNICODE_STRING_NOT_REPRESENTABLE, $WIMLIB_ERR_UNKNOWN_VERSION, $WIMLIB_ERR_UNSUPPORTED, $WIMLIB_ERR_UNSUPPORTED_FILE, $WIMLIB_ERR_WIM_IS_READONLY = 71, $WIMLIB_ERR_WRITE, $WIMLIB_ERR_XML, $WIMLIB_ERR_WIM_IS_ENCRYPTED, $WIMLIB_ERR_WIMBOOT, $WIMLIB_ERR_ABORTED_BY_PROGRESS, $WIMLIB_ERR_UNKNOWN_PROGRESS_STATUS, $WIMLIB_ERR_MKNOD, $WIMLIB_ERR_MOUNTED_IMAGE_IS_BUSY, $WIMLIB_ERR_NOT_A_MOUNTPOINT, $WIMLIB_ERR_NOT_PERMITTED_TO_UNMOUNT, $WIMLIB_ERR_FVE_LOCKED_VOLUME, $WIMLIB_ERR_UNABLE_TO_READ_CAPTURE_CONFIG, $WIMLIB_ERR_WIM_IS_INCOMPLETE, $WIMLIB_ERR_COMPACTION_NOT_POSSIBLE, $WIMLIB_ERR_IMAGE_HAS_MULTIPLE_REFERENCES, $WIMLIB_ERR_DUPLICATE_EXPORTED_IMAGE, $WIMLIB_ERR_CONCURRENT_MODIFICATION_DETECTED, $WIMLIB_ERR_SNAPSHOT_FAILURE, $WIMLIB_ERR_INVALID_XATTR, $WIMLIB_ERR_SET_XATTR

Global Enum $WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_BEGIN, $WIMLIB_PROGRESS_MSG_EXTRACT_TREE_BEGIN, $WIMLIB_PROGRESS_MSG_EXTRACT_FILE_STRUCTURE = 3, $WIMLIB_PROGRESS_MSG_EXTRACT_STREAMS, $WIMLIB_PROGRESS_MSG_EXTRACT_SPWM_PART_BEGIN, $WIMLIB_PROGRESS_MSG_EXTRACT_METADATA, $WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_END, $WIMLIB_PROGRESS_MSG_EXTRACT_TREE_END, $WIMLIB_PROGRESS_MSG_SCAN_BEGIN, $WIMLIB_PROGRESS_MSG_SCAN_DENTRY, $WIMLIB_PROGRESS_MSG_SCAN_END, $WIMLIB_PROGRESS_MSG_WRITE_STREAMS, $WIMLIB_PROGRESS_MSG_WRITE_METADATA_BEGIN, $WIMLIB_PROGRESS_MSG_WRITE_METADATA_END, $WIMLIB_PROGRESS_MSG_RENAME, $WIMLIB_PROGRESS_MSG_VERIFY_INTEGRITY, $WIMLIB_PROGRESS_MSG_CALC_INTEGRITY, $WIMLIB_PROGRESS_MSG_SPLIT_BEGIN_PART = 19, $WIMLIB_PROGRESS_MSG_SPLIT_END_PART, $WIMLIB_PROGRESS_MSG_UPDATE_BEGIN_COMMAND, $WIMLIB_PROGRESS_MSG_UPDATE_END_COMMAND, $WIMLIB_PROGRESS_MSG_REPLACE_FILE_IN_WIM, $WIMLIB_PROGRESS_MSG_WIMBOOT_EXCLUDE, $WIMLIB_PROGRESS_MSG_UNMOUNT_BEGIN, $WIMLIB_PROGRESS_MSG_DONE_WITH_FILE, $WIMLIB_PROGRESS_MSG_BEGIN_VERIFY_IMAGE, $WIMLIB_PROGRESS_MSG_END_VERIFY_IMAGE, $WIMLIB_PROGRESS_MSG_VERIFY_STREAMS, $WIMLIB_PROGRESS_MSG_TEST_FILE_EXCLUSION, $WIMLIB_PROGRESS_MSG_HANDLE_ERROR

Global Enum $WIMLIB_PROGRESS_STATUS_CONTINUE, $WIMLIB_PROGRESS_STATUS_ABORT
Global Enum $WIMLIB_UPDATE_OP_ADD, $WIMLIB_UPDATE_OP_DELETE, $WIMLIB_UPDATE_OP_RENAME
Global Const $WIMLIB_ADD_FLAG_BOOT = 0x00000008
Global Const $WIMLIB_ADD_FLAG_DEREFERENCE = 0x00000002
Global Const $WIMLIB_ADD_FLAG_EXCLUDE_VERBOSE = 0x00000080
Global Const $WIMLIB_ADD_FLAG_FILE_PATHS_UNNEEDED = 0x00010000
Global Const $WIMLIB_ADD_FLAG_NO_ACLS = 0x00000020
Global Const $WIMLIB_ADD_FLAG_NO_REPLACE = 0x00002000
Global Const $WIMLIB_ADD_FLAG_NO_UNSUPPORTED_EXCLUDE = 0x00000400
Global Const $WIMLIB_ADD_FLAG_NORPFIX = 0x00000200
Global Const $WIMLIB_ADD_FLAG_NTFS = 0x00000001
Global Const $WIMLIB_ADD_FLAG_RPFIX = 0x00000100
Global Const $WIMLIB_ADD_FLAG_SNAPSHOT = 0x00008000
Global Const $WIMLIB_ADD_FLAG_STRICT_ACLS = 0x00000040
Global Const $WIMLIB_ADD_FLAG_TEST_FILE_EXCLUSION = 0x00004000
Global Const $WIMLIB_ADD_FLAG_UNIX_DATA = 0x00000010
Global Const $WIMLIB_ADD_FLAG_VERBOSE = 0x00000004
Global Const $WIMLIB_ADD_FLAG_WIMBOOT = 0x00001000
Global Const $WIMLIB_ADD_FLAG_WINCONFIG = 0x00000800
Global Const $WIMLIB_ALL_IMAGES = -1
Global Const $WIMLIB_CHANGE_BOOT_INDEX = 0x00000004
Global Const $WIMLIB_CHANGE_GUID = 0x00000002
Global Const $WIMLIB_CHANGE_READONLY_FLAG = 0x00000001
Global Const $WIMLIB_CHANGE_RPFIX_FLAG = 0x00000008
Global Const $WIMLIB_COMPRESSOR_FLAG_DESTRUCTIVE = 0x80000000
Global Const $WIMLIB_DELETE_FLAG_FORCE = 0x00000001
Global Const $WIMLIB_DELETE_FLAG_RECURSIVE = 0x00000002
Global Const $WIMLIB_EXPORT_FLAG_BOOT = 0x00000001
Global Const $WIMLIB_EXPORT_FLAG_GIFT = 0x00000008
Global Const $WIMLIB_EXPORT_FLAG_NO_DESCRIPTIONS = 0x00000004
Global Const $WIMLIB_EXPORT_FLAG_NO_NAMES = 0x00000002
Global Const $WIMLIB_EXPORT_FLAG_WIMBOOT = 0x00000010
Global Const $WIMLIB_EXTRACT_FLAG_ALL_CASE_CONFLICTS = 0x00001000
Global Const $WIMLIB_EXTRACT_FLAG_COMPACT_LZX = 0x08000000
Global Const $WIMLIB_EXTRACT_FLAG_COMPACT_XPRESS16K = 0x04000000
Global Const $WIMLIB_EXTRACT_FLAG_COMPACT_XPRESS4K = 0x01000000
Global Const $WIMLIB_EXTRACT_FLAG_COMPACT_XPRESS8K = 0x02000000
Global Const $WIMLIB_EXTRACT_FLAG_GLOB_PATHS = 0x00040000
Global Const $WIMLIB_EXTRACT_FLAG_NO_ACLS = 0x00000040
Global Const $WIMLIB_EXTRACT_FLAG_NO_ATTRIBUTES = 0x00100000
Global Const $WIMLIB_EXTRACT_FLAG_NO_PRESERVE_DIR_STRUCTURE = 0x00200000
Global Const $WIMLIB_EXTRACT_FLAG_NORPFIX = 0x00000200
Global Const $WIMLIB_EXTRACT_FLAG_NTFS = 0x00000001
Global Const $WIMLIB_EXTRACT_FLAG_REPLACE_INVALID_FILENAMES = 0x00000800
Global Const $WIMLIB_EXTRACT_FLAG_RPFIX = 0x00000100
Global Const $WIMLIB_EXTRACT_FLAG_STRICT_ACLS = 0x00000080
Global Const $WIMLIB_EXTRACT_FLAG_STRICT_GLOB = 0x00080000
Global Const $WIMLIB_EXTRACT_FLAG_STRICT_SHORT_NAMES = 0x00004000
Global Const $WIMLIB_EXTRACT_FLAG_STRICT_SYMLINKS = 0x00008000
Global Const $WIMLIB_EXTRACT_FLAG_STRICT_TIMESTAMPS = 0x00002000
Global Const $WIMLIB_EXTRACT_FLAG_TO_STDOUT = 0x00000400
Global Const $WIMLIB_EXTRACT_FLAG_UNIX_DATA = 0x00000020
Global Const $WIMLIB_EXTRACT_FLAG_WIMBOOT = 0x00400000
Global Const $WIMLIB_FILE_ATTRIBUTE_ARCHIVE = 0x00000020
Global Const $WIMLIB_FILE_ATTRIBUTE_COMPRESSED = 0x00000800
Global Const $WIMLIB_FILE_ATTRIBUTE_DEVICE = 0x00000040
Global Const $WIMLIB_FILE_ATTRIBUTE_DIRECTORY = 0x00000010
Global Const $WIMLIB_FILE_ATTRIBUTE_ENCRYPTED = 0x00004000
Global Const $WIMLIB_FILE_ATTRIBUTE_HIDDEN = 0x00000002
Global Const $WIMLIB_FILE_ATTRIBUTE_NORMAL = 0x00000080
Global Const $WIMLIB_FILE_ATTRIBUTE_NOT_CONTENT_INDEXED = 0x00002000
Global Const $WIMLIB_FILE_ATTRIBUTE_OFFLINE = 0x00001000
Global Const $WIMLIB_FILE_ATTRIBUTE_READONLY = 0x00000001
Global Const $WIMLIB_FILE_ATTRIBUTE_REPARSE_POINT = 0x00000400
Global Const $WIMLIB_FILE_ATTRIBUTE_SPARSE_FILE = 0x00000200
Global Const $WIMLIB_FILE_ATTRIBUTE_SYSTEM = 0x00000004
Global Const $WIMLIB_FILE_ATTRIBUTE_TEMPORARY = 0x00000100
Global Const $WIMLIB_FILE_ATTRIBUTE_VIRTUAL = 0x00010000
Global Const $WIMLIB_GUID_LEN = 16
Global Const $WIMLIB_INIT_FLAG_ASSUME_UTF8 = 0x00000001
Global Const $WIMLIB_INIT_FLAG_DEFAULT_CASE_INSENSITIVE = 0x00000020
Global Const $WIMLIB_INIT_FLAG_DEFAULT_CASE_SENSITIVE = 0x00000010
Global Const $WIMLIB_INIT_FLAG_DONT_ACQUIRE_PRIVILEGES = 0x00000002
Global Const $WIMLIB_INIT_FLAG_STRICT_APPLY_PRIVILEGES = 0x00000008
Global Const $WIMLIB_INIT_FLAG_STRICT_CAPTURE_PRIVILEGES = 0x00000004
;Global Const $WIMLIB_IS_WIM_ROOT_PATH
Global Const $WIMLIB_ITERATE_DIR_TREE_FLAG_CHILDREN = 0x00000002
Global Const $WIMLIB_ITERATE_DIR_TREE_FLAG_RECURSIVE = 0x00000001
Global Const $WIMLIB_ITERATE_DIR_TREE_FLAG_RESOURCES_NEEDED = 0x00000004
Global Const $WIMLIB_MAJOR_VERSION = 1
Global Const $WIMLIB_MINOR_VERSION = 2
Global Const $WIMLIB_MOUNT_FLAG_ALLOW_OTHER = 0x00000040
Global Const $WIMLIB_MOUNT_FLAG_DEBUG = 0x00000002
Global Const $WIMLIB_MOUNT_FLAG_READWRITE = 0x00000001
Global Const $WIMLIB_MOUNT_FLAG_STREAM_INTERFACE_NONE = 0x00000004
Global Const $WIMLIB_MOUNT_FLAG_STREAM_INTERFACE_WINDOWS = 0x00000010
Global Const $WIMLIB_MOUNT_FLAG_STREAM_INTERFACE_XATTR = 0x00000008
Global Const $WIMLIB_MOUNT_FLAG_UNIX_DATA = 0x00000020
Global Const $WIMLIB_NO_IMAGE = 0
Global Const $WIMLIB_OPEN_FLAG_CHECK_INTEGRITY = 0x00000001
Global Const $WIMLIB_OPEN_FLAG_ERROR_IF_SPLIT = 0x00000002
Global Const $WIMLIB_OPEN_FLAG_WRITE_ACCESS = 0x00000004
Global Const $WIMLIB_PATCH_VERSION = 5
Global Const $WIMLIB_REF_FLAG_GLOB_ENABLE = 0x00000001
Global Const $WIMLIB_REF_FLAG_GLOB_ERR_ON_NOMATCH = 0x00000002
Global Const $WIMLIB_REPARSE_TAG_DFS = 0x8000000A
Global Const $WIMLIB_REPARSE_TAG_DFSR = 0x80000012
Global Const $WIMLIB_REPARSE_TAG_DRIVER_EXTENDER = 0x80000005
Global Const $WIMLIB_REPARSE_TAG_FILTER_MANAGER = 0x8000000B
Global Const $WIMLIB_REPARSE_TAG_HSM = 0xC0000004
Global Const $WIMLIB_REPARSE_TAG_HSM2 = 0x80000006
Global Const $WIMLIB_REPARSE_TAG_MOUNT_POINT = 0xA0000003
Global Const $WIMLIB_REPARSE_TAG_RESERVED_ONE = 0x00000001
Global Const $WIMLIB_REPARSE_TAG_RESERVED_ZERO = 0x00000000
Global Const $WIMLIB_REPARSE_TAG_SIS = 0x80000007
Global Const $WIMLIB_REPARSE_TAG_SYMLINK = 0xA000000C
Global Const $WIMLIB_REPARSE_TAG_WOF = 0x80000017
Global Const $WIMLIB_UNMOUNT_FLAG_CHECK_INTEGRITY = 0x00000001
Global Const $WIMLIB_UNMOUNT_FLAG_COMMIT = 0x00000002
Global Const $WIMLIB_UNMOUNT_FLAG_FORCE = 0x00000010
Global Const $WIMLIB_UNMOUNT_FLAG_NEW_IMAGE = 0x00000020
Global Const $WIMLIB_UNMOUNT_FLAG_REBUILD = 0x00000004
Global Const $WIMLIB_UNMOUNT_FLAG_RECOMPRESS = 0x00000008
Global Const $WIMLIB_UPDATE_FLAG_SEND_PROGRESS = 0x00000001
Global Const $WIMLIB_WIM_PATH_SEPARATOR = "\"
Global Const $WIMLIB_WIM_PATH_SEPARATOR_STRING = "\"
Global Const $WIMLIB_WIM_ROOT_PATH = $WIMLIB_WIM_PATH_SEPARATOR_STRING
Global Const $WIMLIB_WRITE_FLAG_CHECK_INTEGRITY = 0x00000001
Global Const $WIMLIB_WRITE_FLAG_FSYNC = 0x00000020
Global Const $WIMLIB_WRITE_FLAG_IGNORE_READONLY_FLAG = 0x00000100
Global Const $WIMLIB_WRITE_FLAG_NO_CHECK_INTEGRITY = 0x00000002
Global Const $WIMLIB_WRITE_FLAG_NO_SOLID_SORT = 0x00004000
Global Const $WIMLIB_WRITE_FLAG_NOT_PIPABLE = 0x00000008
Global Const $WIMLIB_WRITE_FLAG_PIPABLE = 0x00000004
Global Const $WIMLIB_WRITE_FLAG_REBUILD = 0x00000040
Global Const $WIMLIB_WRITE_FLAG_RECOMPRESS = 0x00000010
Global Const $WIMLIB_WRITE_FLAG_RETAIN_GUID = 0x00000800
Global Const $WIMLIB_WRITE_FLAG_SEND_DONE_WITH_FILE_MESSAGES = 0x00002000
Global Const $WIMLIB_WRITE_FLAG_SKIP_EXTERNAL_WIMS = 0x00000200
Global Const $WIMLIB_WRITE_FLAG_SOFT_DELETE = 0x00000080
Global Const $WIMLIB_WRITE_FLAG_SOLID = 0x00001000
Global Const $WIMLIB_WRITE_FLAG_STREAMS_OK = 0x00000400
Global Const $WIMLIB_WRITE_FLAG_UNSAFE_COMPACT = 0x00008000



Global Const $tagwimlib_wim_info = "byte guid[" & $WIMLIB_GUID_LEN & "];dword image_count;dword boot_index;dword wim_version;dword chunk_size;word part_number;word total_parts;int compression_type;UINT64 total_bytes;DWORD has_integrity_table;DWORD opened_from_file;DWORD is_readonly;DWORD has_rpfix;DWORD is_marked_readonly;DWORD spanned;DWORD write_in_progress;DWORD metadata_only;DWORD resource_only;DWORD pipable;DWORD reserved_flags;DWORD reserved[9]"

Global Const $tagwimlib_progress_info_write_streams = "UINT64 total_bytes;UINT64 total_streams;UINT64 completed_bytes;UINT64 completed_streams;UINT num_threads;UINT compression_type;UINT total_parts;UINT completed_parts"
Global Const $tagwimlib_progress_info_scan = "wstr ;wstr "
Global Const $tagwimlib_progress_info_done_with_file = "wstr path_to_file"
Global Const $tagwimlib_progress_info_integrity = "UINT64 total_bytes;UINT64 completed_bytes;dword total_chunks;dword completed_chunks;dword chunk_size;wstr filename"
Global Const $tagwimlib_progress_info_verify_image = "wstr wimfile;UINT total_images;UINT current_image"

Edited July 10 by MattHiggs

LarsJ · July 10

Replace

"struct*", $tWIMStruct

with

"ptr", $pWIMStruct

MadDogVachon · July 10

@LarsJ

Thanks, it works! It blocks elsewhere, but I will try to solve before asking for help.

@MattHiggs

I didn't plan to make an UDF. But I'm tempted... Let's see where it goes.😊

Jonathan

Edited July 10 by MadDogVachon

MadDogVachon · July 12

Hi everyone,

Now, I struggle with wimlib_set_output_pack_chunk_size. Using LZX, this format supports chunk sizes that are powers of 2 between 2^15 and 2^21, inclusively. Default value "0" works, but others not. I made a loop to test a valid value and no result. Can someone help me find the solution?

The code:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

#AutoIt3Wrapper_UseX64=Y

Opt( "MustDeclareVars", 1 )

WimLib()

Func WimLib()
    Local $hWimLib = DllOpen( "libwim-15-64.dll" )
    If $hWimLib = -1 Then Exit ConsoleWrite( "ERR: libwin-15-64.dll open" & @CRLF )
    ConsoleWrite( "OK : libwin-15-64.dll open" & @CRLF )

    Local $aRet, $tWIMStruct = DllStructCreate( "ptr" ) ; Pointer storage for WIMStruct pointer
    $aRet = DllCall( $hWimLib, "int:cdecl", "wimlib_create_new_wim", _
                                "int", 2, _              ; ctype
                                "struct*", $tWIMStruct ) ; Store WIMStruct pointer
    If $aRet[0] Or @error Then Return ConsoleWrite( "ERR: wimlib_create_new_wim" & @CRLF & _
                                                  "$aRet[0] = " & $aRet[0] & @CRLF & _
                                                  DllCall($hWimLib, "wstr:cdecl", "wimlib_get_error_string", "int", $aRet[0]) & @CRLF & _
                                                  "@error   = " & @error & @CRLF )
    ConsoleWrite( "OK : wimlib_create_new_wim" & @CRLF )
    Local $pWIMStruct = DllStructGetData( $tWIMStruct, 1 ) ; Get WIMStruct pointer from storage
    ConsoleWrite( "$pWIMStruct = " & $pWIMStruct & @CRLF )

    $aRet = DllCall( $hWimLib, "int:cdecl", "wimlib_add_image", _
                                "ptr", $pWIMStruct, _       ; WIMStruct pointer
                                "wstr", "Z:", _             ; source
                                "wstr", "", _               ; name
                                "wstr", Null, _             ; config_file
                                "int", BitAND(4,800))       ; add_flags
    If $aRet[0] Or @error Then Return ConsoleWrite( "ERR: wimlib_add_image" & @CRLF & _
                                                  "$aRet[0] = " & $aRet[0] & @CRLF & _
                                                  DllCall($hWimLib, "wstr:cdecl", "wimlib_get_error_string", "int", $aRet[0]) & @CRLF & _
                                                  "@error   = " & @error & @CRLF )
    ConsoleWrite( "OK : wimlib_add_image" & @CRLF )

    $aRet = DllCall($hWimLib, "int:cdecl", "wimlib_set_default_compression_level", _
                                "int", 2, _                 ; int ctype
                                "uint", 50)                 ; unsigned int compression_level
    If $aRet[0] Or @error Then Return ConsoleWrite("ERR: wimlib_set_default_compression_level" & @CRLF & "$aRet[0] = " & $aRet[0] & @CRLF & "@error   = " & @error & @CRLF)
    ConsoleWrite("OK: wimlib_set_default_compression_level" & @CRLF)

    $aRet = DllCall($hWimLib, "int:cdecl", "wimlib_set_output_pack_chunk_size", _
                                "struct*", $tWIMStruct, _   ; WIMStruct wim
                                "uint", 0)                  ; uint32_t chunk_size
    If $aRet[0] Or @error Then Return ConsoleWrite("ERR: wimlib_set_output_pack_chunk_size" & @CRLF & "$aRet[0] = " & $aRet[0] & @CRLF & "@error   = " & @error & @CRLF)
    ConsoleWrite("OK: wimlib_set_output_pack_chunk_size" & @CRLF)


    For $ii = 2^0 To 2^22
        If Mod($ii, 100000) = 0 Then ToolTip($ii)
        $aRet = DllCall($hWimLib, "int:cdecl", "wimlib_set_output_pack_chunk_size", _
                                    "struct*", $tWIMStruct, _   ; WIMStruct wim
                                    "uint", $ii)                ; uint32_t chunk_size
        If not ($aRet[0] Or @error) Then ConsoleWrite("OK: " & $ii & " wimlib_set_output_pack_chunk_size" & @CRLF)
    Next


    $hWimLib = 0
EndFunc

Thanks!

Jonathan

LarsJ · July 12

"ptr", $pWIMStruct

MadDogVachon · July 12

Hahaha, newbie's error...😅 Thanks LarsJ!

Jonathan

MadDogVachon · July 19

Hi everyone,

I began to write WimLibUDF.au3. It's still alpha version and very much incompleted.

I'm currently working with progress status (the reason why I want to use wimlib-15???.dll instead of wimlib-imagex.exe). Here's what I could write based on Homes UDF:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7

#AutoIt3Wrapper_UseX64=Y

Opt( "MustDeclareVars", 1 )

Global $sSourceFolder = "Z:"
Global $sWimFile = "D:\WinRE in work!\WimLib\WimLib Test 2022.WimLib"

Global $hWimLib = DllOpen( "libwim-15-64.dll" )
If $hWimLib = -1 Then Exit ConsoleWrite( "ERR: libwin-15-64.dll open" & @CRLF )
ConsoleWrite( "OK : libwin-15-64.dll open" & @CRLF )

WimLib()

Func WimLib()
    Local $aRet, $tWIMStruct = DllStructCreate( "ptr" ) ; Pointer storage for WIMStruct pointer
    $aRet = DllCall( $hWimLib, "int:cdecl", "wimlib_create_new_wim", _
                                "int", 2, _              ; ctype
                                "struct*", $tWIMStruct ) ; Store WIMStruct pointer
    If $aRet[0] Then Return ConsoleWrite("ERR: wimlib_create_new_wim" & @CRLF & "$aRet[0] = " & $aRet[0] & ": " & _WimLib_ErrorMessage($aRet[0]) & @CRLF)
    ConsoleWrite( "OK : wimlib_create_new_wim" & @CRLF )
    Local $pWIMStruct = DllStructGetData( $tWIMStruct, 1 ) ; Get WIMStruct pointer from storage
    ConsoleWrite( "$pWIMStruct = " & $pWIMStruct & @CRLF )

    ProgressOn("Capturing", "Capture of """ & $sSourceFolder & """", "Starting...", -1, -1, 16)

    Local $pCallBack = DllCallbackRegister('_WimLib_CallBack', 'none:cdecl', 'dword;WPARAM;LPARAM;dword')
    $aRet = DllCall($hWimLib, "none", "wimlib_register_progress_function", _
                                "ptr", $pWIMStruct, _                   ; WIMStruct wim
                                "ptr", DllCallbackGetPtr($pCallBack), _ ; wimlib_progress_func_t progfunc
                                "none", Null)                           ; void progctx
    If $aRet[0] Then Return ConsoleWrite("ERR: wimlib_register_progress_function" & @CRLF & "$aRet[0] = " & $aRet[0] & ": " & _WimLib_ErrorMessage($aRet[0]) & @CRLF)
    ConsoleWrite("OK: wimlib_register_progress_function" & @CRLF)

    $aRet = DllCall( $hWimLib, "int:cdecl", "wimlib_add_image", _
                                "ptr", $pWIMStruct, _       ; WIMStruct pointer
                                "wstr", $sSourceFolder, _   ; source
                                "wstr", "", _               ; name
                                "wstr", Null, _             ; config_file
                                "int", BitAND(4,800))       ; add_flags     $WIMLIB_ADD_FLAG_VERBOSE = 4, $WIMLIB_ADD_FLAG_WINCONFIG = 800
    If $aRet[0] Then Return ConsoleWrite( "ERR: wimlib_add_image" & @CRLF & _
                                                  "$aRet[0] = " & $aRet[0] & ": " & _WimLib_ErrorMessage($aRet[0]) & @CRLF & _
                                                  DllCall($hWimLib, "wstr:cdecl", "wimlib_get_error_string", "int", $aRet[0]) & @CRLF & _
                                                  "@error   = " & @error & @CRLF )
    ConsoleWrite( "OK : wimlib_add_image" & @CRLF )

    $aRet = DllCall($hWimLib, "int:cdecl", "wimlib_set_default_compression_level", _
                                "int", 2, _                 ; int ctype
                                "uint", 50)                 ; unsigned int compression_level
    If $aRet[0] Then Return ConsoleWrite("ERR: wimlib_set_default_compression_level" & @CRLF & "$aRet[0] = " & $aRet[0] & ": " & _WimLib_ErrorMessage($aRet[0]) & @CRLF)
    ConsoleWrite("OK: wimlib_set_default_compression_level" & @CRLF)


    $aRet = DllCall($hWimLib, "int:cdecl", "wimlib_set_output_chunk_size", _
                                "ptr", $pWIMStruct, _           ; WIMStruct wim
                                "uint", 2^15)                   ; uint32_t chunk_size
    If $aRet[0] Then Return ConsoleWrite("ERR: wimlib_set_output_chunk_size" & @CRLF & "$aRet[0] = " & $aRet[0] & ": " & _WimLib_ErrorMessage($aRet[0]) & @CRLF)
    ConsoleWrite("OK: wimlib_set_output_chunk_size" & @CRLF)

    If FileExists($sWimFile) Then FileDelete($sWimFile)
    $aRet = DllCall($hWimLib, "int:cdecl", "wimlib_write", _
                                "ptr", $pWIMStruct, _           ; WIMStruct wim
                                "wstr", $sWimFile, _            ; const wimlib_tchar path
                                "int", 1, _                     ; int image
                                "int", 0, _                     ; int write_flags
                                "uint", 0)                      ; unsigned num_threads
    If $aRet[0] Then Return ConsoleWrite("ERR: wimlib_write" & @CRLF & "$aRet[0] = " & $aRet[0] & ": " & _WimLib_ErrorMessage($aRet[0]) & @CRLF)
    ConsoleWrite("OK: wimlib_write" & @CRLF)

    $aRet = DllCall($hWimLib, "none:cdecl", "wimlib_free", _
            "ptr", $pWIMStruct)                             ; WIMStruct wim
    If $aRet[0] Then Return ConsoleWrite("ERR: wimlib_free" & @CRLF &  "$aRet[0] = " & $aRet[0] & ": " & _WimLib_ErrorMessage($aRet[0]) & @CRLF)
    ConsoleWrite("OK: wimlib_free" & @CRLF)

    $hWimLib = 0
    Return ConsoleWrite("Done!" & @CRLF)

;~     ProgressOff()
EndFunc

Func _WimLib_ErrorMessage($iValue)
    Local $a_WimLib_ErrorMessage = DllCall($hWimLib, "wstr:cdecl", "wimlib_get_error_string", "int", $iValue)
    Return $iValue & ": " & $a_WimLib_ErrorMessage[0]
EndFunc

Func _WimLib_CallBack($msgId, $param1, $param2, $unused)
    Local $Percent, $rTime, $filePath
    Switch $msgId

        ; wimlib_add_image
        Case 9 ; $WIMLIB_PROGRESS_MSG_SCAN_BEGIN = 9
            ProgressSet(0, "Listing files """ & $sWimFile & """", "Starting")
        Case 11 ; $WIMLIB_PROGRESS_MSG_SCAN_END = 11
            ProgressSet(0, "Listing files """ & $sWimFile & """", "Done")
        Case 10 ; $WIMLIB_PROGRESS_MSG_SCAN_DENTRY = 10
            ; ???

        ; wimlib_write
        Case 12 ; $WIMLIB_PROGRESS_MSG_WRITE_STREAMS = 12
            ; ???
            $Percent = $param1

            If $param2 = 0 Then
                $rTime = ""
            Else
                $rTime = StringFormat('Remaining: %i sec.', $param2 / 1000)
            EndIf

            ProgressSet($Percent, StringFormat('%3i%% completed.      %snn   %s', $Percent, $rTime, $filePath), 'Capture ' & $sWimFile)
        Case 13 ; $WIMLIB_PROGRESS_MSG_WRITE_METADATA_BEGIN = 13
            ProgressSet(0, "Capturing """ & $sWimFile & """", "Starting")
        Case 14 ; $WIMLIB_PROGRESS_MSG_WRITE_METADATA_END = 14
            ProgressSet(0, "Capturing """ & $sWimFile & """", "Done")

    EndSwitch

    Return 0
EndFunc   ;==>_WimLib_CallBack

Can anyone complete/correct my code? Thanks!

Jonathan

Edited July 19 by MadDogVachon
Few corrections to code...

MadDogVachon · July 21

Hi everyone,

I managed to complete only the capture part of the UDF (easy part) and improve the progress. I went further in the code for the progress display. However, I don't know how to go further and successfully view the information when adding files.

So, Here my Alfa UDF. It currently only has capturing and verifying capabilities:

#RequireAdmin
#include-once
#include <WinAPI.au3>
 #include <array.au3>
Opt( "MustDeclareVars", 1 )

; #INDEX# =======================================================================================================================
; Title .........: Wimgapi vBeta (99/99/2022)
; AutoIt Version : 3.3.14.5
; Description ...: Functions for creating and manipulating WIM images.
; Author(s) .....: Jonathan Larochelle (MadDogVachon)
; Dll ...........: libwim-15.dll, libwim-15-64.dll
; ===============================================================================================================================

; #VARIABLES# ===================================================================================================================
Global $sWimLibDLL
If FileExists(@SystemDir & "\libwim-15-64.dll") Then    ; path to libwim-15*.dll
    $sWimLibDLL = @SystemDir & "\libwim-15-64.dll"
ElseIf FileExists(@SystemDir & "\libwim-15.dll") Then
    $sWimLibDLL = @SystemDir & "\libwim-15.dll"
ElseIf FileExists("libwim-15-64.dll") Then
    $sWimLibDLL = "libwim-15-64.dll"
Else
    $sWimLibDLL = "libwim-15.dll"
EndIf
Global $hWimLibDLL = 0 ; initialized by _WimLib_Startup() and contains the handle to DllOpen($sWimLibDLL)
Global $iWIMLibRef = 0 ; reference var. Value is >= 1 if $sWimLibDLL is loaded.
Global $bProgressBar = True ; Show or not progress bar when possible
; ===============================================================================================================================

; #CONSTANTS# ===================================================================================================================
; WimLib_compression_type
Global Enum $WIMLIB_COMPRESSION_TYPE_NONE, $WIMLIB_COMPRESSION_TYPE_XPRESS, $WIMLIB_COMPRESSION_TYPE_LZX, $WIMLIB_COMPRESSION_TYPE_LZMS
; WimLib_progress_msg
Global Enum $WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_BEGIN, $WIMLIB_PROGRESS_MSG_EXTRACT_TREE_BEGIN, $WIMLIB_PROGRESS_MSG_EXTRACT_FILE_STRUCTURE = 3, $WIMLIB_PROGRESS_MSG_EXTRACT_STREAMS, $WIMLIB_PROGRESS_MSG_EXTRACT_SPWM_PART_BEGIN, _
        $WIMLIB_PROGRESS_MSG_EXTRACT_METADATA, $WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_END, $WIMLIB_PROGRESS_MSG_EXTRACT_TREE_END, $WIMLIB_PROGRESS_MSG_SCAN_BEGIN, $WIMLIB_PROGRESS_MSG_SCAN_DENTRY, $WIMLIB_PROGRESS_MSG_SCAN_END, _
        $WIMLIB_PROGRESS_MSG_WRITE_STREAMS, $WIMLIB_PROGRESS_MSG_WRITE_METADATA_BEGIN, $WIMLIB_PROGRESS_MSG_WRITE_METADATA_EN, $WIMLIB_PROGRESS_MSG_RENAME, $WIMLIB_PROGRESS_MSG_VERIFY_INTEGRITY, $WIMLIB_PROGRESS_MSG_CALC_INTEGRITY, _
        $WIMLIB_PROGRESS_MSG_SPLIT_BEGIN_PART = 19, $WIMLIB_PROGRESS_MSG_SPLIT_END_PART, $WIMLIB_PROGRESS_MSG_UPDATE_BEGIN_COMMAND, $WIMLIB_PROGRESS_MSG_UPDATE_END_COMMAND, $WIMLIB_PROGRESS_MSG_REPLACE_FILE_IN_WIM, _
        $WIMLIB_PROGRESS_MSG_WIMBOOT_EXCLUDE, $WIMLIB_PROGRESS_MSG_UNMOUNT_BEGIN, $WIMLIB_PROGRESS_MSG_DONE_WITH_FILE, $WIMLIB_PROGRESS_MSG_BEGIN_VERIFY_IMAGE, $WIMLIB_PROGRESS_MSG_END_VERIFY_IMAGE, $WIMLIB_PROGRESS_MSG_VERIFY_STREAMS, _
        $WIMLIB_PROGRESS_MSG_TEST_FILE_EXCLUSION, $WIMLIB_PROGRESS_MSG_HANDLE_ERROR
; WimLib_progress_status
Global Enum $WIMLIB_PROGRESS_STATUS_CONTINUE, $WIMLIB_PROGRESS_STATUS_ABORT
; WimLib_update_op
Global Const $WIMLIB_UPDATE_OP_ADD = 0
; WimLib_error_code
Global Enum $WIMLIB_ERR_SUCCESS, $WIMLIB_ERR_ALREADY_LOCKED, $WIMLIB_ERR_DECOMPRESSION, $WIMLIB_ERR_FUSE = 6, $WIMLIB_ERR_GLOB_HAD_NO_MATCHES = 8, $WIMLIB_ERR_ICONV_NOT_AVAILABLE, $WIMLIB_ERR_IMAGE_COUNT, $WIMLIB_ERR_IMAGE_NAME_COLLISION, _
        $WIMLIB_ERR_INSUFFICIENT_PRIVILEGES, $WIMLIB_ERR_INTEGRITY, $WIMLIB_ERR_INVALID_CAPTURE_CONFIG, $WIMLIB_ERR_INVALID_CHUNK_SIZE, $WIMLIB_ERR_INVALID_COMPRESSION_TYPE, $WIMLIB_ERR_INVALID_HEADER, $WIMLIB_ERR_INVALID_IMAGE, _
        $WIMLIB_ERR_INVALID_INTEGRITY_TABLE, $WIMLIB_ERR_INVALID_LOOKUP_TABLE_ENTRY, $WIMLIB_ERR_INVALID_METADATA_RESOURCE, $WIMLIB_ERR_INVALID_MULTIBYTE_STRING, $WIMLIB_ERR_INVALID_OVERLAY, $WIMLIB_ERR_INVALID_PARAM, _
        $WIMLIB_ERR_INVALID_PART_NUMBER, $WIMLIB_ERR_INVALID_PIPABLE_WIM, $WIMLIB_ERR_INVALID_REPARSE_DATA, $WIMLIB_ERR_INVALID_RESOURCE_HASH, $WIMLIB_ERR_INVALID_UTF16_STRING = 30, $WIMLIB_ERR_INVALID_UTF8_STRING, $WIMLIB_ERR_IS_DIRECTORY, _
        $WIMLIB_ERR_IS_SPLIT_WIM, $WIMLIB_ERR_LIBXML_UTF16_HANDLER_NOT_AVAILABLE, $WIMLIB_ERR_LINK, $WIMLIB_ERR_METADATA_NOT_FOUND, $WIMLIB_ERR_MKDIR, $WIMLIB_ERR_MQUEUE, $WIMLIB_ERR_NOMEM, $WIMLIB_ERR_NOTDIR, $WIMLIB_ERR_NOTEMPTY, _
        $WIMLIB_ERR_NOT_A_REGULAR_FILE, $WIMLIB_ERR_NOT_A_WIM_FILE, $WIMLIB_ERR_NOT_PIPABLE, $WIMLIB_ERR_NO_FILENAME, $WIMLIB_ERR_NTFS_3G, $WIMLIB_ERR_OPEN, $WIMLIB_ERR_OPENDIR, $WIMLIB_ERR_PATH_DOES_NOT_EXIST, $WIMLIB_ERR_READ, _
        $WIMLIB_ERR_READLINK, $WIMLIB_ERR_RENAME, $WIMLIB_ERR_REPARSE_POINT_FIXUP_FAILED = 54, $WIMLIB_ERR_RESOURCE_NOT_FOUND, $WIMLIB_ERR_RESOURCE_ORDER, $WIMLIB_ERR_SET_ATTRIBUTES, $WIMLIB_ERR_SET_REPARSE_DATA, $WIMLIB_ERR_SET_SECURITY, _
        $WIMLIB_ERR_SET_SHORT_NAME, $WIMLIB_ERR_SET_TIMESTAMPS, $WIMLIB_ERR_SPLIT_INVALID, $WIMLIB_ERR_STAT, $WIMLIB_ERR_UNEXPECTED_END_OF_FILE = 65, $WIMLIB_ERR_UNICODE_STRING_NOT_REPRESENTABLE, $WIMLIB_ERR_UNKNOWN_VERSION, $WIMLIB_ERR_UNSUPPORTED, _
        $WIMLIB_ERR_UNSUPPORTED_FILE, $WIMLIB_ERR_WIM_IS_READONLY = 71, $WIMLIB_ERR_WRITE, $WIMLIB_ERR_XML, $WIMLIB_ERR_WIM_IS_ENCRYPTED, $WIMLIB_ERR_WIMBOOT, $WIMLIB_ERR_ABORTED_BY_PROGRESS, $WIMLIB_ERR_UNKNOWN_PROGRESS_STATUS, _
        $WIMLIB_ERR_MKNOD, $WIMLIB_ERR_MOUNTED_IMAGE_IS_BUSY, $WIMLIB_ERR_NOT_A_MOUNTPOINT, $WIMLIB_ERR_NOT_PERMITTED_TO_UNMOUNT, $WIMLIB_ERR_FVE_LOCKED_VOLUME, $WIMLIB_ERR_UNABLE_TO_READ_CAPTURE_CONFIG, $WIMLIB_ERR_WIM_IS_INCOMPLETE, _
        $WIMLIB_ERR_COMPACTION_NOT_POSSIBLE, $WIMLIB_ERR_IMAGE_HAS_MULTIPLE_REFERENCES, $WIMLIB_ERR_DUPLICATE_EXPORTED_IMAGE, $WIMLIB_ERR_CONCURRENT_MODIFICATION_DETECTED, $WIMLIB_ERR_SNAPSHOT_FAILURE, $WIMLIB_ERR_INVALID_XATTR, $WIMLIB_ERR_SET_XATTR
; WimLib_CHANGE
Global Const $WIMLIB_CHANGE_READONLY_FLAG                       = 0x00000001
Global Const $WIMLIB_CHANGE_GUID                                = 0x00000002
Global Const $WIMLIB_CHANGE_BOOT_INDEX                          = 0x00000004
Global Const $WIMLIB_CHANGE_RPFIX_FLAG                          = 0x00000008
; WimLib_ADD_FLAG
Global Const $WIMLIB_ADD_FLAG_NTFS                              = 0x00000001
Global Const $WIMLIB_ADD_FLAG_DEREFERENCE                       = 0x00000002
Global Const $WIMLIB_ADD_FLAG_VERBOSE                           = 0x00000004
Global Const $WIMLIB_ADD_FLAG_BOOT                              = 0x00000008
Global Const $WIMLIB_ADD_FLAG_UNIX_DATA                         = 0x00000010
Global Const $WIMLIB_ADD_FLAG_NO_ACLS                           = 0x00000040
Global Const $WIMLIB_ADD_FLAG_EXCLUDE_VERBOSE                   = 0x00000080
Global Const $WIMLIB_ADD_FLAG_RPFIX                             = 0x00000100
Global Const $WIMLIB_ADD_FLAG_NORPFIX                           = 0x00000200
Global Const $WIMLIB_ADD_FLAG_NO_UNSUPPORTED_EXCLUDE            = 0x00000400
Global Const $WIMLIB_ADD_FLAG_WINCONFIG                         = 0x00000800
Global Const $WIMLIB_ADD_FLAG_WIMBOOT                           = 0x00001000
Global Const $WIMLIB_ADD_FLAG_NO_REPLACE                        = 0x00002000
Global Const $WIMLIB_ADD_FLAG_TEST_FILE_EXCLUSION               = 0x00004000
Global Const $WIMLIB_ADD_FLAG_SNAPSHOT                          = 0x00008000
Global Const $WIMLIB_ADD_FLAG_FILE_PATHS_UNNEEDED               = 0x00010000
; WimLib_WRITE_FLAG
Global Const $WIMLIB_WRITE_FLAG_CHECK_INTEGRITY                 = 0x00000001
Global Const $WIMLIB_WRITE_FLAG_NO_CHECK_INTEGRITY              = 0x00000002
Global Const $WIMLIB_WRITE_FLAG_PIPABLE                         = 0x00000004
Global Const $WIMLIB_WRITE_FLAG_NOT_PIPABLE                     = 0x00000008
Global Const $WIMLIB_WRITE_FLAG_RECOMPRESS                      = 0x00000010
Global Const $WIMLIB_WRITE_FLAG_FSYNC                           = 0x00000020
Global Const $WIMLIB_WRITE_FLAG_REBUILD                         = 0x00000040
Global Const $WIMLIB_WRITE_FLAG_SOFT_DELETE                     = 0x00000080
Global Const $WIMLIB_WRITE_FLAG_IGNORE_READONLY_FLAG            = 0x00000100
Global Const $WIMLIB_WRITE_FLAG_SKIP_EXTERNAL_WIM               = 0x00000200
Global Const $WIMLIB_WRITE_FLAG_STREAMS_OK                      = 0x00000400
Global Const $WIMLIB_WRITE_FLAG_RETAIN_GUID                     = 0x00000800
Global Const $WIMLIB_WRITE_FLAG_SOLID                           = 0x00001000
Global Const $WIMLIB_WRITE_FLAG_SEND_DONE_WITH_FILE_MESSAGES    = 0x00002000
Global Const $WIMLIB_WRITE_FLAG_NO_SOLID_SORT                   = 0x00004000
Global Const $WIMLIB_WRITE_FLAG_UNSAFE_COMPACT                  = 0x00008000
; WimLib_DELETE_FLAG
Global Const $WIMLIB_DELETE_FLAG_FORCE                          = 0x00000001
Global Const $WIMLIB_DELETE_FLAG_RECURSIVE                      = 0x00000002
; WimLib_EXPORT_FLAG
Global Const $WIMLIB_EXPORT_FLAG_BOOT                           = 0x00000001
Global Const $WIMLIB_EXPORT_FLAG_NO_NAMES                       = 0x00000002
Global Const $WIMLIB_EXPORT_FLAG_NO_DESCRIPTIONS                = 0x00000004
Global Const $WIMLIB_EXPORT_FLAG_GIFT                           = 0x00000008
Global Const $WIMLIB_EXPORT_FLAG_WIMBOOT                        = 0x00000010
; WimLib_UPDATE_FLAG_SEND_PROGRESS
Global Const $WIMLIB_UPDATE_FLAG_SEND_PROGRESS                  = 0x00000001
; WimLib_Mount_FLAG
Global Const $WIMLIB_MOUNT_FLAG_READWRITE                       = 0x00000001
Global Const $WIMLIB_MOUNT_FLAG_DEBUG                           = 0x00000002
Global Const $WIMLIB_MOUNT_FLAG_STREAM_INTERFACE_NONE           = 0x00000004
Global Const $WIMLIB_MOUNT_FLAG_STREAM_INTERFACE_XATTR          = 0x00000008
Global Const $WIMLIB_MOUNT_FLAG_STREAM_INTERFACE_WINDOWS        = 0x00000010
Global Const $WIMLIB_MOUNT_FLAG_UNIX_DATA                       = 0x00000020
Global Const $WIMLIB_MOUNT_FLAG_ALLOW_OTHER                     = 0x00000040
; WimLib_Unmount_FLAG
Global Const $WIMLIB_UNMOUNT_FLAG_CHECK_INTEGRITY               = 0x00000001
Global Const $WIMLIB_UNMOUNT_FLAG_COMMIT                        = 0x00000002
Global Const $WIMLIB_UNMOUNT_FLAG_REBUILD                       = 0x00000004
Global Const $WIMLIB_UNMOUNT_FLAG_RECOMPRESS                    = 0x00000008
Global Const $WIMLIB_UNMOUNT_FLAG_FORCE                         = 0x00000010
Global Const $WIMLIB_UNMOUNT_FLAG_NEW_IMAGE                     = 0x00000020
; ===============================================================================================================================

; #FUNCTION# ====================================================================================================================
; Description ...: Applies an image to a directory path from a Windows image (.wim) file.
; ===============================================================================================================================
Func _WimLib_AddImage(ByRef $pWIMStruct, $sSourceFolder, $sName = "", $sConfigIni = Null, $iAddFlag = 0)
    If $hWimLibDLL = 0 Then Return SetError(-1)

    If $sConfigIni = "" Then $sConfigIni = Null
    Local $aResult, $hCallBack

    If $bProgressBar = True Then
        $iAddFlag = BitAND($iAddFlag, $WIMLIB_ADD_FLAG_VERBOSE)

        $hCallBack = DllCallbackRegister("_WimLib_ProgressFunc_t", 'none:cdecl', 'int;wstr;wstr;uint;uint;uint')
        $aResult = DllCall($hWimLibDLL, "none:cdecl", "wimlib_register_progress_function", "ptr", $pWIMStruct, "ptr", DllCallbackGetPtr($hCallBack), "none", Null)
        Return SetError(@error, $aResult[0], "wimlib_register_progress_function")

;~      ProgressOn("Capturing", "Capture of """ & $sSourceFolder & """", "Starting...", -1, -1, 16)
    EndIf
    If $sConfigIni = Null Then $iAddFlag = BitAND($iAddFlag, $WIMLIB_ADD_FLAG_WINCONFIG)

    $aResult = DllCall($hWimLibDLL, "int:cdecl", "wimlib_add_image", "ptr", $pWIMStruct, "wstr", $sSourceFolder, "wstr", $sName, "wstr", $sConfigIni, "int", $iAddFlag)
    If $bProgressBar = True Then
        DllCallbackFree($hCallBack)
;~      ProgressOff()
    EndIf

    Return SetError(@error, $aResult[0], "wimlib_add_image")
EndFunc   ;==>_WimLib_AddImage

; #FUNCTION# ====================================================================================================================
; Description ...: Callback to show progres messages while processing Wim.
; ===============================================================================================================================
Func _WimLib_ProgressFunc_t($msgId, $param1 = 0, $param2 = 0, $param3 = 0, $param4 = 0, $param5 = 0, $param6 = 0, $param7 = 0, $param8 = 0, $param9 = 0, $param10 = 0, $param11 = 0, $param12 = 0, $param13 = 0, $param14 = 0, $param15 = 0, $param16 = 0)

    Switch $msgId

        Case $WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_BEGIN
        Case $WIMLIB_PROGRESS_MSG_EXTRACT_TREE_BEGIN
        Case $WIMLIB_PROGRESS_MSG_EXTRACT_FILE_STRUCTURE
        Case $WIMLIB_PROGRESS_MSG_EXTRACT_STREAMS
        Case $WIMLIB_PROGRESS_MSG_EXTRACT_SPWM_PART_BEGIN
        Case $WIMLIB_PROGRESS_MSG_EXTRACT_METADATA
        Case $WIMLIB_PROGRESS_MSG_EXTRACT_IMAGE_END
        Case $WIMLIB_PROGRESS_MSG_EXTRACT_TREE_END

#cs
    /** Valid on messages ::WIMLIB_PROGRESS_MSG_SCAN_BEGIN,
     * ::WIMLIB_PROGRESS_MSG_SCAN_DENTRY, and
     * ::WIMLIB_PROGRESS_MSG_SCAN_END.  */
    struct wimlib_progress_info_scan {

        const wimlib_tchar *source;
        const wimlib_tchar *cur_path;

        /** Dentry scan status, valid on
         * ::WIMLIB_PROGRESS_MSG_SCAN_DENTRY.  */
        enum {
            WIMLIB_SCAN_DENTRY_OK = 0,
            WIMLIB_SCAN_DENTRY_EXCLUDED = 1,
            WIMLIB_SCAN_DENTRY_UNSUPPORTED = 2,
            WIMLIB_SCAN_DENTRY_FIXED_SYMLINK = 3,
            WIMLIB_SCAN_DENTRY_NOT_FIXED_SYMLINK = 4,
        } status;

        union {
            /** Target path in the image.  Only valid on messages
             * ::WIMLIB_PROGRESS_MSG_SCAN_BEGIN and
             * ::WIMLIB_PROGRESS_MSG_SCAN_END.  */
            const wimlib_tchar *wim_target_path;

            /** For ::WIMLIB_PROGRESS_MSG_SCAN_DENTRY and a status
             * of @p WIMLIB_SCAN_DENTRY_FIXED_SYMLINK or @p
             * WIMLIB_SCAN_DENTRY_NOT_FIXED_SYMLINK, this is the
             * target of the absolute symbolic link or junction.  */
            const wimlib_tchar *symlink_target;
        };

        uint64_t num_dirs_scanned;

        uint64_t num_nondirs_scanned;

        uint64_t num_bytes_scanned;
    } scan;
#ce
        ;wimlib_add_image
        Case $WIMLIB_PROGRESS_MSG_SCAN_BEGIN
;~          ProgressSet(0, "Listing files """ & $sWimFile & """", "Starting")

        Case $WIMLIB_PROGRESS_MSG_SCAN_DENTRY
            ; ???
            SplashTextOn("wimlib_add_image", "$msgId: " & $msgId & @CRLF _
                    & "$param1: " & $param1 & @CRLF _
                    & "$param2: " & $param2 & @CRLF _
                    & "$param3: " & $param3 & @CRLF _
                    & "$param4: " & $param4 & @CRLF _
                    & "$param5: " & $param5 & @CRLF _
                    & "$param6: " & $param6 & @CRLF _
                    & "$param7: " & $param7 & @CRLF _
                    & "$param8: " & $param8 & @CRLF _
                    & "$param9: " & $param9 & @CRLF _
                    & "$param10: " & $param10 & @CRLF _
                    & "$param11: " & $param11 & @CRLF _
                    & "$param12: " & $param12 & @CRLF _
                    & "$param13: " & $param13 & @CRLF _
                    & "$param14: " & $param14 & @CRLF _
                    & "$param15: " & $param15 & @CRLF _
                    & "$param16: " & $param16)

        Case $WIMLIB_PROGRESS_MSG_SCAN_END
;~          ProgressSet(0, "Listing files """ & $sWimFile & """", "Done")

        Case $WIMLIB_PROGRESS_MSG_WRITE_STREAMS
        Case $WIMLIB_PROGRESS_MSG_WRITE_METADATA_BEGIN
        Case $WIMLIB_PROGRESS_MSG_WRITE_METADATA_EN

        Case $WIMLIB_PROGRESS_MSG_RENAME

        Case $WIMLIB_PROGRESS_MSG_VERIFY_INTEGRITY
        Case $WIMLIB_PROGRESS_MSG_CALC_INTEGRITY

        Case $WIMLIB_PROGRESS_MSG_SPLIT_BEGIN_PART
        Case $WIMLIB_PROGRESS_MSG_SPLIT_END_PART

        Case $WIMLIB_PROGRESS_MSG_UPDATE_BEGIN_COMMAND
        Case $WIMLIB_PROGRESS_MSG_UPDATE_END_COMMAND

        Case $WIMLIB_PROGRESS_MSG_REPLACE_FILE_IN_WIM

        Case $WIMLIB_PROGRESS_MSG_WIMBOOT_EXCLUDE

        Case $WIMLIB_PROGRESS_MSG_UNMOUNT_BEGIN

        Case $WIMLIB_PROGRESS_MSG_DONE_WITH_FILE

        Case $WIMLIB_PROGRESS_MSG_BEGIN_VERIFY_IMAGE
        Case $WIMLIB_PROGRESS_MSG_END_VERIFY_IMAGE
        Case $WIMLIB_PROGRESS_MSG_VERIFY_STREAMS

        Case $WIMLIB_PROGRESS_MSG_TEST_FILE_EXCLUSION

        Case $WIMLIB_PROGRESS_MSG_HANDLE_ERROR

    EndSwitch

    Return 0
EndFunc   ;==>_WimLib_ProgressFunc_t

; #FUNCTION# ====================================================================================================================
; Description ...: Set a WIMStruct's output compression chunk size.
; Note: XPRESS  This format supports chunk sizes that are powers of 2 between «2^12» and «2^16», inclusively.
;       LZX     This format supports chunk sizes that are powers of 2 between «2^15» and «2^21», inclusively.
;               Chunk sizes other than «2^15» are not compatible with the Microsoft implementation.
;       LZMS    This format supports chunk sizes that are powers of 2 between «2^15» and 2^30», inclusively.  This format is best used for large chunk sizes.
;               LZMS compression is only compatible with wimlib v1.6.0 and later, WIMGAPI Windows 8 and later, and DISM Windows 8.1 and later.
;               Also, chunk sizes larger than «2^26» are not compatible with the Microsoft implementation.
; ===============================================================================================================================
Func _WimLib_ChunkSize(ByRef $pWIMStruct, $iChunk = 0)
    If $hWimLibDLL = 0 Then Return SetError(-1)

    Local $aResult = DllCall($hWimLibDLL, "int:cdecl", "wimlib_set_output_chunk_size", "ptr", $pWIMStruct, "uint", $iChunk)
    Return SetError(@error, $aResult[0], "wimlib_set_output_chunk_size")
EndFunc   ;==>_WimLib_ChunkSize

; #FUNCTION# ====================================================================================================================
; Description ...: Set a WIMStruct's output compression chunk size, but set the chunk size for writing solid resources.
; ===============================================================================================================================
Func _WimLib_ChunkSizeSolid(ByRef $pWIMStruct, $iChunk = 0)
    If $hWimLibDLL = 0 Then Return SetError(-1)

    Local $aResult = DllCall($hWimLibDLL, "int:cdecl", "wimlib_set_output_pack_chunk_size", "ptr", $pWIMStruct, "uint", $iChunk)
    Return SetError(@error, $aResult[0], "wimlib_set_output_pack_chunk_size")
EndFunc   ;==>_WimLib_ChunkSizeSolid

; #FUNCTION# ====================================================================================================================
; Description ...: Set the default compression level for the specified compression type.
; ===============================================================================================================================
Func _WimLib_CompressionLevel($iType, $iLevel = 0)
    If $hWimLibDLL = 0 Then Return SetError(-1)

    Local $aResult = DllCall($hWimLibDLL, "int:cdecl", "wimlib_set_default_compression_level", "int", $iType, "uint", $iLevel)
    Return SetError(@error, $aResult[0], "wimlib_set_default_compression_level")
EndFunc   ;==>_WimLib_CompressionLevel

; #FUNCTION# ====================================================================================================================
; Description ...: Set a WIMStruct's output compression type.
; ===============================================================================================================================
Func _WimLib_CompressionType(ByRef $pWIMStruct, $iType = 0)
    If $hWimLibDLL = 0 Then Return SetError(-1)

    Local $aResult = DllCall($hWimLibDLL, "int:cdecl", "wimlib_set_output_compression_type", "ptr", $pWIMStruct, "int", $iType)
    Return SetError(@error, $aResult[0], "wimlib_set_output_compression_type")
EndFunc   ;==>_WimLib_CompressionType

; #FUNCTION# ====================================================================================================================
; Description ...: Set a WIMStruct's output compression type, but set the compression type for writing solid resources.
; ===============================================================================================================================
Func _WimLib_CompressionTypeSolid(ByRef $pWIMStruct, $iType = 0)
    If $hWimLibDLL = 0 Then Return SetError(-1)

    Local $aResult = DllCall($hWimLibDLL, "int:cdecl", "wimlib_set_output_pack_compression_type", "ptr", $pWIMStruct, "int", $iType)
    Return SetError(@error, $aResult[0], "wimlib_set_output_pack_compression_type")
EndFunc   ;==>_WimLib_CompressionTypeSolid

; #FUNCTION# ====================================================================================================================
; Description ...: Convert a wimlib error code into a string describing it.
; ===============================================================================================================================
Func _WimLib_ErrorMessage($iError)
    If $hWimLibDLL = 0 Or $iError = -1 Then Return "-1: DLL not loaded. ""_WimLib_Startup()"" function needed prior."

    Local $a_WimLib_ErrorMessage = DllCall($hWimLibDLL, "wstr:cdecl", "wimlib_get_error_string", "int", $iError)
    Return $iError & ": " & $a_WimLib_ErrorMessage[0]
EndFunc   ;==>_WimLib_ErrorMessage

; #FUNCTION# ====================================================================================================================
; Description ...: Write error to console.
; ===============================================================================================================================
Func _WimLib_ErrorHandling($iError, $iExtended, $sValue)
    If $iError Or $iExtended Then Return ConsoleWrite("ERR: " & $sValue & @CRLF & "$aResult[0] = " & $iExtended & ": " & _WimLib_ErrorMessage($iExtended) & @CRLF & "@error   = " & $iError & @CRLF)
    ConsoleWrite("OK: " & $sValue & @CRLF)
EndFunc   ;==>_WimLib_ErrorMessage

; #FUNCTION# ====================================================================================================================
; Description ...: Closes an open Windows imaging (.wim) file or image handle.
; ===============================================================================================================================
Func _WimLib_Free(ByRef $pWIMStruct)
    If $hWimLibDLL = 0 Then Return SetError(-1)

    Local $aResult = DllCall($hWimLibDLL, "none:cdecl", "wimlib_free", "ptr", $pWIMStruct)
    Return SetError(@error, $aResult[0], "wimlib_free")
EndFunc   ;==>_WimLib_Free

; #FUNCTION# ====================================================================================================================
; Description ...: Unload libwim-15*.dll
; ===============================================================================================================================
Func _WimLib_Shutdown()
    If $hWimLibDLL = 0 Then Return SetError(-1, -1, False) ; handle is already closed.

    $iWIMLibRef -= 1
    If $iWIMLibRef = 0 Then
        Local $aResult = DllCall($hWimLibDLL, "none:cdecl", "wimlib_global_cleanup", "none", Null)
        Return SetError(@error, $aResult[0], "wimlib_global_cleanup")
        DllClose($hWimLibDLL)
        $hWimLibDLL = 0
    EndIf
    Return SetError(0, 0, "wimlib_global_cleanup")
EndFunc   ;==>_WimLib_Shutdown

; #FUNCTION# ====================================================================================================================
; Description ...: Load libwim-15*.dll
; ===============================================================================================================================
Func _WimLib_Startup()
    $iWIMLibRef += 1
    If $iWIMLibRef > 1 Then Return SetExtended($hWimLibDLL, 0) ; dll already loaded

    If Not FileExists($sWimLibDLL) Then Return SetError(2, 0, -1) ; $sWimLibDLL does not exist

    $hWimLibDLL = DllOpen($sWimLibDLL) ; remember $hWimLibDLL is Global
    If $hWimLibDLL = -1 Then Return SetError(1, 0, -1) ; Error opening dll
    Return SetExtended($hWimLibDLL, 0) ; success!
EndFunc   ;==>_WimLib_Startup

; #FUNCTION# ====================================================================================================================
; Description ...: This function is intended for safety checking and/or debugging.
; ===============================================================================================================================
Func _WimLib_VerifyWim(ByRef $pWIMStruct, $iVerifyFlag = 0)
    If $hWimLibDLL = 0 Then Return SetError(-1)

    Local $aResult = DllCall($hWimLibDLL, "int:cdecl", "wimlib_verify_wim", "ptr", $pWIMStruct, "int", $iVerifyFlag)
    Return SetError(@error, $aResult[0], "wimlib_verify_wim")
EndFunc   ;==>_WimLib_VerifyWim

And now, my test code:

#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6 -w 7
#AutoIt3Wrapper_UseX64=Y
#include-once
#include "WimLibUDF.au3"
Opt( "MustDeclareVars", 1 )

$bProgressBar = True

_WimLib_Startup()

_WimLib_Capture("Z:", "D:\WinRE in work!\WimLib\WimLib Test 2022.WimLib", 0, $WIMLIB_COMPRESSION_TYPE_LZMS, True, "", Null, 0, 0)
If @error Then MsgBox(262144 + 16, "Test", _WimLib_ErrorMessage(@error))

_WimLib_Shutdown()



; #FUNCTION# ====================================================================================================================
; Description ...: Captures an image from a directory path and stores it in an image file.
; ===============================================================================================================================
Func _WimLib_Capture($sSourceFolder, $sWimFile, $iWriteFlag = 0, $iCompressionType = $WIMLIB_COMPRESSION_TYPE_XPRESS, $bSolid = False, _
            $sName = "", $sConfigIni = Null, $iChunkSize = 0, $iCompressionLevel = 0)
    If $hWimLibDLL = 0 Then Return SetError(-1)

    Local $tWIMStruct = DllStructCreate("ptr")  ; Pointer storage for WIMStruct pointer
    Local $sResult, $aResult = DllCall($hWimLibDLL, "int:cdecl", "wimlib_create_new_wim", "int", $iCompressionType, "struct*", $tWIMStruct)
    _WimLib_ErrorHandling(@error, $aResult[0], "wimlib_create_new_wim")
    Local $pWIMStruct = DllStructGetData($tWIMStruct, 1) ; Get Wim structure pointer from storage

    $sResult = _WimLib_AddImage($pWIMStruct, $sSourceFolder, $sName, $sConfigIni, Default)
    _WimLib_ErrorHandling(@error, @extended, $sResult)

    $sResult = _WimLib_CompressionLevel($iCompressionType, $iCompressionLevel)
    _WimLib_ErrorHandling(@error, @extended, $sResult)

    If $bSolid = True Then
        $sResult = _WimLib_CompressionTypeSolid($pWIMStruct, $iCompressionType)
        _WimLib_ErrorHandling(@error, @extended, $sResult)

        $sResult = _WimLib_ChunkSizeSolid($pWIMStruct, $iChunkSize)
        _WimLib_ErrorHandling(@error, @extended, $sResult)
    Else
        $sResult = _WimLib_CompressionType($pWIMStruct, $iCompressionType)
        _WimLib_ErrorHandling(@error, @extended, $sResult)

        $sResult = _WimLib_ChunkSize($pWIMStruct, $iChunkSize)
        _WimLib_ErrorHandling(@error, @extended, $sResult)
    EndIf

    If FileExists($sWimFile) Then FileDelete($sWimFile)
    $aResult = DllCall($hWimLibDLL, "int:cdecl", "wimlib_write", "ptr", $pWIMStruct, "wstr", $sWimFile, "int", 1, "int", $iWriteFlag, "uint", 0)
    _WimLib_ErrorHandling(@error, $aResult[0], "wimlib_write")

    _WimLib_CompressionLevel($iCompressionType) ; Reset compression level to default value
EndFunc   ;==>_WimLib_Capture

Does someone can help to make the wimlib_add_image part to show messages? Thanks!

Jonathan

MadDogVachon · July 26

Hi everyone,

Just to mention that I stopped continuing the project. First, because something is not working properly. Once set with wimlib_create_new_wim, compression type, compression level and block size cannot be changed even if I use "working" code as described in the documentation. Secondly, I lack knowledge about dll and/or reading authors' documetation.

So, good luck for the one who wants to go further!

Jonathan

Backup Windows using libwim-15.dll

Recommended Posts

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

"ptr", $pWIMStruct

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Link to post

Share on other sites

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members