ФормыДляОдноСкрипта.ИнформацияЗапускаПроцесса (OneScriptForms.ProcessStartInfo) Метод

Копировать     Выделить всё

Перем Ф,  ПолеВвода1, ПолеВвода2;

Функция Команда(ИмяФайла, Аргументы, Объект)
	ИнформацияЗапускаПроцесса1 = Ф.ИнформацияЗапускаПроцесса();
	ИнформацияЗапускаПроцесса1.ИмяФайла = ИмяФайла;
	ИнформацияЗапускаПроцесса1.Аргументы = Аргументы;
	ИнформацияЗапускаПроцесса1.СоздатьБезОкна = Истина;
	ИнформацияЗапускаПроцесса1.ИспользоватьОболочку = Ложь;
	ИнформацияЗапускаПроцесса1.СтильОкна = Ф.СтильОкнаПроцесса.Скрытое;
	ИнформацияЗапускаПроцесса1.ПеренаправитьСтандартныйВывод = Истина;

	Процесс1 = Ф.Процесс();
	Процесс1.НачальнаяИнформация = ИнформацияЗапускаПроцесса1;

	Процесс1.Начать();
	Если Не Процесс1.Завершен Тогда
		Стр1 = Процесс1.СтандартныйВывод.ПрочитатьСтроку();
		Пока Стр1 <> Неопределено Цикл
			Объект.ДобавитьТекст("" + Стр1 + Символы.ПС);
			Стр1 = Процесс1.СтандартныйВывод.ПрочитатьСтроку();
		КонецЦикла;
	Иначе
		Объект.ДобавитьТекст("Процесс1 завершен");
	КонецЕсли;
КонецФункции

Функция КнопкаПинг_Нажатие() Экспорт
	Команда("C:\Windows\System32\PING.EXE", " -n 1 " + СокрЛП(ПолеВвода2.Текст), ПолеВвода1);
КонецФункции

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Ширина = 600;
Форма1.Высота = 400;
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

ПолеВвода1 = Форма1.ЭлементыУправления.Добавить(Ф.ПолеВвода());
ПолеВвода1.МногострочныйРежим = Истина;
ПолеВвода1.Стыковка = Ф.СтильСтыковки.Заполнение;
ПолеВвода1.ЦветФона = Ф.Цвет().Черный;
ПолеВвода1.ОсновнойЦвет = Ф.Цвет().БледноЗеленый;
ПолеВвода1.ПолосыПрокрутки = Ф.ПолосыПрокрутки.Обе;
ПолеВвода1.ПринятиеВозврат = Истина;
ПолеВвода1.РегистрСимволов = Ф.РегистрСимволов.Стандартный;

Панель1 = Форма1.ЭлементыУправления.Добавить(Ф.Панель());
Панель1.Высота = 30;
Панель1.ЗаполнениеГраниц.Все = 5;
Панель1.Стыковка = Ф.СтильСтыковки.Верх;

ПолеВвода2 = Панель1.ЭлементыУправления.Добавить(Ф.ПолеВвода());
ПолеВвода2.Текст = "127.0.0.1";
ПолеВвода2.Стыковка = Ф.СтильСтыковки.Заполнение;
ПолеВвода2.МногострочныйРежим = Ложь;

КнопкаПинг = Панель1.ЭлементыУправления.Добавить(Ф.Кнопка());
КнопкаПинг.ПлоскийСтиль = Ф.ПлоскийСтиль.Система;
КнопкаПинг.Текст = "Ping Host";
КнопкаПинг.Стыковка = Ф.СтильСтыковки.Право;
КнопкаПинг.Нажатие = Ф.Действие(ЭтотОбъект, "КнопкаПинг_Нажатие");
	
Ф.ЗапуститьОбработкуСобытий();

Копировать     Выделить всё

ПодключитьВнешнююКомпоненту("C:\444\111\OneScriptForms\OneScriptForms\bin\Debug\OneScriptForms.dll");
Ф = Новый ФормыДляОдноСкрипта();
Форма1 = Ф.Форма();
Форма1.Отображать = Истина;
Форма1.Показать();
Форма1.Активизировать();

Сообщить(?("" + Ф.ИнформацияЗапускаПроцесса() = "КлИнформацияЗапускаПроцесса", "", "!!! ") + "ФормыДляОдноСкрипта.ИнформацияЗапускаПроцесса (OneScriptForms.ProcessStartInfo) Метод" + " " + ТекущаяДата());