Вверх ↑
Ответов: 775
Рейтинг: 168
#1: 2023-07-08 15:50:19 ЛС | профиль | цитата
Stalevar писал(а):
Если в папке назначения запущена программа любая другая которую не нужно обновлять, ругается "Папка уже используется"

В таком виде не должно быть подобной проблемы.

Add(MainForm,12849244,112,77)
{
Width=412
Height=388
Color=16777215
}
Add(Button,7250514,112,140)
{
Left=170
Top=310
Width=70
Caption="Обновить"
link(onClick,901799:doSearch,[])
}
Add(Label,5387947,49,98)
{
Left=15
Top=20
Width=137
Height=17
Caption="Папка с новыми файлами"
}
Add(Label,11976163,49,126)
{
Left=15
Top=50
Width=79
Height=17
Caption="Рабочая папка"
}
Add(FileTools,11796644,490,126)
{
link(FileName,6061579:Value,[(496,187)(216,187)])
}
Add(FileSearch,901799,161,140)
{
link(onSearch,6061579:doValue,[])
link(Dir,9959767:Text,[])
}
Add(FilePartElm,15171211,266,140)
{
Point(Part)
link(onPart,16267119:doFindName,[])
}
Add(StrCat,7612324,427,133)
{
link(onStrCat,11796644:doCopy,[])
link(Str1,816859:Text,[])
link(Str2,15171211:Part,[(440,124)(419,124)(419,180)(272,180)])
}
Add(Edit,9959767,168,63)
{
Left=180
Top=15
Width=155
Text="D:\\1\\55\\"
}
Add(Edit,816859,427,63)
{
Left=180
Top=55
Width=155
Text="D:\\2\\55\\"
}
Add(EnumProcess,16267119,329,119)
{
Point(Name)
Point(doFindName)
Point(onFind)
Point(onNotFind)
Point(doTerminateApp)
Point(onTerminateApp)
link(onFind,16267119:doTerminateApp,[(368,132)(368,167)(319,167)(319,153)])
link(onNotFind,2862480:doEvent1,[])
link(onTerminateApp,2862480:doEvent2,[])
}
Add(Hub,2862480,385,133)
{
InCount=2
OutCount=1
link(onEvent1,7612324:doStrCat,[])
}
Add(Memory,6061579,210,140)
{
link(onData,15171211:doPart,[])
}

карма: 15

1
Голосовали:Stalevar