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

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

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

$sWimPath = FileSaveDialog('Сохранить в wim-файл', @WorkingDir, 'Образ (*.wim)', 16, 'install.wim')
If @error Then Exit
If StringRight($sWimPath, 4) <> '.wim' Then
	$sWimPath &= '.wim'
	If FileExists($sWimPath) And MsgBox(4, 'Сообщение', $sWimPath & ' уже существует.' & @LF & 'Заменить?') = 7 Then Exit
EndIf

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

; Создаёт новый wim-файл
$hWim = _WIM_CreateFile($sWimPath, $WIM_GENERIC_READ + $WIM_GENERIC_WRITE, $WIM_CREATE_ALWAYS, $WIM_FLAG_SHARE_WRITE, $WIM_COMPRESS_LZX)
If $hWim Then
	MsgBox(0, 'Сообщение', 'Дескриптор wim-файла $hWim = ' & $hWim)
Else
	MsgBox(0, 'Сообщение', 'Ошибка создания wim-файла')
	_Exit()
EndIf
; Добавляет файлы указанного каталога в образ
$hImage = _WIM_CaptureImage($hWim, $sPath, $WIM_FLAG_VERIFY)
If $hImage Then
	MsgBox(0, 'Сообщение', 'Дескриптор образа $hImage = ' & $hImage)
Else
	MsgBox(0, 'Сообщение', 'Ошибка создания образа')
EndIf
_Exit()

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