Запуск консольного и MS-DOS приложения без закрытия окна

[Alexanbar]

Обычно после запуска таких приложений чёрное окошко закрывется, а я хочу, чтобы можно было посмотреть, какие результаты выведены.

Сейчас делаю так.
В WINNT:

Код: Выделить всё

Dim SHE as shellexecuteinfo

with SHE

    .lpfile="путь к cmd.exe"
    .lpparameters="/k (" & "путь к приложению" & " " & командная_строка_приложения_включая_кавычки)
.....

end with
....

В w98:

Код: Выделить всё

Dim SHE as shellexecuteinfo

with SHE

    .lpfile="путь к command.com"
    .lpparameters="/k " & "путь к приложению" & " " & командная_строка_приложения_включая_кавычки
.....

end with
....

Основной недостаток - ограничения в длине командной строки (см. lpparameters). Особенно это сказывается в w98.

P.S. В качестве приложений используются консольные (и для DOS) утилиты разработчиков антивирусных программ

[GSerg]

Создать ярлык (как создавать ярлыки - см. в поиске), в котором снять галку "Закрывать окно по завершении работы"...

[Alexanbar]

Не подходит. Нужно каждый раз менять командную строку для приложения (список файлов меняется)

[ANDLL]

В MSDN написано, что при запуске одного консольного приложения из другого консоль наследуется. Из этого можно предположить, что если в твоем приложении создать консоль, то она не закроется после того как другое приложение отработает.

[Alexanbar]

Дело в том, что так, как я сделал, работает, но допустимая командная строка мала. Особенно при использовании Command.com.
А если просто запустить консольное приложение, то он по окончании работы закрывает окно.

[Konst_One]

pause в командном файле в конце и он остановится

[Alexanbar]

А нету командного файла. Из приложения всё запускается.

[ANDLL]

Alexanbar
Я не врубился, чем плох мой способ?
Возможная длина командной строки там максимальна.

[Alexanbar]

Не хочется огород городить:
- создавать *.bat файл
- запускать его;
- уничтожать.

Проще (и надёжнее!) тогда создать список файлов, и передавать его сканеру. только логика интергации сканера в приложение пока не такая. наверное, так придётся в будущем поступать. и + мой код, что выше- для просмотра результатов.

Касперский свои секреты не хочет выдавать (как запустить сканер с GUI) - отсылает к консольному приложению.

Хочется, чтобы ничего не делать сверхсложного, но чтобы всё работало. может быть, иной способ есть.

[Alexanbar]

В MSDN написано, что при запуске одного консольного приложения из другого консоль наследуется. Из этого можно предположить, что если в твоем приложении создать консоль, то она не закроется после того как другое приложение отработает.

Вот именно . Приложение отработало - и консоль закрывается. Опять же моё приложение - не консольное.
Собстьвенно говоря, своим кодом я и создаю такую консоль, кторая не закроется

[Konst_One]

а может просто прочитать stdout данной консоли и отобразить в своем приложении

[Alexanbar]

а может просто прочитать stdout данной консоли и отобразить в своем приложении :?:

Подробнее

[BV]

CreatePipe

[ANDLL]

CreatePipe

Честно говоря, Alexanbar делает что-то не то.
Код в студию.
Ибо консоль должна наследоваться, и я не верю, что завершаясь программа вдруг возьмет и закроет чужую консоль.

Опять же моё приложение - не консольное

Это не страшно. Если не консольное - значит ОС не будет открывать консоль. Ее надо открыть вручную.

[Konst_One]

вот простенький примерчик:

[Alexanbar]

CreatePipe

Честно говоря, Alexanbar делает что-то не то.
Код в студию.
Ибо консоль должна наследоваться, и я не верю, что завершаясь программа вдруг возьмет и закроет чужую консоль.

Опять же моё приложение - не консольное

Это не страшно. Если не консольное - значит ОС не будет открывать консоль. Ее надо открыть вручную.

Предположим, нужно запустить консольное приложение drwebwcl.exe из комплекта DrWeb.
Нажимаем кнопку ПУск- далее - выполнить. Набираем в командной строке:

Код: Выделить всё

"путь к файлу drwebwcl.exe" "d:\test"


Что произойдёт? На экране появится чёрное окно, начнётся проверка на вирусы, по окончании которой это самое чёрное окно САМО ПО СЕБЕ ЗАКРОЕТСЯ. без каких-либо действий с моей стороны.
Тоже самое я раньше делал программно, через Shellexecuteex.

[Alexanbar]

вот простенький примерчик:

набираю в примерчике такую строку:

Код: Выделить всё

"C:\Program Files\DrWeb\drwebwcl.exe" f:\virus


В класс-модуле DOSOutputs в ф-и ExecuteCommand

Код: Выделить всё

...
'Read the ReadPipe handle
   
    Do
        ret = ReadFile(hReadPipe, strBuff, 256, lngBytesread, 0&)
       
        mOutputs = mOutputs & Left(strBuff, lngBytesread)
        'Send data to the object via ReceiveOutputs event
        RaiseEvent ReceiveOutputs(Left(strBuff, lngBytesread))
    Loop While ret <> 0
....


возвращается ret=0 и, соответственно, lngBytesread=0. Т.е, ничего в текстбокс не попадает.

[Konst_One]

Код: Выделить всё

Dim sExec as String

ChDrive "C"
ChDir "C:\Program Files\DrWeb\"

sExec="drwebwcl.exe f:\virus"

...

думаю, что все понятно

[Alexanbar]

Код: Выделить всё

Dim sExec as String

ChDrive "C"
ChDir "C:\Program Files\DrWeb"

sExec="drwebwcl.exe f:\virus"

...

думаю, что все понятно

К сожалению, результат тот же. Если вместо drwebwcl.exe запустить drweb386.exe (DOS-прил.), выходит окно DOS, идёт проверка и закрытие окна. При запуске drwebwcl.exe (консольное) MousePointer=11 , потом становится MousePointer=0 , и в текстовое поле ничего не поступает.

[Konst_One]

drwebwcl.exe у меня его нет, проверить сложно.
а оно точно что-то в консоль выводит?

[Konst_One]

http://www.drweb.ru/download/#h29

напиши какой из этих дистрибутивов у тебя сейчас работает

[Alexanbar]

DrWeb для рабочих станций. Версия 4.33.2.

Кстати, попробовал запустить zip.exe и Unzip.exe. В текстовое поле вывод идёт, но выводится не совсем то, что они выводят в чёрном окне.

[keks-n]

stderror, в него тоже что-то идёт.

[Konst_One]

DrWeb для рабочих станций. Версия 4.33.2.

очень странно, я себе такую же версию поставил, но там нет таких файлов: drwebwcl.exe и drweb386.exe

кстати, stderror вполне может быть твой случай.

[Alexanbar]

DrWeb для рабочих станций. Версия 4.33.2.

очень странно, я себе такую же версию поставил, но там нет таких файлов: drwebwcl.exe и drweb386.exe

кстати, stderror вполне может быть твой случай.

Так эти компоненты по требованию ставятся. (компоненты по выбору). Их надо во время инсталляции ставить. Это называеься в инсталляторе "DrWeb консольный сканер для Windows" и "DrWeb сканер для DOS"

[Konst_One]

"DrWeb сканер для DOS" - это вообще только для 98 винды
"DrWeb консольный сканер для Windows" - у меня большие сомнения в корректности его работы с stdout

[Konst_One]

попробуй делать перенаправление вывода в файл:

Код: Выделить всё

drwebwcl.exe f:\virus >1.txt

а уже 1.txt читать

[Konst_One]

все, поставил, проверил.
они свою консоль вставляют графическую, так что ничего ты там не отловишь

[Alexanbar]

попробуй делать перенаправление вывода в файл:

Код: Выделить всё

drwebwcl.exe f:\virus >1.txt

а уже 1.txt читать

Недостатки:
1) юзверь будет неекоторое время в неведении, что происходит. ОДна мыша, быть может, будет говорить, что прога не зависла.
2) Иногда проги в файл не пишут ничего.

Вот запустил этого drwebwcl, а он говорит, что у меня лицензии на эту утилиту нет. На чёрном экране показывает загрузку базы, а файл образуется нулевой длины.

kavshell.exe (из комплекта KAV 5) результаты в файл выводит.

В принципе, этот вариант имеет право на сущестование.

[Konst_One]

проблема в том, что дрвеб некорректно работает с консолью. тут уж я не знаю что посоветовать. может стоит использовать другой антивирусный пакет