Вверх ↑
Разработчик
Ответов: 26068
Рейтинг: 2121
#1: 2017-04-24 18:06:51 ЛС | профиль | цитата
Dimka писал(а):
но нужно чтоб программа нашла ИД сама, без мышки...

Для компонента SetParent искать предыдущего родителя совсем не надо, он сохраняет Handlе предыдущего родителя, и его можно получить на точке OldParent.

Схема

Add(MainForm,3426258,301,294)
{
Width=500
Height=600
Point(Handle)
}
Add(WinExec,7740231,266,147)
{
FileName="notepad.exe"
Point(ProcessID)
}
Add(Button,5465219,203,147)
{
Width=220
Height=40
Font=[MS Sans Serif,12,1,0,1]
Caption="ЗАПУСТИТЬ БЛОКНОТ"
link(onClick,7740231:doExec,[])
}
Add(Button,5364659,119,231)
{
Top=50
Width=220
Height=40
Font=[MS Sans Serif,12,1,0,1]
Caption="ПОИСК ОКНА"
link(onClick,15887338:doFind,[])
}
Add(SetParent,2960829,266,399)
{
Point(ParentHandle)
link(onSetParent,3909455:doEvent1,[])
link(Handle,11255131:Var2,[])
link(NewParent,3426258:Handle,[(279,345)(307,345)])
}
Add(Label,7105723,392,231)
{
Left=240
Top=60
Width=200
Height=20
Font=[MS Sans Serif,10,1,0,1]
Caption="ИД ОКНА"
AutoSize=1
}
Add(FindWindow,15887338,189,231)
{
ClassName="notepad"
SkipParam=1
link(onFind,1896593:doValue,[])
}
Add(StrCat,11001252,329,231)
{
Str1="ИД ОКНА - "
link(onStrCat,7105723:doText,[])
link(Str2,15887338:Handle,[(342,219)(237,219)(237,275)(195,275)])
}
Add(Button,13227139,196,399)
{
Top=100
Width=220
Height=40
Font=[MS Sans Serif,12,1,0,1]
Caption="ЗАХВАТ ОКНА"
link(onClick,2960829:doSetParent,[])
}
Add(Memory,1896593,266,231)
{
link(onData,11001252:doStrCat,[])
}
Add(PosWindow,12362078,364,399)
{
link(Handle,8785889:Var2,[])
}
Add(Hub,3909455,322,399)
{
OutCount=4
link(onEvent1,12362078:doLeft,[])
link(onEvent2,12362078:doTop,[])
link(onEvent3,11821619:doWidth,[])
link(onEvent4,11821619:doHeight,[])
}
Add(SizeWindow,11821619,427,413)
{
Width=400
Height=500
link(Handle,8785889:Var3,[(433,369)])
}
Add(GetDataEx,11255131,266,364)
{
link(Data,1896593:Value,[])
}
Add(GetDataEx,8785889,364,364)
{
Angle=3
link(Data,11255131:Var3,[])
}
Add(Button,5216612,196,455)
{
Top=150
Width=340
Height=40
Font=[MS Sans Serif,12,1,0,1]
Caption="КАК ВЫГРУЗИТЬ ОКНО ОБРАТНО ??"
link(onClick,3540648:doSetParent,[])
}
Add(SetParent,3540648,259,455)
{
Point(ParentHandle)
link(Handle,11255131:Var1,[(265,446)(188,446)(188,369)])
link(NewParent,2960829:OldParent,[])
}


По схеме -- искать окно лучше всего по классу, а не по заголовку. Для блокнота этот класс Notepad
карма: 22

0
Редактировалось 2 раз(а), последний 2017-04-24 18:09:58