Запустить программу и ждать завершения, не вешая основной программы - VB

Узнай цену своей работы

Формулировка задачи:

Мне нужно запустить программу и дождаться её завершение, после продолжить работу Вот что я нашел, для реализации этого.
Код работает, но окно основной формы перестает перерисовываться. Возможно ничего страшного нет, но выглядит не красиво и кажется что всё повисло. Что поправить в коде или подскажите другой способ для реализации этой идеи ?

Решение задачи: «Запустить программу и ждать завершения, не вешая основной программы»

textual
Листинг программы
'...58
If CreateProcessA(CreateProcessA 0&, FileName, 0&, 0&, 1&, NORMAL_PRIORITY_CLASS, 0&, 0&, Prog, Process) = 0 Then Unload Me: Exit Sub
CloseHandle Process.hThread
Do
    DoEvents
    'Здесь можно подвигать какой нибудь прогресс бар
Loop Until WaitForSingleObject(Process.hProcess, 20) = 0
'59...

Оцени полезность:

13   голосов , оценка 4 из 5
Похожие ответы