Программная деинсталляция программы - 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