Вверх ↑
Ответов: 4621
Рейтинг: 746
#1: 2019-02-07 17:01:48 ЛС | профиль | цитата

Add(MainForm,91099,301,196)
{
Width=710
Height=422
link(onCreate,7639298:doConsoleExec,[])
}
Add(Memo,14210464,714,210)
{
Left=20
Top=50
Width=460
Height=330
ScrollBars=3
}
Add(Charset,11395080,637,210)
{
link(onCharset,14210464:doAdd,[])
}
Add(WinExec,7639298,581,196)
{
FileName="Diskpart.exe"
Point(doConsoleExec)
Point(onConsoleResult)
Point(doConsoleInput)
link(onConsoleResult,11395080:doCharset,[])
}
Add(ArrayEnum,16202321,441,294)
{
link(onItem,5785042:doStrCat,[(499,300)(499,223)])
link(Array,15792275:Array,[])
}
Add(Memo,15792275,427,245)
{
Left=505
Top=50
Width=135
Height=220
Font=[Lucida Console,8,0,0,204]
Strings=#9:list disk|
ScrollBars=3
ReadOnly=0
Point(Position)
Point(onShow)
}
Add(Button,14586320,357,294)
{
Left=250
Top=15
Width=170
link(onClick,16202321:doEnum,[])
}
Add(StrCat,5785042,518,217)
{
Str2="\r\n"
link(onStrCat,7639298:doConsoleInput,[])
}
Для отправки команд консольным программам нужно имитировать окончание команды (нажатие Enter в окне консоли) путем добавления перевода строки.
карма: 26

0