Как закрыть DOS-овское окно после завершения в нем приложения?

@BoNiM · Регистрация: 06.12.2006

Студворк — интернет-сервис помощи студентам

Как программно отследить завершение DOS-овского приложения и закрыть соответсвующее DOS-овское окно?

07.12.2006, 00:16

А по-подробнее?

@BoNiM · 07.12.2006, 04:07 **[ТС]**

'' Ниже приведен текст процедуры, которой я пользуюсь.

Public Sub DosSes(NAMF As String) '' NAMF - полный путь к Dos-овскому приложению
Dim process As PROCESS_INFORMATION, start As STARTUPINFO, rc As Long
start.cb = Len(start)
start.dwFlags = STARTF_USESHOWWINDOW
start.wShowWindow = SW_SHOWNORMAL
rc = CreateProcessA(0&, NAMF, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, _
0&, 0&, start, process)
''
'' Насколько я понимаю, во время выполнения предыдущей функции открывается
'' DOS-овское окно, поднимается COMMAND.COM, под управлением которого и
'' выполняется DOS приложение. COMMAND.COM при этом является запущенным
'' процессом и поэтому последующая функция ожидает завершения его работы
'' даже в том случае, когда приложение NAMF завершилось. Закрывая ручками
'' DOS-овское окно, я тем самым завершаю процесс.
''
rc = WaitForSingleObject(process.hProcess, INFINITE)
rc = CloseHandle(process.hProcess)
End Sub

'' Мне нужно закрыть DOS-овское окно по завершению работы приложения NAMF.
''
'' В Windows это реализовано путем установки флажка 'Закрывать окно по
'' завершении работы программы' во вкладке 'Программа' свойств любого DOS
'' приложения, запускаемого ярлыком с рабочего стола

07.12.2006, 05:07

Ну так и запускай pif с установненным флажком. Я так в паскалЕ делал.

@BoNiM · 07.12.2006, 06:17 **[ТС]**

Спасибо за совет. Этот метод мне известен. Хотелось бы получить более элегантное решение. Кроме того, во многопользовательском варианте (общая база данных) приходиться создавать pif файл на каждом рабочем месте, что не совсем удобно.

07.12.2006, 08:46

Я подозреваю, что нет более 'элегантного' решения. Дело в том, что проще (IMHO!) положить на один СЕТЕВОЙ диск пиф или включить его в комплект поставки, чем пытаться разбираться со свойствами окна, а затем его сканировать. Некоторое неудобство в виде пмфа с лихвой окупается использованием WaitForSingleObject - ибо эта штука не жрет время у процессора (жрет, на самом деле, но минимально)

@BoNiM · 09.12.2006, 23:38 **[ТС]**

Благодарю за советы и за то, что уделили мне внимание! Последний совет хорош, но только в том случае, когда DOS-приложение на всех клиентских местах находиться по одному пути. У нас на предприятии исторически сложилось, что это приложение установлено по разным путям и внутренне привязано к ним. Переделывать же приложение я не имею возможности.

10.12.2006, 00:45

Опытным путем установлено, что если консольное приложение на экран ничего не выводит, то окно приложения будет закрыто вне зависимости от состояния флажка 'Закрывать окно по завершении работы программы'. Избавиться от вывода на экран можно, перенаправив stdout в файл (или в nul).

Пример1:
(кнопка ПускВыполнить)
%comspec% /cd:syspkzip.exe -a c:a.zip c:autoexec.bat

Если флаг сброшен, окошко останется.

Пример2:
(кнопка ПускВыполнить)
%comspec% /cd:syspkzip.exe -a c:a.zip c:autoexec.bat > c

kzip.log

Окошко закроется в любом случае.

Примечание.
Указанное справедливо только для тех программ, которые не прользуются stderr. Этот поток в файл не перенаправить.

11.12.2006, 04:39