Вверх ↑
Этот топик читают: Гость
Ответов: 286
Рейтинг: 5
#1: 2019-02-07 12:38:03 ЛС | профиль | цитата
Добрый день всем.Подскажите почему не передаются параметры запускаDiskpart.Запускаю от администратора

Add(MainForm,2953706,266,84)
{
Width=710
Height=422
link(onCreate,14704103:doEvent1,[])
}
Add(Memo,14210464,532,168)
{
Left=20
Top=10
Width=640
Height=370
ScrollBars=3
}
Add(Charset,11395080,455,168)
{
link(onCharset,14210464:doAdd,[])
}
Add(WinExec,7639298,399,154)
{
FileName="Diskpart.exe"
Param="list disk"
Point(doConsoleExec)
Point(onConsoleResult)
link(Params,16202321:Item,[])
link(onConsoleResult,11395080:doCharset,[])
}
Add(Hub,14704103,329,98)
{
link(onEvent1,16202321:doEnum,[(375,104)(375,111)])
link(onEvent2,7639298:doConsoleExec,[(375,111)(375,174)])
}
Add(ArrayEnum,16202321,406,105)
{
link(Array,15792275:Array,[])
}
Add(Memo,15792275,392,56)
{
Left=675
Top=40
Width=75
Height=220
Font=[Lucida Console,8,0,0,204]
Strings=#9:List disk|
ScrollBars=3
ReadOnly=0
Point(Position)
Point(onShow)
}

]
карма: 0

0
vip
#1.1контекстная реклама от партнеров
Ответов: 4612
Рейтинг: 746
#2: 2019-02-07 14:22:17 ЛС | профиль | цитата
Запусти diskpart в консоли и посмотри внимательно. Он не берет параметры из командной строки. А в интерактивном режиме - из STDIN. Используй doConsoleExec и doConsoleInput.
карма: 26

0
Ответов: 286
Рейтинг: 5
#3: 2019-02-07 15:19:42 ЛС | профиль | цитата
Netspirit а можно поподробней
карма: 0

0
Ответов: 4612
Рейтинг: 746
#4: 2019-02-07 15:36:28 ЛС | профиль | цитата
Запустить приложение методом WinExec.doConsoleExec, затем подавать команды методом WinExec.doConsoleInput.

Редактировалось 1 раз(а), последний 2019-02-07 15:37:02
карма: 26

0
Ответов: 286
Рейтинг: 5
#5: 2019-02-07 16:48:12 ЛС | профиль | цитата
Походу я все таки туповат-не получается.

Add(MainForm,2953706,266,84)
{
Width=710
Height=422
link(onCreate,14704103:doEvent1,[])
}
Add(Memo,14210464,532,168)
{
Left=20
Top=50
Width=640
Height=330
ScrollBars=3
}
Add(Charset,11395080,455,168)
{
link(onCharset,14210464:doAdd,[])
}
Add(WinExec,7639298,399,154)
{
FileName="Diskpart.exe"
Point(doConsoleExec)
Point(onConsoleResult)
Point(doConsoleInput)
link(onConsoleResult,11395080:doCharset,[])
}
Add(Hub,14704103,329,98)
{
link(onEvent1,7639298:doConsoleExec,[(371,104)(371,174)])
}
Add(ArrayEnum,16202321,406,105)
{
link(onItem,7639298:doConsoleInput,[(450,111)(450,146)(387,146)(387,181)])
link(Array,15792275:Array,[])
}
Add(Memo,15792275,392,56)
{
Left=675
Top=40
Width=75
Height=220
Font=[Lucida Console,8,0,0,204]
Strings=#9:list disk|
ScrollBars=3
ReadOnly=0
Point(Position)
Point(onShow)
}
Add(Button,14586320,322,63)
{
Left=200
Top=20
Width=255
link(onClick,16202321:doEnum,[(380,69)(380,111)])
}

карма: 0

0
Ответов: 4612
Рейтинг: 746
#6: 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
Ответов: 286
Рейтинг: 5
#7: 2019-02-08 14:09:52 ЛС | профиль | цитата
Да староват я стал мозги уже не те.Netspirit спасибо большое
карма: 0

0
7
Сообщение
...
Прикрепленные файлы
(файлы не залиты)