Вверх ↑
Ответов: 3889
Рейтинг: 362
#1: 2011-06-08 20:51:01 ЛС | профиль | цитата
[flood]Tad, -- del --
------------ Дoбавленo в 20.46:
Ай, прошу прощения, исправил
...И оптимизировал ещё чуток свой индийский код. Неудобный тачпад виной задержки.
[/flood]

Составление и сохранение списка окон, с классами, начинающимися на произвольную маску (в маске допустимы спец.символы *-любое количество символов, ?-один любой символ.) Сразу по окончании поиска список найденного сохраняется в list.txt в текущей рабочей папке программы. Если из схемы удалить связь WndClass, работа будет не с именами классов, а с заголовками окон.

Add(Memo,13153160,532,238)
{
Top=20
Width=679
Height=213
Align=5
FileName="list.txt"
}
Add(MainForm,3096712,224,21)
{
Width=687
Height=260
Caption="Пример использования StrMask"
}
Add(WinEnum,1475972,259,231)
{
Point(ClassName)
link(onFindWindow,14796026:doCompare,[])
link(onEndEnum,13153160:doSave,[(340,244)(340,279)])
}
Add(StrMask,14796026,462,231)
{
Mask="Afx*"
Point(doMask)
link(onTrue,13153160:doAdd,[])
link(Str,15905208:Var,[])
}
Add(LineBreak,16097346,266,280)
{
Caption="WndClass"
Type=1
link(Data,1475972:ClassName,[])
Primary=[15905208,196,-77]
}
Add(Edit,1344034,224,105)
{
Width=679
Align=2
Text="Afx*"
}
Add(DoData,7895275,224,182)
{
link(onEventData,12926947:In,[])
link(Data,1344034:Text,[])
}
Add(Hub,14949787,168,182)
{
link(onEvent1,7895275:doData,[])
link(onEvent2,1475972:doEnum,[(220,195)(220,237)])
}
Add(LineBreak,1931483,385,245)
{
Caption="ClsMask"
link(Out,14796026:doMask,[(451,251)(451,244)])
Primary=[12926947,-119,-63]
}
Add(Button,15231647,112,182)
{
Left=105
Top=230
Align=4
Caption="Найти и сохранить!"
link(onClick,14949787:doEvent1,[])
}
карма: 1

0