Вверх ↑
Разработчик
Ответов: 26214
Рейтинг: 2138
#1: 2008-07-21 16:22:31 ЛС | профиль | цитата
Конкретно по обновлению десктопа, то вот так самое простое


Add(MainForm,10921675,196,84)
{
Left=20
Top=105
}
Add(Button,16100696,196,119)
{
Left=170
Top=155
link(onClick,13455098:Refresh,[])
}
Add(InlineCode,13455098,266,119)
{
WorkPoints=#7:Refresh|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses Windows,Messages,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|53: procedure Refresh(var _Data:TData; Index:word);|5: end;|0:|14:implementation|0:|30:procedure THiAsmClass.Refresh;|5:begin|32: InvalidateRect(0, nil, True);|4:end;|0:|4:end.|
}


Конкретно по передаче твоего сообщения


Add(MainForm,10921675,133,70)
{
Left=20
Top=105
}
Add(Button,16100696,133,112)
{
Left=170
Top=155
link(onClick,13950946:doEvent1,[])
}
Add(FindWindow,3434118,294,119)
{
ClassName="Progman"
Caption="Program Manager"
link(onFind,7541806:doSendMessage,[])
}
Add(SendMessage,7541806,343,119)
{
Message=8
link(WParam,12850298:Value,[])
link(LParam,1237524:Value,[(363,100)(405,100)])
}
Add(Memory,12850298,350,49)
{
}
Add(Memory,1237524,399,49)
{
Default=Integer(0)
}
Add(Convertor,10627637,294,49)
{
Mode=5
link(onResult,12850298:doValue,[])
}
Add(Hub,13950946,189,112)
{
link(onEvent1,13017407:doData,[(233,118)(233,55)])
link(onEvent2,3434118:doFind,[])
}
Add(DoData,13017407,245,49)
{
Data=String(A065)
link(onEventData,10627637:doConvert,[])
}

карма: 22

1
Голосовали:juk