Вверх ↑
Разработчик
Ответов: 26175
Рейтинг: 2128
#1: 2012-08-31 13:22:22 ЛС | профиль | цитата
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)
}

карма: 22

0