code_24612.txt
------------ Дoбавленo в 12.33:
То же, но с перехватом фокуса ввода
Add(MainForm,15784378,525,231)
{
Width=629
Height=435
Point(Handle)
Point(onKeyDown)
link(onCreate,12326210:doExec,[])
}
Add(FindWindow,16057048,399,343)
{
ClassName="Notepad"
SkipParam=1
link(onFind,14293607:doFindChild,[])
}
Add(FindWindow,14293607,462,336)
{
ClassName="Edit"
SkipParam=1
link(onFind,15884891:doSetParent,[])
}
Add(SetParent,15884891,518,336)
{
link(onSetParent,7127060:doSendMessage,[])
link(NewParent,15784378:Handle,[])
}
Add(WinExec,12326210,595,245)
{
Param="notepad.exe"
Mode=0
}
Add(Button,14716537,455,455)
{
Left=10
Top=340
Width=105
TabOrder=-1
Caption="Return Window"
link(onClick,10752929:doSetParent,[])
}
Add(SetParent,10752929,511,455)
{
link(onSetParent,15790927:doWork2,[])
link(Handle,14293607:Handle,[(517,411)(468,411)])
link(NewParent,12273507:Var2,[])
}
Add(GetDataEx,12273507,518,406)
{
link(Data,15884891:OldParent,[])
}
Add(WinTools,16016355,630,448)
{
link(Handle,12273507:Var3,[(636,411)])
}
Add(Button,10490309,308,343)
{
Left=10
Top=315
Width=105
TabOrder=-1
Caption="Capture Window"
Data=Integer(0)
link(onClick,7722551:doEvent1,[])
}
Add(ChanelToIndex,15790927,567,448)
{
link(onIndex,16016355:doVisible,[])
}
Add(Hub,7722551,350,343)
{
link(onEvent1,16057048:doFind,[])
link(onEvent2,15790927:doWork1,[(378,356)(378,454)])
}
Add(SendMessage,7127060,574,336)
{
Point(Message)
link(Handle,16057048:Handle,[(580,324)(458,324)(458,387)(405,387)])
link(Message,8699277:Value,[])
}
Add(Memory,8699277,595,287)
{
Default=Integer(7)
}