- Сообщения
- 3,556
- Репутация
- 628
AutoIt: 3.3.12.0
Категория: Вспомогательные функции
Описание: Управление ресурсами файла
Для указания типа ресурса использовать APIResConstants.au3
Список функций:
_AddRes()
_GetRes()
_RemoveRes()
_AddResBMPICO()
Код/Пример:
Файл: ResManag
Источник: autoit-script.ru
Автор(ы): joiner
Категория: Вспомогательные функции
Описание: Управление ресурсами файла
Для указания типа ресурса использовать APIResConstants.au3
Список функций:
_AddRes()
_GetRes()
_RemoveRes()
_AddResBMPICO()
Код/Пример:
Код:
#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
Файл: ResManag
Источник: autoit-script.ru
Автор(ы): joiner