Add(MainForm,9702598,70,70)
{
Left=20
Top=100
Width=416
Height=283
BorderStyle=3
Point(onMouseDown)
}
Add(WinExec,3818768,112,266)
{
Point(onConsoleResult)
Point(doConsoleExec)
link(FileName,7898505:Text,[])
link(onConsoleResult,19019:doCharset,[(163,279)(163,279)])
}
Add(Edit,7898505,112,217)
{
Left=75
Top=60
Width=100
Text="ping 83.219.15.67"
}
Add(Button,6013662,49,280)
{
Left=15
Top=60
link(onClick,3818768:doConsoleExec,[(96,286)(96,286)])
}
Add(Memo,10316492,245,252)
{
Left=10
Top=95
Width=390
Height=145
Font=[Times New Roman,8,0,0,0]
}
Add(Charset,19019,175,273)
{
link(onCharset,10316492:doText,[])
}
[size=-2]------ Добавлено в 23:42
И если прописать имя компьютера или hiasm.hexshock.com, то пишет - При проверке связи не удалось обнаружить узел comp. Проверьте имя узла и повторите попытку
В выполнить проходит нормально
ping comp
ping hiasm.hexshock.com