Add(MainForm,9646971,14,119)
{
 Left=20
 Top=105
 Point(Close)
 link(onCreate,16054173:doString,[(114,160)(114,69)])
 link(Close,4600142:GetData,[])
}
Add(MemoryStream,10281635,126,91)
{
 Stream=[ZIP1000000078DA011000EFFFD1EEF5F0E0EDE5EDE8E520F4E0E9EBE076960DB9]
}
Add(DoData,14346753,126,142)
{
 link(onEventData,1549651:doCopyFromStream,[(208,148)(208,162)])
 link(Data,10281635:Stream,[])
}
Add(FileStream,1549651,259,142)
{
 Mode=1
 AutoCopy=0
 Point(doCopyFromStream)
 link(FileName,8716960:Var1,[(265,114)])
}
Add(Dir,11555756,168,7)
{
}
Add(FormatStr,16054173,182,63)
{
 DataCount=1
 Mask="%1file.txt"
 link(onFString,6723799:doValue,[])
 link(Str1,11555756:TempDir,[])
}
Add(Memory,6723799,231,63)
{
 link(onData,14346753:doData,[(273,69)(273,118)(116,118)(116,148)])
}
Add(GetDataEx,8716960,231,105)
{
 link(Data,6723799:Value,[(244,102)(237,102)])
}
Add(EventFromData,4600142,14,77)
{
 link(onEvent,453294:doDelete,[(110,83)(110,195)])
}
Add(FileTools,453294,175,175)
{
 link(FileName,8716960:Var2,[(181,147)(244,147)])
}
Add(Button,10273249,14,224)
{
 Left=95
 Top=100
 Width=215
 Caption="Запустить внедрённый файл"
 link(onClick,15844965:doShellExec,[(72,230)(72,237)])
}
Add(WinExec,15844965,91,224)
{
 link(FileName,8716960:Var3,[(97,114)])
}
Add(InfoTip,11737470,14,280)
{
 Info=#375:Как видно, внедрить файл можно кликнув два раза на объект, на котором нарисована стрелочка :) В окошке выбери "Открыть" и выбирай нужный файл. Я его уже внедрил - текстовый файл и сделал проект по принципу MMB. Программа этот файл распаковывает во временный катагол(папку Темп) и пр закрытии проги удаляет его. Можешь на файл запустить - то есть делать с ним нужные операции.|
 Width=449
 Height=74
}