Вверх ↑
Ответов: 2125
Рейтинг: 159
#1: 2008-09-27 12:01:39 ЛС | профиль | цитата
Dilma писал(а):
В существующей реализации - никак.

Почему? Ведь вывод консоли сразу выдаётся, а не в конце выполнения:

Add(WinExec,1463711,259,105)
{
Param="-n 10 hiasm.com"
FileName="ping.exe"
Point(doConsoleExec)
Point(onConsoleResult)
link(onConsoleResult,2018669:doAdd,[])
}
Add(Button,2103334,182,119)
{
Left=5
Top=15
link(onClick,1463711:doConsoleExec,[])
}
Add(Memo,2018669,329,112)
{
Top=50
Width=410
Height=300
}
------------ Дoбавленo:

Сергей писал(а):
отослать строку после этого формируется следущая и опять отослать

Так что ли?

Add(WinExec,1463711,301,105)
{
FileName="cmd.exe"
Point(doConsoleExec)
Point(onConsoleResult)
Point(doConsoleInput)
link(onConsoleResult,2018669:doAdd,[])
}
Add(Button,2103334,224,119)
{
Left=5
Top=15
Width=105
Caption="Start cmd.exe"
link(onClick,1463711:doConsoleExec,[])
}
Add(Memo,2018669,371,112)
{
Top=50
Width=410
Height=300
ScrollBars=2
}
Add(Edit,7393070,189,168)
{
Left=5
Top=375
Width=395
Text="dir"
link(onEnter,8374977:doStrCat,[])
}
Add(Label,15270241,161,105)
{
Top=355
Width=88
Height=18
Caption="Command + Enter"
}
Add(StrCat,8374977,245,175)
{
Str2="
"
link(onStrCat,1463711:doConsoleInput,[(289,181)(289,132)])
}
карма: 1

0