Add(MainForm,2953706,35,21) { link(onCreate,7377285:doEnum,[]) } Add(InlineCode,3128843,259,203) { WorkPoints=#1:h| EventPoints=#3:hon| DataPoints=#2:hw| Code=#15:unit HiAsmUnit;|0:|9:interface|0:|38:uses kol,Share,Debug,windows,messages;|0:|4:type|28: THiAsmClass = class(TDebug)|10: private|0:|9: public|17: hw:THI_Event;|18: hon:THI_Event;|0:|42: procedure h(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.h;|19:var dwResult:DWORD;|14: a:integer;|5:begin|101: a := SendMessageTimeout(ToIntegerEvent(hw),WM_NULL,0,0,SMTO_ABORTIFHUNG or SMTO_BLOCK,500,dwResult);|20: _hi_OnEvent(hon,a);|4:end;|0:|4:end.| link(hon,2953706:doCaption,[(304,209)(304,248)(23,248)(23,27)]) link(hw,12362578:Value,[]) } Add(Timer,13248344,210,203) { Interval=33 link(onTimer,3128843:h,[]) } Add(ListBox,14856301,182,35) { Left=5 Top=5 Width=380 Height=200 SelectAdd=0 link(onClick,6157611:doGetString,[(226,48)(226,104)(170,104)(170,160)]) } Add(StrList,6157611,182,112) { Point(doGetString) Point(onGetString) link(Str,7377285:Handle,[(188,90)(97,90)]) link(onGetString,12362578:doValue,[]) } Add(WinEnum,7377285,91,35) { link(onFindWindow,10847868:doEvent1,[]) } Add(Hub,10847868,140,35) { link(onEvent1,14856301:doAdd,[]) link(onEvent2,6157611:doAdd,[(168,48)(168,118)]) } Add(Memory,12362578,259,119) { }