RAWY писал(а):
можно пример работы с cmd в exec?Add(MainForm,2953706,126,91)
{
link(onCreate,10434332:doConsoleExec,[(263,111)(263,125)])
}
Add(Memo,11459866,126,133)
{
Left=5
Top=5
Width=305
Strings=#14:ping 127.0.0.1|26:msg console "test message"|
ScrollBars=2
}
Add(Memo,9159788,511,112)
{
Left=10
Top=90
Width=300
Height=165
ScrollBars=2
Point(doSetSelStart)
Point(doEnsureVisible)
}
Add(Button,16370985,84,203)
{
Left=320
Top=10
TabOrder=-1
Caption="Start"
link(onClick,4828633:doEnum,[])
}
Add(WinExec,10434332,273,105)
{
FileName="cmd.exe"
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,9858150:doCharset,[])
}
Add(Charset,9858150,329,112)
{
link(onCharset,10319002:doEvent1,[])
}
Add(ArrayEnum,4828633,140,203)
{
link(onItem,4624052:doStrCat,[])
link(Array,11459866:Array,[])
}
Add(StrCat,4624052,189,203)
{
Str2="\13\10"
link(onStrCat,10434332:doConsoleInput,[(228,209)(228,132)])
}
Add(Hub,10319002,385,112)
{
OutCount=3
link(onEvent1,9159788:doAdd,[])
link(onEvent2,11948446:doData,[])
link(onEvent3,9159788:doEnsureVisible,[(424,132)(424,167)])
}
Add(DoData,11948446,448,119)
{
Data=String(10000)
link(onEventData,9159788:doSetSelStart,[(501,125)(501,160)])
}
Можно одной строкой
Add(MainForm,2953706,175,105)
{
link(onCreate,10434332:doConsoleExec,[])
}
Add(Memo,9159788,511,112)
{
Left=10
Top=35
Width=365
Height=220
ScrollBars=2
Point(doSetSelStart)
Point(doEnsureVisible)
}
Add(Button,16370985,119,203)
{
Left=320
Top=10
TabOrder=-1
Caption="Start"
link(onClick,4624052:doStrCat,[])
}
Add(WinExec,10434332,273,105)
{
FileName="cmd.exe"
Point(doConsoleExec)
Point(doConsoleInput)
Point(onConsoleResult)
Point(onConsoleError)
link(onConsoleResult,9858150:doCharset,[])
}
Add(Charset,9858150,329,112)
{
link(onCharset,10319002:doEvent1,[])
}
Add(Hub,10319002,385,112)
{
OutCount=3
link(onEvent1,9159788:doAdd,[])
link(onEvent2,11948446:doData,[])
link(onEvent3,9159788:doEnsureVisible,[(424,132)(424,167)])
}
Add(DoData,11948446,448,119)
{
Data=String(10000)
link(onEventData,9159788:doSetSelStart,[(501,125)(501,160)])
}
Add(StrCat,4624052,175,203)
{
Str2="\13\10"
link(onStrCat,10434332:doConsoleInput,[(228,209)(228,132)])
link(Str1,6392175:Text,[])
}
Add(Edit,6392175,175,154)
{
Left=5
Top=10
Width=305
Text="ping 127.0.0.1 && msg console "test message""
}
Почему msg, а потому, что net send в новых версиях ОС не поддерживается -- http://ab57.ru/cmdlist/msg.html