Kiril777
Цитата:
Разница регистрации расширения в XP и W7 только в новом параметре "UserChoice", который создается если сопоставление типов файлов было изменено через "Панель управления".
Для удаления, создать пустой файл с расширением .vbs и вставить код:
Код: Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.mht\UserChoice\"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.mhtml\UserChoice\"
Err.Clear
Цитата:
мне нужен универсальный способ для ХП и 7.
Разница регистрации расширения в XP и W7 только в новом параметре "UserChoice", который создается если сопоставление типов файлов было изменено через "Панель управления".
Для удаления, создать пустой файл с расширением .vbs и вставить код:
Код: Dim WshShell
Set WshShell = WScript.CreateObject("WScript.Shell")
On Error Resume Next
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.mht\UserChoice\"
WshShell.RegDelete "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\FileExts\.mhtml\UserChoice\"
Err.Clear