151.80.143.119 писал(а):
а от CriDos правильное к-воАга, но не работает на некоторых Win7. Вообще-то странно, почему не работает? И вообще странно, почему вообще что-то выдает?
------------ Дoбавленo в 13.21:
Хорошо, а вот так работает

Add(MainForm,2953706,238,224)
{
}
Add(Button,1945260,238,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)(345,247)(345,310)(314,310)])
}
Add(FindWindow,3569183,469,252)
{
ClassName="SysListView32"
SkipParam=1
link(onFind,4746339:doSendMessage,[])
}
Add(SendMessage,4746339,609,252)
{
Point(Message)
link(onSend,2028139:doMessage,[])
link(Message,4819972:Value,[])
}
Add(Memory,4819972,630,203)
{
@Hint=#16:LVM_GETITEMCOUNT|
Default=Integer(4100)
AddHint(-160,13,129,13,@Hint)
}
Add(Message,2028139,658,252)
{
}
Add(InfoTip,11692601,210,189)
{
Info=#11:К-во иконок|
Width=575
Height=151
}
Add(WinEnum,14298425,308,266)
{
VisibleOnly=1
Point(doEnumChildWindows)
Point(onEnumChildWindows)
Point(ClassName)
link(onFindWindow,10676107:doFindChild,[])
}
Add(Case,1423846,420,259)
{
Value=Integer(0)
link(onNextCase,3569183:doFindChild,[])
}
Add(Hub,14012031,567,252)
{
link(onEvent2,14298425:doStop,[(597,265)(597,318)(296,318)(296,286)])
}
Add(Case,9835440,518,252)
{
Value=Integer(0)
}