Завершение регистрации - как поймать процесс RegSvr32? - VB

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

Как поймать процесс

RegSvr32

например я вызываю:

                    Листинг программы
                
Call Shell("RegSvr32 /s " & Name) 'Регистрация

но так-как у меня это работает внутри суб-компонента могут случиться неожиданные глюки (чего правда еще небыло но всётаки...) если кто понял мой вопрос очень прошу подсказать с ответом

Решение задачи: «Завершение регистрации - как поймать процесс RegSvr32?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim pid As Long, hProc As Long
pid = Shell(Path)
hProc = OpenProcess(SYNCHRONIZE, False, pid)
WaitForSingleObject hProc, INFINITE
CloseHandle hProc
' Процесс завершился

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

11 голосов , оценка 4.182 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы