code_29739.txt
------------ Дoбавленo в 12.08:
А так "совсем Сразу"
Add(WinExec,16110166,399,98)
{
FileName="cmd.exe"
}
Add(MainForm,7106621,217,105)
{
}
Add(StrCat,8573889,343,105)
{
Str1="/c ping "
link(onStrCat,16110166:doShellExec,[])
}
Add(ListBox,15706140,280,98)
{
Left=20
Top=40
Width=80
Strings=#9:google.ru|5:ya.ru|9:yandex.ru|
DataType=1
link(onClick,1458909:doWork2,[])
}
Add(ComboBox,871350,280,154)
{
Left=20
Top=140
Width=80
Height=21
Strings=#9:google.ru|5:ya.ru|9:yandex.ru|
Text=""
DataType=1
link(onClick,1458909:doWork3,[(326,167)])
}
Add(HubEx,1458909,322,105)
{
link(onEvent,8573889:doStrCat,[])
}