Цитата ya158:
|
Должен создаваться UnCom, без Pro. »
|
Да сам параметр без Pro, это я опечатался
Из конфа:
SetEnvironment="RegUninstall=HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall"
SetEnvironment="DisplayName=BSPlayer PRO"
RunProgram="hidcon:cmd /c REG ADD \"%RegUninstall%\\BSplayer Pro\" /V \"DisplayName\" /T REG_SZ /D \"BSPlayer PRO\" /F"
RunProgram="hidcon:cmd /c REG ADD \"%RegUninstall%\\BSplayer Pro\" /V \"DisplayIcon\" /T REG_SZ /D \"%%T\\bsplayer.exe\" /F"
RunProgram="hidcon:cmd /c REG ADD \"%RegUninstall%\\BSplayer Pro\" /V \"DisplayVersion\" /T REG_SZ /D \"v2.6.9.1079\" /F"
RunProgram="hidcon:cmd /c REG ADD \"%RegUninstall%\\BSplayer Pro\" /V \"Publisher\" /T REG_SZ /D \"(C) 2000-2015 AB Team\" /F"
RunProgram="hidcon:cmd /c REG ADD \"%RegUninstall%\\BSplayer Pro\" /V \"URLInfoAbout\" /T REG_SZ /D \"http://www.bsplayer.com\" /F"
RunProgram="hidcon:cmd /c REG ADD \"%RegUninstall%\\BSplayer Pro\" /V \"UninstallString\" /T REG_SZ /D \"mshta vbscript
:execute(\\\"If MsgBox(\\\"\\\"Вы действительно хотите удалить %DisplayName% и все компоненты программы?\\\"\\\",36,\\\"\\\"Деинсталляция %DisplayName%\\\"\\\")=6 Then Set w=CreateObject(\\\"\\\"WScript.Shell\\\"\\\"):For each d in split(w.RegRead(\\\"\\\"%RegUninstall%\\BSplayer Pro\\UnCom\\\"\\\"),vbCrLf):r=w.Run(d,0,True):Next:close\\\")\" /f"
RunProgram="hidcon:mshta vbscript
:execute(\"f=CreateObject(\"\"Scripting.FileSystemObject\"\").GetFile(\"\"UnCom.~\"\").OpenA sTextStream(1).ReadAll():with CreateObject(\"\"ADODB.Stream\"\"):.Type=2:.Mode=3:.Open():.Charset=\"\"windows-1251\"\":.WriteText(f):.Position=0:.Charset=\"\"cp866\"\":S=.ReadText end with:a=CreateObject(\"\"WScript.Shell\"\").RegWrite(\"\"%RegUninstall%\\BSplayer Pro\\UnCom\"\",S,\"\"REG_SZ\"\"):close\")"
Delete="%%T\\UnCom.~"
Из реестра:
[HKEY_LOCAL_MACHINE\SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\BSplayer Pro]
"DisplayName"="BSPlayer PRO"
"DisplayIcon"="C:\\Program Files (x86)\\Webteh\\BSplayerPro\\bsplayer.exe"
"DisplayVersion"="v2.6.9.1079"
"Publisher"="(C) 2000-2015 AB Team"
"URLInfoAbout"="http://www.bsplayer.com"
"UninstallString"="mshta vbscript
:execute(\"If MsgBox(\"\"Вы действительно хотите удалить BSPlayer PRO и все компоненты программы?\"\",36,\"\"Деинсталляция BSPlayer PRO\"\")=6 Then Set w=CreateObject(\"\"WScript.Shell\"\"):For each d in split(w.RegRead(\"\"HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\Uninstall\\BSplayer Pro\\UnCom\"\"),vbCrLf):r=w.Run(d,0,True):Next:close\")"
"UnCom"="CMD /C FOR /F %i IN ('\"TASKLIST|FINDSTR /BILC:\"bsplayer.exe\"\"') do TASKKILL /F /T /IM \"%i\"
Тут загвоздка скорее всего в Wow6432Node. Надо адаптировать для x64.
http://rghost.ru/7Ccs9gfBk