Немного недоработанный скрипт!)))Здесь есть над чем еще работать!Проблема в том,что сгенерированная программа нормально не выключается.Исправление данного бага на самом деле является хорошим заданием по программированию.На данный момент у меня нет приемлемого решения этой задачи!

#include <GUIConstantsEx.au3>
#include <FileConstants.au3>
#include <GuiListBox.au3>

Local $hGUI = GUICreate("Список изображений", 400, 400)

Local $addimage = GUICtrlCreateButton("Добавить изображение", 0, 0, 155, 25)
Local $Generate = GUICtrlCreateButton("Сгенерировать базовый скрипт",150, 0,170, 25)
Local $idMylab_1 = GUICtrlCreateLabel("", 10,160, 221, 25)
Local $idMylab_2 = GUICtrlCreateLabel("Задержка избражения", 10,60, 221, 25)
Local $idInput = GUICtrlCreateInput("100", 10, 105, 300, 20)
Local $image_path = ""
GUISetState(@SW_SHOW, $hGUI)

While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
Case $addimage
Local $sFileOpenDialog = FileOpenDialog("Файлы",@Scriptdir, "All (*.*)", $FD_FILEMUSTEXIST)
msgbox(0,"",$sFileOpenDialog)
Local $hFileOpen = FileOpen("files.txt", $FO_APPEND)
FileWriteLine($hFileOpen,"draw_image("&'"'&$sFileOpenDialog &'"'&")")
FileWriteLine($hFileOpen,"Sleep("& GUICtrlRead($idInput) &")")
GUICtrlSetData($idMylab_1,$sFileOpenDialog)

Case $Generate

Local $code = "#include <GUIConstantsEx.au3> " &@LF  & _
"#include <GDIPlus.au3> "  &@LF & _
"#include <WinAPIGdi.au3> "  &@LF & _
"#include <Array.au3> "  & @LF & _
'Local $hGUI = GUICreate("Кадр за кадром", 1000, 700) '  &@LF & _
'GUISetState(@SW_SHOW, $hGUI) '   &@LF & _
"While 1 "   &@LF& _
";здесь размещается код отрисовки изображений "  &@LF& _
"Switch GUIGetMsg() "   &@LF & _
"Case $GUI_EVENT_CLOSE "    &@LF& _
"Exitloop" &@LF& _
"EndSwitch "  &@LF & _
"WEnd "   &@LF & _
"func draw_image($sFileName) "   &@LF & _
"_GDIPlus_Startup() "  &@LF & _
"Local $hImage = _GDIPlus_ImageLoadFromFile($sFileName) "   &@LF & _
"Local $hGraphic = _GDIPlus_GraphicsCreateFromHWND($hGUI) "  &@LF & _
"_GDIPlus_GraphicsDrawImage($hGraphic, $hImage, 0, 0) "  &@LF & _
"_GDIPlus_Shutdown() "  &@LF & _
"EndFunc " 
Local $hFileOpen = FileOpen("script.au3", $FO_APPEND)
FileWriteLine($hFileOpen,$code)
EndSwitch
WEnd