#sha
Add(BaloonToolTips,365303,553,252)
{
}
------------ Дoбавленo:
И еще хотелось бы как-то управлять временем показа подсказок или уничтожать их.. Может кто скинет кусок кода на Delphi, я его попытаюсь прикрутить... Должна быть API команда уничтожения подсказки, с сохранением иконки в трее.
------------ Дoбавленo:
Пока удалось кое-что - тока вирус замутить: (незлой)
#sha
Add(Timer,10099466,98,203)
{
Interval=100
link(onTimer,12550442:doEvent1,[])
}
Add(MainForm,2953706,21,105)
{
}
Add(BaloonToolTips,365303,252,210)
{
Title="Это я"
link(Text,5452568:Value,[(265,194)(258,194)])
}
Add(Hub,12550442,161,203)
{
OutCount=3
link(onEvent1,365303:doCreate,[(223,209)(223,216)])
link(onEvent2,365303:doShow,[(223,216)(223,230)])
}
Add(Memory,5452568,252,147)
{
Default=String(Hiasm is COOL !!!)
}
------------ Дoбавленo:
А вот уже более опасный вирус..
#sha
Add(MainForm,2953706,21,105)
{
Point(Handle)
Point(PHandle)
}
Add(BaloonToolTips,365303,252,210)
{
Title="Hiasm Forever!!!"
link(Handle,2953706:Handle,[(258,174)(27,174)])
link(Text,5452568:Value,[(265,194)(258,194)])
}
Add(Timer,10099466,98,203)
{
Interval=300
link(onTimer,12550442:doEvent1,[])
}
Add(Hub,12550442,161,203)
{
OutCount=3
link(onEvent1,365303:doCreate,[(223,209)(223,216)])
link(onEvent2,365303:doShow,[(223,216)(223,230)])
}
Add(Memory,5452568,252,126)
{
Default=String(Hiasm is COOL !!!)
}
Add(TrayIcon,79907,392,224)
{
FormHook=0
Text="Hiasm Forever!!!"
Icon=1
Point(doBalloon)
Point(doHeaderIcon)
Point(doHeader)
Point(doAddTrayIcon)
Point(doIcon)
Point(Text)
Point(Header)
Point(doHint)
Point(doBalloonTimeout)
link(onClick,79907:doShow,[(436,230)(436,218)(380,218)(380,230)])
}