Add(Console,2312369,161,301)
{
 Point(CmdLine)
 link(onStart,13502072:doEvent1,[])
}
Add(Events,9665279,252,378)
{
 Name="Event1"
 link(onCreate,1546022:doWait,[])
}
Add(WaitObject,1546022,294,378)
{
 link(ObjHandle,9665279:ObjHandle,[(300,366)(290,366)(290,422)(258,422)])
}
Add(Hub,13502072,210,301)
{
 link(onEvent1,9647903:doEnum,[])
 link(onEvent2,9665279:doCreate,[(236,314)(236,384)])
}
Add(PointHint,590750,175,392)
{
 Info=#7:doClose|
 Height=18
 link(Event,9665279:doSet,[(242,401)(242,391)])
}
Add(Cryptography,11345943,546,385)
{
 link(onCrypt,7034092:doEvent1,[])
 link(Key,11699257:Value,[])
}
Add(Application,12335936,238,259)
{
}
Add(ArrayEnum,9647903,245,301)
{
 link(onItem,10619532:doEvent,[])
 link(Array,12335936:Params,[])
}
Add(IndexToChanel,10619532,287,301)
{
 Point(Index)
 Point(Data)
 link(onEvent1,11699257:doValue,[(436,307)(436,349)])
 link(onEvent2,4537890:doValue,[])
 link(Index,9647903:Index,[(293,289)(275,289)(275,345)(258,345)])
 link(Data,9647903:Item,[(300,289)(276,289)(276,345)(251,345)])
}
Add(FileTools,15440986,385,287)
{
 link(onEnd,12304656:doCase,[])
 link(FileName,11378470:Var1,[(391,275)(379,275)])
}
Add(Memory,4537890,343,308)
{
 link(onData,15440986:doFileExists,[])
}
Add(Case,12304656,427,287)
{
 Value=Integer(1)
 link(onNextCase,10062348:doMessage,[(471,293)(471,265)])
 link(onTrue,8157222:doLoad,[(471,300)(471,342)])
}
Add(GetDataEx,11378470,373,341)
{
 Angle=3
 link(Data,4537890:Value,[(349,346)])
}
Add(Message,10062348,476,259)
{
 Message="Файл не найден!"
 Icon=1
 link(Caption,14881584:Var3,[(489,247)(445,247)(445,356)])
}
Add(Hub,7034092,588,385)
{
 link(onEvent2,11895964:doAdd,[])
}
Add(GetDataEx,14881584,392,351)
{
 Angle=3
 link(Data,11378470:Var2,[(379,356)])
}
Add(StrList,11895964,616,392)
{
 link(onChange,11895964:doSave,[(660,398)(660,416)(604,416)(604,433)])
 link(FileName,14881584:Var1,[(629,331)(398,331)])
}
Add(StrList,8157222,483,308)
{
 link(onChange,11956257:doEnum,[(526,314)(526,360)(464,360)(464,391)])
 link(FileName,11378470:Var3,[(496,296)(439,296)(439,346)])
}
Add(ArrayEnum,11956257,469,385)
{
 link(onItem,13053483:doEvent1,[])
 link(Array,8157222:Array,[(475,369)(503,369)])
}
Add(Hub,13053483,511,385)
{
 OutCount=3
 link(onEvent1,11345943:doCrypt,[])
}
Add(Memory,11699257,553,343)
{
}

function GetEnvironmentVariable(lpName: PChar; lpBuffer: PChar;
nSize: DWORD): DWORD;

Функция извлекает значение переменной среды окружения текущего процесса.

Параметры:
lpName: Строка содержащая переменную среды.
lpBuffer:Строка получающая значение переменной среды. 
nSize: Размер в символах строки получающей значение переменной среды Sizeof(lpBuffer).

Возвращаемые значения
Если функция успешна, то возвращаемая величина это число символов в строке указанном параметром lpBuffer, не включая завершающего символа.
Если переменная среды не обнаружена, то возвращаемое значение - 0.
Если размер буфера строки недостаточен, то возвращаемая величина - требуемый размер для буфера

Функция GetCommandLine, которая извлекает командную строку для текущего процесса