Управление ресурсами файла

#include <GUIConstantsEx.au3>
#include <UDF\ResManag.au3>
$Form1 = GUICreate("Form1", 300, 150, 192, 124)
$Button1 = GUICtrlCreateButton("AddRes\Remove", 110, 50, 100, 25)
$Button2 = GUICtrlCreateButton("GetRes", 110, 100, 75, 25)
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Button1
			$pf = FileOpenDialog('', '', '(*.exe)')
			If Not @error Then
				;_AddRes($pf, 'b.png', 10, 'logo'); добавляет файл в RCDATA
				;_AddResBMPICO($pf, 'm.ico', 3, 'm', 0, 2057) ;заменяет иконки файла начиная с первой в Icon Entry
				;_AddResBMPICO($pf, 'v.ico', 3, 'v', 6, 2057)
				;_AddResBMPICO($pf, 'A.bmp', 2, 'A')
				_RemoveRes($pf,3,1) ;удаляет первую позицию ресурса файла Icon Entry
			EndIf
		Case $Button2
			$pfget = FileOpenDialog('', '', '(*.exe)')
			If Not @error Then
				$hmod = _WinAPI_LoadLibraryEx($pfget)
				$resbyte = _GetRes($hmod, 10, 'logo')
				_WinAPI_FreeLibrary($hmod)
				$nf = FileOpen(@ScriptDir & '\New.png', 18)
				FileWrite($nf, $resbyte)
				FileClose($nf)
			EndIf
	EndSwitch
WEnd