CriDos писал(а):
версия ОС?Windows7 x86, сборка 7600
CriDos писал(а):
этот класс использует IEМожет быть, у меня этих классов много, и вот одному из них принадлежит SHELLDLL_DefView -> SysListView32
А IE у меня 9-я. Если я не ошибаюсь, то и у Tad-a тоже IE9
------------ Дoбавленo в 11.40:
Вот так у меня работает
Add(MainForm,2953706,189,147)
{
}
Add(Button,1945260,189,266)
{
Left=30
Top=75
Width=95
Height=25
link(onClick,14298425:doEnum,[])
}
Add(FindWindow,10676107,371,259)
{
ClassName="SHELLDLL_DefView"
SkipParam=1
link(onFind,1423846:doCase,[])
link(ParentHandle,14298425:Handle,[(377,247)(356,247)(356,317)(258,317)])
}
Add(FindWindow,3569183,483,252)
{
ClassName="SysListView32"
SkipParam=1
link(onFind,4746339:doSendMessage,[])
}
Add(SendMessage,4746339,532,252)
{
Point(Message)
link(onSend,2028139:doMessage,[])
link(Message,4819972:Value,[])
}
Add(Memory,4819972,553,203)
{
@Hint=#16:LVM_GETITEMCOUNT|
Default=Integer(4100)
AddHint(-160,13,129,13,@Hint)
}
Add(Message,2028139,581,252)
{
}
Add(InfoTip,11692601,154,189)
{
Info=#11:К-во иконок|
Width=498
Height=137
}
Add(WinEnum,14298425,252,266)
{
VisibleOnly=1
Point(doEnumChildWindows)
Point(onEnumChildWindows)
Point(ClassName)
link(onFindWindow,16293872:doCompare,[])
}
Add(If_else,16293872,315,266)
{
Op2=String(WorkerW)
link(onTrue,10676107:doFindChild,[])
link(Op1,14298425:ClassName,[(321,254)(293,254)(293,310)(265,310)])
}
Add(Case,1423846,427,259)
{
Value=Integer(0)
link(onNextCase,3569183:doFindChild,[])
}