; Homes32 
; http://www.autoitscript.com/forum/topic/127075-wimgapi-udf/
#include <wimgapi.au3>

Local $hWim, $hImage, $sPath, $sWimPath

$sWimPath = FileOpenDialog('Выбрать файл-образ', @WorkingDir, 'Образ (*.wim)', 3, 'install.wim')
If @error Then Exit

$sPath = FileSelectFolder('Выбрать папку, в которую монтировать', '', 3, @WorkingDir)
If @error Then Exit

$aResult = _WIM_Startup() ; Открывает wimgapi.dll
If @error Then Exit MsgBox(0, 'Сообщение', 'Ошибка открытия wimgapi.dll')

; Открывает существующий wim-файл
$hWim = _WIM_CreateFile($sWimPath, $WIM_GENERIC_READ, $WIM_OPEN_EXISTING, $WIM_FLAG_SHARE_WRITE, $WIM_COMPRESS_LZX)
If $hWim Then
	MsgBox(0, 'Сообщение', 'Дескриптор wim-файла $hWim = ' & $hWim)
Else
	MsgBox(0, 'Сообщение', 'Ошибка создания wim-файла')
	_Exit()
EndIf
; Монтирует образ
$iFlag = _WIM_MountImage($sPath, $sWimPath, 1)
If $iFlag Then
	MsgBox(0, 'Сообщение', 'Удачно смонтирован = ' & $iFlag)
Else
	MsgBox(0, 'Сообщение', 'Неудача _WIM_MountImage')
	_Exit()
EndIf
$iFlag = _WIM_UnMountImage($sPath, $sWimPath, 1)
If $iFlag Then
	MsgBox(0, 'Сообщение', 'Удачно демонтирован = ' & $iFlag)
Else
	MsgBox(0, 'Сообщение', 'Неудача _WIM_UnMountImage')
EndIf
_Exit()

Func _Exit()
	If $hImage Then _WIM_CloseHandle($hImage) ; Закрывает открытый дескриптор
	If $hWim Then _WIM_CloseHandle($hWim) ; Закрывает открытый дескриптор
	_WIM_Shutdown() ; Выгружает wimgapi.dll
	Exit
EndFunc