Add(MainForm,12849244,91,35)
{
Width=412
Height=388
Color=16777215
}
Add(Button,7250514,84,91)
{
Left=170
Top=310
Width=70
Caption="Обновить"
link(onClick,1008697:doEnum,[])
}
Add(EnumProcess,16267119,224,70)
{
Point(Name)
Point(doFindName)
Point(onFind)
Point(onTerminateApp)
Point(onNotFind)
Point(onEndEnum)
link(onFind,16267119:doKill,[(263,83)(263,62)(214,62)(214,90)])
}
Add(ArrayEnum,1008697,161,91)
{
onBreakEnable=0
link(onItem,16267119:doFindName,[])
link(onEndEnum,2851081:doCopy,[(214,104)(214,118)])
link(Array,6966429:Array,[])
}
Add(Edit,16750354,301,49)
{
Left=180
Top=15
Width=155
Text="D:\\1\\55\\"
}
Add(Edit,13710923,343,49)
{
Left=180
Top=55
Width=155
Text="D:\\2\\55\\"
}
Add(Label,5387947,14,21)
{
Left=15
Top=20
Width=137
Height=17
Caption="Папка с новыми файлами"
}
Add(Label,11976163,14,49)
{
Left=15
Top=50
Width=79
Height=17
Caption="Рабочая папка"
}
Add(ListBox,6966429,147,35)
{
Left=25
Top=95
Width=305
Height=185
Strings=#14:Программа1.exe|14:Программа2.exe|11:notepad.exe|0:|
}
Add(DirTools,2851081,301,112)
{
AllowUnDo=1
link(Source,16750354:Text,[])
link(Dest,13710923:Text,[(314,89)(349,89)])
}
FilesOnly - True - операция будет производиться только с файлами, если Source установлено в "*.*"
Text="*D:\\2\\55\\*" - так не работает