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.| }