Вверх ↑
Ответов: 700
Рейтинг: 145
#1: 2022-01-24 12:21:59 ЛС | профиль | цитата
MBO, Можно пойти совсем другим путём.
Схема будет работать только в Windows10 с компилятором delphi.
Для вставки символа нажмите кнопку - "Insert Emoji"

Add(MainForm,12346820,224,98)
{
Width=277
Height=119
Point(Handle)
Point(onKeyUp)
Point(doSendToBack)
link(onCreate,756613:doExec,[])
}
Add(KeyEvent,9798208,455,238)
{
Code=91
}
Add(KeyEvent,11056287,455,280)
{
Code=186
}
Add(WinExec,756613,280,112)
{
FileName="write"
link(onExec,7670311:doDeferredEvent,[])
}
Add(FindWindow,12533519,392,112)
{
ClassName="WordPadClass"
SkipParam=1
link(onFind,14986915:doFindChild,[])
}
Add(FindWindow,14986915,455,105)
{
ClassName="RichEdit50W"
SkipParam=1
}
Add(SendMessage,16672478,455,196)
{
Point(Message)
link(Handle,14986915:Handle,[])
link(Message,5203142:Value,[])
}
Add(Memory,5203142,476,147)
{
Default=Integer(7)
}
Add(DeferredEvent,7670311,336,112)
{
Delay=500
link(onDeferredEvent,12533519:doFind,[])
}
Add(Hub,5860563,357,231)
{
OutCount=5
link(onEvent1,16016355:doActive,[(382,237)(382,181)])
link(onEvent2,16672478:doSendMessage,[(389,244)(389,202)])
link(onEvent3,9798208:doPressDown,[])
link(onEvent4,11056287:doPress,[(382,258)(382,286)])
link(onEvent5,9798208:doPressUp,[(389,265)(389,258)])
}
Add(WinTools,16016355,392,161)
{
link(Handle,12533519:Handle,[])
}
Add(Button,9680075,308,231)
{
Left=75
Top=25
Width=80
Caption="Insert Emoji"
link(onClick,5860563:doEvent1,[])
}

карма: 15

0