Валерий писал(а):
А не проще найти окно "Пуск"?Как-то, вот так. Пример показывает нажатие клавиши Enter на Меню Пуск, и не важно, как оно будет называться
Add(MainForm,2953706,84,112)
{
}
Add(FindWindow,15534367,182,154)
{
ClassName="Button"
SkipParam=1
Point(ChildHandle)
link(onFind,14145821:doSendMessage,[])
}
Add(FindWindow,4511449,133,161)
{
ClassName="Shell_TrayWnd"
SkipParam=1
link(onFind,15534367:doFindChild,[])
}
Add(Button,12945645,77,168)
{
Left=30
Top=20
Width=110
Caption="Вход в Меню Пуск"
link(onClick,4511449:doFindChild,[])
}
Add(SendMessage,14145821,231,154)
{
Point(Message)
link(WParam,12300489:Var,[])
link(Message,3945192:Var,[])
}
Add(GlobalVar,3945192,252,105)
{
Name="WM_KEYDOWN"
Data=Integer(256)
}
Add(GlobalVar,12300489,238,126)
{
Name="VK_RETURN"
Data=Integer(13)
}
А вот иммитация нажатия ЛКМ на Меню Пуск
Add(MainForm,2953706,77,112)
{
}
Add(FindWindow,15534367,182,154)
{
ClassName="Button"
SkipParam=1
Point(ChildHandle)
link(onFind,14145821:doSendMessage,[])
}
Add(FindWindow,4511449,133,161)
{
ClassName="Shell_TrayWnd"
SkipParam=1
link(onFind,15534367:doFindChild,[])
}
Add(Button,12945645,77,168)
{
Left=30
Top=20
Width=110
Caption="Вход в Меню Пуск"
link(onClick,4511449:doFindChild,[])
}
Add(SendMessage,14145821,231,154)
{
Point(Message)
link(Message,3945192:Var,[])
}
Add(GlobalVar,3945192,252,119)
{
Name="WM_LBUTTONDOWN"
Data=Integer(513)
}
Поиск
Друзья
Администрация