Вверх ↑
Ответов: 537
Рейтинг: 14
#1: 2019-02-22 19:04:35 ЛС | профиль | цитата
Нужно запустить cmd и получить все строки выполнения в memo, с нормальным русским тестом вместо (Љ®аЇ®а жЁп Њ ©Єа®б®дв (Microsoft Corp.), 2009. ‚ᥠЇа ў § йЁйҐ­л.)
Как исправить кодировку 866<->1251
Add(Memo,16753371,147,91)
{
Left=15
Top=20
Width=275
Height=205
Strings=#17:echo Start %time%|21:@echo Идет проверка 1|16:nslookup 1.1.1.1|8:@echo Ok|16:echo Stop %time%|5:@exit|
ScrollBars=2
}
Add(Memo,3233594,336,133)
{
Left=310
Top=20
Width=275
Height=205
ScrollBars=2
}
Add(MainForm,11237762,91,175)
{
Width=619
Height=330
Caption="Пример использования WinExec"
}
Add(WinExec,15028267,217,119)
{
FileName="cmd"
Point(onConsoleResult)
Point(doConsoleInput)
Point(doConsoleExec)
link(onExec,14961550:doData,[(261,125)(261,82)(133,82)(133,139)])
link(onConsoleResult,3233594:doAdd,[])
}
Add(Button,6785065,147,175)
{
Left=25
Top=245
Caption="2"
link(onClick,15028267:doConsoleExec,[(198,181)(198,146)])
}
Add(DoData,14961550,147,133)
{
link(onEventData,15028267:doConsoleInput,[])
link(Data,16753371:Text,[])
}
Add(Charset,1817640,280,91)
{
Type=7
}
И как сделать так, чтобы и в консольном окне отображался ход выполнения программы и после завершения всех команд консольное, черное окно закрывалось?
У меня Win 7, но нужно чтобы и на 10-ке работало
карма: 4

0
Редактировалось 1 раз(а), последний 2019-02-22 19:17:05