Запуск программы MS-DOS

[sim6713]

Начинающий...
Простой, вроде, вопрос, но нигде не найду ответ...
Как запустить программу MS-DOS из своей проги...
А то запускаю через FileRun... Коряво как-то...
Спасиб.

[Estilla]

а System.Diagnostics.Process.Start не катит?

[sim6713]

а System.Diagnostics.Process.Start не катит?

Наверное нет.
Если только что-то не правильно ниже:

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

System.Diagnostics.Process.Start("D:\SKSDATA\LOADBAZ.EXE")

Окно запускается на пол секунды - и пропадает.

Пробовал и двойные слэши.

[Williams]

Да причем тут слэши... Может вы спутали MS-DOS программу с консольным приложением?

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

Задавать параметры запуска можно через экземпляр класса ProcessStartInfo, а именно:



Dim proc As New Process

Dim procInfo As New ProcessStartInfo



procInfo.Property = Value



proc.StartInfo = procInfo



proc.Start()

[sim6713]

Может вы спутали MS-DOS программу с консольным приложением?

Да. Не досмотрел...

Процесс ntvdm.exe (из С:\WINDOWS\System32)
А приложение - D:\SKSDATA\LOADBAZ.EXE
Но мне от этого легче не стало
См. выше - НАЧИНАЮЩИЙ

Не найду никак procInfo.Property

[Ramzes]

System.Diagnostics.Process.Start("D:\COD\QB45\qb45\qb.exe")

[sim6713]

Спасибо всем! Разобрался...

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

Dim proc As New Process
        Dim procInfo As New ProcessStartInfo

        procInfo.FileName = "LOADBAZ.EXE"
        procInfo.WorkingDirectory = "D:\SKSDATA"
        proc.StartInfo = procInfo

        proc.Start()

Только не понял почему он так запускается

[Joo]

Тут же вопрос, запустить запустили, а как считать то что выводится в консоль? Для дальнейшего анализа

[Viper]

Свойства Process.StandartOutput и ProcessStartInfo.RedirectStandartOutput помогут тебе.

[Joo]

Спасибо ))

[Joo]

Все работает!

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

       
Dim proc As New Process
Dim procInfo As New System.Diagnostics.ProcessStartInfo
procInfo.FileName = "TestApp.exe"
procInfo.RedirectStandardOutput = True
procInfo.UseShellExecute = False
proc.StartInfo = procInfo
proc.Start()
MsgBox(proc.StandardOutput.ReadToEnd)


Спасибо!