Add(InlineCode,7230794,196,224)
{
 WorkPoints=#1:g|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|37:uses kol,Share,Debug,wininet,windows;|0:|44:const FLAG_ICC_FORCE_CONNECTION = $00000001;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|17:    //:THI_Event;|0:|42:    procedure g(var dt:TData; index:word);|0:|5: end;|0:|14:implementation|0:|24:procedure THiAsmClass.g;|14:var l:boolean;|5:begin|63: l := InternetCheckConnection(nil,FLAG_ICC_FORCE_CONNECTION,0);|31: msgbox(int2str(integer(l)),0);|17: //_hi_OnEvent();|4:end;|0:|4:end.|
}