Как получить список запущенных в системе программ

Alex.Solder

Гость

03.09.2009 23:03:15

Помогите!
В проге созданной в Excel для красоты и для справки (переделана внутренная справка) я использую помощника офиса, но т.к. сисадмины поставили урезанный OutLook, то при закрытии программы по коду помощник отключается появляется ошибка в выполнении кода, она конечно исчезает, когда в OutLookе установить помощника, но это не выход из положения, т. к. приходиться подходить и самому это делать для неособо разбирающихся.
Хочу в код вшить проверку запущен ли OutLook и выдавать сообщение с набором действии, которые помогут не вызывать ошибку. Перечитал кучу литературы, но к такой возможности не приблизился ни на мм..
Кто может сталкивался с этой проблемой ответьте пожалуйста!

A_Zeshko

Пользователь

Сообщений: 116 Регистрация: 01.01.1970

04.09.2009 00:56:30

Наверное, это удобнее делать скрипами *.vbs или *.jvs (WSH)
Но если хотите из VBA, тогда так пробуйте
============================================
Sub Test()
Dim myPrC, myProg
Set myProg = GetObject("winmgmts:")
Set myPrC = myProg.ExecQuery("SELECT * FROM Win32_Process")
For Each x In myPrC
Debug.Print x.Name
If x.Name = "OUTLOOK.EXE" Then MsgBox "Запущен OUTLOOK!!!"
Next
End Sub
=============================================

At odd moments: VBA, VB6, VB.NET, Java, Java for Android, Java Script, Action Script, Windows Scriping Host

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#3 04.09.2009 10:32:05 можно спросить не все процессы, а только нужный: Dim mp As Object Set mp = GetObject(, "Outlook.Application") если не запущен, то выдаст ошибку.. Живи и дай жить..

Alex.solder Гость	#4 07.09.2009 10:53:44 Спасибо! Сегодня попробую. Если всё пройдет на ура, то в проге будет исключена последняя ошибка. Ещё раз огромное спасибо!!!

Читают тему