Вверх ↑
Ответов: 3889
Рейтинг: 362
#1: 2011-08-06 22:45:24 ЛС | профиль | цитата
bro, Вот, я Вам на скорую руку написал код, получающий значение текущего системного таймера (в InlineCode):

Add(MainForm,8086831,336,133)
{
Width=284
Height=172
Point(Handle)
}
Add(InlineCode,2961482,245,84)
{
VarPoints=#6:MyTime|
Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,Windows,mmsystem;|0:|4:type|28: THiAsmClass = class(TDebug)|9: public|44: procedure MyTime(var dt:TData; idx:word);|5: end;|0:|14:implementation|0:|29:procedure THiAsmClass.MyTime;|5:begin|28: dtInteger(dt,timeGetTime);|4:end;|0:|4:end.|
}
Add(DoData,9875333,245,133)
{
link(onEventData,8086831:doCaption,[])
link(Data,2961482:MyTime,[])
}
Add(MMTimer,5088309,133,133)
{
link(onTimer,9875333:doData,[])
}

Думаю, точнее вы уже не найдёте.
карма: 1

0