#RequireAdmin
#AutoIt3Wrapper_Res_Comment=Скрипт для автоматической установки минимального набора ПО

#include <GUIConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <GUIConstantsEx.au3>
#include <ListBoxConstants.au3>
#include <EditConstants.au3>

#NoTrayIcon

Const $title= "ASI Script v0.2a"
$Window = GUICreate($title, 300, 300)

GUISetBkColor(0xE0FFFF)
GUICtrlCreatePic("1.jpg", 0, 0, 300, 250)

$OKButton = GUICtrlCreateButton("Запустить", 40, 250, 70)
$EXITButton = GUICtrlCreateButton("Закрыть", 190, 250, 70)
$BackButton = GUICtrlCreateButton("Назад", 115, 250, 70)
Local $FileMenu, $FileItem, $FileItem2
$files = "Files"

$font = "Comic Sans MS"
$FileMenu = GUICtrlCreateMenu("&Файл")
$FileItem = GUICtrlCreateMenuItem("Инструкция", $FileMenu)
$FileItem2 = GUICtrlCreateMenuItem("Выход", $FileMenu)
$FileMenu3 = GUICtrlCreateMenu("&Игры")
$FileItem4= GUICtrlCreateMenuItem("Марио",$FileMenu3)
$FileItem5= GUICtrlCreateMenuItem("Змейка",$FileMenu3)
$FileMenu2 = GUICtrlCreateMenu("&?")
$FileItem6 = GUICtrlCreateMenuItem("Changelog",$FileMenu2)
$FileItem3 = GUICtrlCreateMenuItem("О скрипте",$FileMenu2)

GUISetState(@SW_SHOW, $Window)

SoundSetWaveVolume(50)
SoundPlay(@WindowsDir & "\media\tada.wav", 1)
Local $iMsg

While 1  ;Используем бесконечный цикл While до тех пор пока не сработает ExitLoop
    $iMsg = GUIGetMsg()
    Switch $iMsg
        Case $OKButton
			Run ("ASI(No GUI).exe")
		Case $FileItem
			$sTextFile = $files & "\ReadMe.txt"
			Run ( "notepad.exe " & $sTextFile)

		Case $GUI_EVENT_CLOSE
            ExitLoop

		Case $FileItem2
			ExitLoop

		Case $FileItem3
			GUICtrlCreateEdit($title & @CRLF & "Данный скрипт разработан с целью автоматической установки необходимого ПО."& @CRLF & "Дата начала разработки: 21.08.14" &@CRLF & "Разработал: Русинов Р.С." , 10, 10, 280, 230, $ES_AUTOVSCROLL + $WS_VSCROLL + $ES_NOHIDESEL + $ES_WANTRETURN + $ES_READONLY)
		Case $EXITButton
            ExitLoop

		Case $BackButton
				GUICtrlCreatePic("1.jpg", 0, 0, 300, 250)

		Case $FileItem4
			Run($files & "\MARIO\Mario.exe")

		Case $FileItem5
			Run($files & "\snakeV1.0.exe")

		Case $FileItem6
			$change = $files & "\changelog.txt"
			Run ( "notepad.exe " & $change)

	EndSwitch

WEnd

Exit

Func _FileCopy($fromFile,$tofile)
    Local $FOF_RESPOND_YES = 16
    Local $FOF_SIMPLEPROGRESS = 256
    $winShell = ObjCreate("shell.application")
    $winShell.namespace($tofile).CopyHere($fromFile,$FOF_RESPOND_YES)
EndFunc


;Автор: Русинов Роман.
;Дата: 21.08.14