Add(MainForm,2953706,77,322)
{
 link(onCreate,11968823:doRead,[])
}
Add(InlineCode,11968823,140,336)
{
 @Color=11141120
 WorkPoints=#6:doRead|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|29:uses Windows,kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|0:|10:   private|0:|9:   public|23:     Adress: THI_Event;|51:     procedure doRead(var _Data:TData; Index:word);|5: end;|0:|0:|0:|14:implementation|0:|0:|0:|0:|29:procedure THiAsmClass.doRead;|0:|3:var|20:  Context: TContext;|32:  ProcInfo: TProcessInformation;|26:  StartInfo: TStartupInfo;|0:|5:begin|46:  ZeroMemory(@StartInfo, SizeOf(StartupInfo));|41:  ZeroMemory(@Context, SizeOf(TContext));|123:  CreateProcess(nil, PChar(trim('Projectx64.exe')), nil, nil, False, NORMAL_PRIORITY_CLASS, nil, nil, StartInfo, ProcInfo);|0:|39:  Context.ContextFlags := CONTEXT_FULL;|46:  GetThreadContext(ProcInfo.hThread, Context);|22:  _debug(Context.Rbx);|4:end;|0:|0:|4:end.|
}