------------ Дoбавленo в 17.46:
Реализовать получилось, но таким матюком, что аж самому стыдно и только в одну сторону...
Add(MainForm,1912298,49,168)
{
Width=665
Height=457
Caption="Пример использования WinEnum"
Point(Handle)
}
Add(WinEnum,1475972,280,182)
{
Point(GetActiveWindow)
link(onFindWindow,6933435:doEvent1,[])
}
Add(Button,5000268,189,476)
{
Left=18
Top=370
Width=135
Height=40
Caption="Начать перебор"
link(onClick,533024:doTimer,[])
}
Add(Button,5101839,168,175)
{
Left=15
Top=15
Width=190
Height=40
Caption="Список окон/приложений"
link(onClick,197951:doWork2,[])
}
Add(Hub,10753347,238,175)
{
link(onEvent1,5026834:doClear,[(264,181)(264,235)(431,235)(431,209)])
link(onEvent2,1475972:doEnum,[])
}
Add(Length,1721219,364,140)
{
}
Add(If_else,6667343,364,189)
{
Op2=Integer(0)
link(onFalse,5026834:doAdd,[])
link(Op1,1721219:Result,[])
}
Add(Hub,6933435,329,182)
{
link(onEvent1,1721219:doLength,[(352,188)(352,146)])
link(onEvent2,6667343:doCompare,[])
}
Add(HubEx,197951,210,175)
{
link(onEvent,10753347:doEvent1,[])
}
Add(WinEnum,6267344,343,476)
{
Point(GetActiveWindow)
link(onFindWindow,14629087:doEvent1,[(394,482)(394,426)])
link(onEndEnum,11769235:doEvent1,[])
}
Add(WinTools,2139516,567,497)
{
link(Handle,11698423:Value,[])
}
Add(Length,10583812,455,399)
{
}
Add(If_else,11100360,455,448)
{
Op2=Integer(0)
link(onFalse,11698423:doValue,[])
link(Op1,10583812:Result,[])
}
Add(Hub,14629087,399,420)
{
link(onEvent1,10583812:doLength,[(443,426)(443,405)])
link(onEvent2,6788547:doCompare,[(428,433)(428,447)(285,447)(285,545)])
}
Add(Hub,11769235,497,483)
{
link(onEvent1,2139516:doActive,[(543,489)(543,517)])
link(onEvent2,197951:doWork3,[(523,496)(523,365)(214,365)])
}
Add(Timer,533024,245,476)
{
Enable=1
link(onTimer,6267344:doEnum,[])
}
Add(Memory,11698423,567,455)
{
Point(Data)
link(Data,5345702:Var3,[(573,440)(551,440)(551,520)])
}
Add(If_else,13348897,343,539)
{
Op2=Integer(1)
link(onFalse,11100360:doCompare,[(415,552)(415,454)])
link(Op1,5345702:Var2,[])
link(Op2,6267344:GetActiveWindow,[])
}
Add(GetDataEx,5345702,343,515)
{
link(Data,6267344:Handle,[])
}
Add(If_else,6788547,294,539)
{
Type=5
Op2=String(Program Manager)
link(onTrue,13348897:doCompare,[])
}
Add(ListBox,5026834,455,196)
{
Left=15
Top=65
Width=535
Height=300
AddType=1
Point(String)
}
Add(InfoTip,16674942,140,119)
{
Info=#18:Отображение списка|
Width=393
Height=165
}
Add(InfoTip,13443059,175,378)
{
Info=#10:Смена окон|
Width=463
Height=242
}
В принципе, меня устроит и такой полувариант, но если кто подскажет как сделать "по людски", буду благодарен.