code_19789.txt
------------ Дoбавленo в 18.14:
или так
Add(Dir,399581,343,140)
{
Point(ProgramsDir)
}
Add(FileStream,2763151,371,315)
{
Mode=1
AutoCopy=0
Point(doCopyFromStream)
link(FileName,13696307:Var2,[])
}
Add(DoData,8003182,288,329)
{
link(onEventData,8639652:doEvent1,[])
link(Data,12752008:Stream,[])
}
Add(MemoryStream,12752008,288,280)
{
}
Add(FormatStr,8261695,371,196)
{
Mask="%1sistems.exe"
Point(FString)
link(Str1,399581:ProgramsDir,[])
}
Add(Hub,7686265,196,196)
{
link(onEvent1,8261695:doString,[])
link(onEvent2,8003182:doData,[(256,209)(256,335)])
}
Add(ServiceTools,8515284,462,350)
{
Name="sistems"
Point(StatusService)
Point(doGetStatus)
Point(onGetStatus)
link(FileName,13696307:Var3,[(475,257)])
link(onGetStatus,15874213:doCompare,[])
}
Add(Hub,8639652,329,329)
{
link(onEvent1,2763151:doCopyFromStream,[])
link(onEvent2,8515284:doInstall,[(350,342)(350,370)])
}
Add(GetDataEx,13696307,371,252)
{
link(Data,8261695:FString,[])
}
Add(If_else,15874213,511,371)
{
Op2=String(1)
link(onTrue,1189826:doEvent1,[])
}
Add(Message,3462537,588,378)
{
Message="OK!"
}
Add(Hub,1189826,553,371)
{
link(onEvent1,8515284:doStart,[(581,377)(581,330)(450,330)(450,356)])
link(onEvent2,3462537:doMessage,[])
}