Вверх ↑
Ответов: 182
Рейтинг: 14
#1: 2023-07-05 16:40:21 ЛС | профиль | цитата
Всем привет.
Проверьте пожалуйста схему.
Есть две папки, в папке "D:\\1\\55\\" новые версии программ, в "D:\\2\\55\\" рабочая папка с программами для работы, их нужно обновить с закрытием их если они запущены.

Add(MainForm,12849244,28,35)
{
Width=641
Height=388
Color=16777215
}
Add(FileTools,13044546,532,112)
{
link(onEnd,16690951:doCompare,[])
link(FileName,1719112:Var3,[(538,82)])
link(NewFileName,2880956:Value,[(545,100)(446,100)(446,170)(258,170)])
}
Add(Button,7250514,63,105)
{
Left=160
Top=90
link(onClick,1008697:doEnum,[])
}
Add(Memory,2880956,252,126)
{
Default=String()
link(onData,16766553:doReplace,[])
}
Add(If_else,16690951,581,112)
{
Op2=Integer(1)
link(onTrue,16267119:doFindName,[])
}
Add(EnumProcess,16267119,658,91)
{
Point(Name)
Point(doFindName)
Point(onFind)
Point(onTerminateApp)
Point(onNotFind)
Point(onEndEnum)
link(Name,12866648:Value,[(671,82)(637,82)(637,189)(398,189)])
link(onFind,16267119:doKill,[(732,104)(732,66)(649,66)(649,111)])
link(onTerminateApp,12954076:doWork1,[(718,111)])
link(onNotFind,12954076:doWork2,[])
}
Add(Sleep,13846534,770,112)
{
Delay=5000
link(onSleep,13044546:doCopy,[(820,118)(820,44)(502,44)(502,125)])
}
Add(HubEx,12954076,714,112)
{
link(onEvent,13846534:doSleepMks,[])
}
Add(ArrayEnum,1008697,140,105)
{
onBreakEnable=0
link(onItem,11221229:doReplace,[(177,111)(177,132)])
link(Array,3698074:Array,[])
}
Add(StrList,3698074,126,49)
{
AddType=1
Strings=#0:|25:D:\\1\\55\\Программа1.exe|25:D:\\1\\55\\Программа2.exe|
Point(EndIdx)
}
Add(Replace,11221229,189,126)
{
SubStr="D:\\1\\55\\"
DestStr="D:\\2\\55\\"
link(onReplace,2880956:doValue,[])
link(Str,1719112:Var2,[])
}
Add(GetDataEx,1719112,189,77)
{
Angle=3
link(Data,1008697:Item,[(191,81)(181,81)(181,165)(146,165)])
}
Add(Replace,16766553,308,126)
{
SubStr="D:\\2\\55\\"
link(onReplace,12866648:doValue,[])
}
Add(Memory,12866648,392,126)
{
Default=String()
link(onData,13044546:doFileExists,[(478,132)(478,139)])
}

карма: 0

0