Вверх ↑
Этот топик читают: Гость
Ответов: 1376
Рейтинг: 197
#16: 2010-10-18 01:25:44 ЛС | профиль | цитата
[flood]Маленький пример применения WinInfo
code_21089.txt
и ещё чуток улучшенный пример

Add(MouseEvent,8184259,287,182)
{
Point(Handle)
}
Add(MainForm,8177897,231,350)
{
Width=116
Height=31
Visible=1
BorderStyle=0
WindowsState=2
Icon=[ZIP7E03000078DA63606004420101062029C190C1CCC020C6C0C0A001C440210605068838083830338C022470E5C37F20224931915A90156345242946D342D00D58D5D3CE7C52FD3BA8C0FFFF08FC1D883F03F143203EC0CEC0D0C00CCE3C281824069283E9010090F6BF01]
link(onCreate,11064796:doHide,[(271,370)(271,363)])
}
Add(Timer,15868502,231,294)
{
Interval=10
link(onTimer,16537597:doData,[])
}
Add(FormatStr,7138711,336,434)
{
DataCount=9
Mask="Handle: %1
Caption: %2
Class Name: %3
Text: %4
Size: %5 х %6
Context: %7
Process ID: %8
Control ID: %9"
Point(FString)
link(onFString,7107976:doEvent1,[(543,440)(543,279)])
link(Str1,13333246:Var1,[(342,339)(333,339)(333,265)])
link(Str2,8425171:Caption,[])
link(Str4,14292406:Var1,[(363,422)(461,422)])
link(Str5,8425171:Width,[(370,380)(356,380)])
link(Str6,8425171:Height,[(377,369)(363,369)])
link(Str7,8425171:Context,[(384,362)(370,362)])
link(Str8,8425171:ProcessID,[(391,355)(377,355)])
link(Str9,8425171:ControlID,[(398,348)(384,348)])
}
Add(Replace,5176355,483,364)
{
SubStr="obj_"
link(onReplace,7138711:doString,[(527,370)(527,405)(324,405)(324,440)])
link(Str,8425171:ClassName,[(489,336)(342,336)])
}
Add(WinInfo,8425171,336,294)
{
Point(Width)
Point(Height)
Point(Context)
Point(ProcessID)
Point(ControlID)
link(onWinInfo,15511225:doEvent1,[])
link(Handle,13333246:Var2,[])
}
Add(ChangeMon,16537597,287,294)
{
link(onData,8425171:doWinInfo,[])
link(Data,11526898:Point,[])
}
Add(GetDataEx,13333246,336,260)
{
link(Data,8184259:Handle,[(342,223)(307,223)])
}
Add(BaloonToolTips,3681978,735,294)
{
Title="Информация об окне"
Icon=1
link(Handle,10263536:Var3,[(741,265)])
link(Text,7138711:FString,[(748,264)(778,264)(778,478)(342,478)])
}
Add(Hub,6504384,679,294)
{
link(onEvent1,3681978:doCreate,[])
link(onEvent2,3681978:doShow,[(704,307)(704,314)])
}
Add(PointXY,11526898,287,238)
{
link(X,8184259:MouseX,[])
link(Y,8184259:MouseY,[])
}
Add(Timer,13342912,630,294)
{
@Hint=#48:Задержка перед появлением подсказки (от мигания)|
Interval=500
Enable=1
AutoStop=1
link(onTimer,6504384:doEvent1,[])
AddHint(-69,-70,167,26,@Hint)
}
Add(Hub,7107976,560,273)
{
OutCount=5
link(onEvent1,13342912:doStop,[(612,279)(612,307)])
link(onEvent2,743841:doStop,[(602,286)(602,356)])
link(onEvent3,319917:doWork1,[(721,293)])
link(onEvent4,13342912:doTimer,[])
link(onEvent5,743841:doTimer,[(591,307)(591,349)])
}
Add(Timer,743841,679,343)
{
@Hint=#18:Чтоб ненадоедал...|13:Висит 10 сек.|
Interval=10000
Enable=1
AutoStop=1
Point(onStop)
link(onStop,319917:doWork3,[(721,356)])
AddHint(-43,53,112,26,@Hint)
}
Add(HubEx,319917,717,301)
{
link(onEvent,3681978:doDestroy,[])
}
Add(GetDataEx,10263536,455,260)
{
Angle=3
link(Data,13333246:Var3,[])
}
Add(Hub,15511225,420,294)
{
link(onEvent1,14292406:doWork1,[])
link(onEvent2,5176355:doReplace,[(447,307)(447,370)])
}
Add(MultiElement,14292406,455,294)
{
@Hint=#17:Извлечение текста|
link(Data1,10263536:Var2,[])
}
BEGIN_SDK
Add(EditMulti,9897834,21,21)
{
WorkCount=1
DataCount=1
VarCount=1
Height=193
link(doWork1,16206345:doData,[(35,27)(35,97)])
link(Var1,2766036:Result,[(27,191)(272,191)])
}
Add(SendMessage,14145821,140,105)
{
Message=13
link(onSend,16305821:doGet,[(198,111)(198,153)])
link(Handle,9897834:Data1,[(146,63)(27,63)])
link(LParam,1164314:Memory,[(160,77)(258,77)(258,124)(237,124)])
}
Add(MemoryStream,1164314,217,84)
{
Point(Memory)
Point(doSize)
}
Add(DataToFile,16305821,217,140)
{
Type=6
link(onGet,2766036:doStrCat,[])
link(Stream,1164314:Stream,[])
}
Add(Hub,4610112,98,91)
{
OutCount=3
link(onEvent1,1164314:doClear,[])
link(onEvent2,1164314:doSize,[])
link(onEvent3,14145821:doSendMessage,[])
}
Add(StrCat,2766036,266,140)
{
Str1="Текст: "
Point(doClear)
}
Add(DoData,16206345,49,91)
{
Data=Integer(256)
link(onEventData,4610112:doEvent1,[])
}
END_SDK
Add(TrayIcon,11064796,287,350)
{
link(onClick,8177897:doClose,[(330,356)(330,390)(219,390)(219,377)])
}


[/flood]
карма: 1

1
файлы: 1code_21089.txt [4KB] [204]
Голосовали:ser_davkin
Ответов: 1535
Рейтинг: 176
#17: 2010-10-18 01:39:50 ЛС | профиль | цитата
foksov, а как его (WinInfo) можно применить в перетаскивании файлов? пример пожалуйста!
карма: 1
Не так страшна ошибка, как опасность её не заметить.

0
17
Сообщение
...
Прикрепленные файлы
(файлы не залиты)