Add(MainForm,2953706,63,56)
{
 link(onCreate,11816952:ac,[])
}
Add(InlineCode,11816952,112,70)
{
 WorkPoints=#2:ac|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|37:uses kol,Share,Debug,wininet,windows;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|43:    procedure ac(var dt:TData; index:word);|5: end;|0:|14:implementation|0:|25:procedure THiAsmClass.ac;|28:var dwConnectionTypes:DWORD;|5:begin|49: InternetGetConnectedState(@dwConnectionTypes,0);|38: MsgBox(int2str(dwConnectionTypes),0);|72: {Ïðè ðàçíûõ âàðèàíòàõ ïîêäëþ÷åíèÿ (ëîêàëüíàÿ ñåòü, Èíòåðíåò èëè íè÷åãî)|25: Ïîêàçûâàåò ðàçíûå ÷èñëà}|4:end;|0:|4:end.|
}