#SingleInstance Force
#NoEnv
SetWorkingDir %A_ScriptDir%
ListLines Off
SetBatchLines -1

ScriptName = Script.ahk  ;	скрипт который будем компилировать
IncludeName = FileInstallInclude.ahk

  ;	File на примере - D:\Folder1\Folder2 после указываем | Dest
  ;	Dest - если `%A_Temp`%\MyFolder, то распакуется по пути  - %A_Temp%\MyFolder
  ;	Знаки процента надо экранировать
  ;	Dest - если пусто, то распакуется по такому же пути - D:\Folder1\Folder2
  ;	Вместо папки можно добавить файл
  
List = 
( 
%A_ScriptDir% | MyFolder
)
	
Loop, Parse, List, `n
{
	File := StrSplit(A_LoopField, "|", A_Space A_Tab)[1]
	Dest := StrSplit(A_LoopField, "|", A_Space A_Tab)[2] 
	isFolder := InStr(FileExist(File), "D") ? "\*.*" : ""
	Loop, %File%%isFolder%, , 1
	{
		If (Dest = "")
			Add := A_LoopFileLongPath
		Else
			Add := Dest . StrReplace(A_LoopFileLongPath, File, "", , 1) 
		SplitPath, Add, , Dir
		DirList0 .= Dir "`n"
		IncludeList .= "FileInstall`, " A_LoopFileLongPath "`, " Add "`, 1`n"
	}
}
Sort, DirList0, U`n
DirList0 := RegExReplace(DirList0,"sm`a)^(.+)\\.*\K^\1(\R|$)|^(.+)(\R|$)(?=.*^\3\\)")  ;	http://forum.script-coding.com/viewtopic.php?pid=113785#p113785
Loop, Parse, % Trim(DirList0, "`n"), `n
	DirList .= "FileCreateDir`, " A_LoopField "`n"
FileDelete, %IncludeName% 
FileAppend, % DirList . IncludeList, % IncludeName
MsgBox % DirList . IncludeList
RunWait Ahk2Exe.exe /in %ScriptName%
FileDelete, %IncludeName%
ExitApp
Escape:: ExitApp

#Include *i %A_ScriptDir%\FileInstallInclude.ahk

If !FileExist(A_ScriptDir "\My.ini")
    FileCreateShortcut, "%A_AHKPath%", %A_Desktop%\MyScript.lnk, "%A_ScriptDir%", "%A_ScriptFullPath%",, %A_ScriptDir%\resource\My.ico

SrcArch := A_ScriptDir "\SrcArch.zip"
SrcDir := A_ScriptDir "\" ; извлечечь в данную директорию
InsDir := A_ScriptDir "\SrcDir" ; директория с доп. файлами

If !FileExist(InsDir) {
	FileInstall SrcArch.zip, % SrcArch, 1
	UnZip(SrcArch, SrcDir)
	}
Return

UnZip(SrcArch, SrcDir) {
	psh := ComObjCreate("Shell.Application")
	psh.Namespace(SrcDir).CopyHere(psh.Namespace(SrcArch).items, 4|16)
}