Программная деинсталляция программы - VB

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

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

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

Решение задачи: «Программная деинсталляция программы»

textual
Листинг программы
sub main()
 
    SoftName = "ActivePerl 5"
 
    Set oWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\CIMV2")
    Set oProducts = oWMI.ExecQuery("select * from Win32_Product WHERE Name='" & SoftName & "'")
    
    For each oProduct in oProducts
        oProduct.Uninstall
    Next
 
    Set oWMI = Nothing
    Set oSoftware = Nothing
 
end sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

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