Вверх ↑
Ответов: 49
Рейтинг: 10
#1: 2009-06-25 20:55:00 ЛС | профиль | цитата
Вообщем вот что у меня получилось, но результата которого хотел не добился. У KeyEvent есть желтая точка "handle" - определяет идентификатор окна для проведения эмуляции. Научился находить идентификатор, теперь KeyEvent знает идентификатор, а эмуляцию клавиши когда окно какого либо приложения не активно, не производит. Что предложите что бы даже не на активное окно производилась эмуляция ?
Make(delphi)
ver(4.02 build 179)
Add(MainForm,3666360,273,119)
{
Left=20
Top=105
Width=273
Height=133
Caption="Определение и эмуляция F клавиш"
BorderStyle=4
Position=1
}
Add(Edit,7280601,406,371)
{
Left=65
Top=5
Width=195
Text=""
}
Add(Edit,10241453,406,455)
{
Left=65
Top=55
Width=195
Enabled=1
Text=""
ReadOnly=0
link(Str,13379621:Handle,[])
}
Add(WinEnum,13379621,406,413)
{
VisibleOnly=1
link(onFindWindow,10241453:doText,[(450,419)(450,440)(394,440)(394,461)])
link(Caption,7280601:Text,[])
}
Add(Label,7381753,7,7)
{
Left=5
Top=10
Width=57
Height=17
Caption="Название:"
}
Add(Label,7446230,42,91)
{
Left=5
Top=60
Width=59
Height=17
Caption="Результат:"
}
Add(Button,279179,357,420)
{
Left=5
Top=30
Width=255
Caption="Найти индетификатор по названию"
link(onClick,13379621:doFind,[])
}
Add(KeyEvent,4605242,406,504)
{
link(Handle,10241453:Text,[])
link(Code,13150169:String,[(419,495)(468,495)])
}
Add(ComboBox,13150169,455,441)
{
Left=65
Top=80
Width=65
Height=21
Strings=#3:112|3:113|3:114|3:115|3:116|3:117|3:118|3:119|3:120|3:121|
ReadOnly=0
}
Add(Label,14262023,7,84)
{
Left=5
Top=85
Width=52
Height=17
Caption="Клавиша:"
}
Add(Button,2035512,322,504)
{
Left=135
Top=80
Caption="Начать"
link(onClick,13366820:doTimer,[])
}
Add(Button,8943876,322,539)
{
Left=195
Top=80
Width=65
Caption="Закончить"
link(onClick,13366820:doStop,[(359,545)(359,517)])
}
Add(Timer,13366820,364,504)
{
Interval=4000
Enable=1
link(onTimer,4605242:doPress,[])
}
карма: 0

0