Цитата: Для полной портабельности: там же Количество файлов=0, Количество строк=0, все галочки убраны. Плагин RecentFiles выпилить...
Такое не очень удобно, потому что мне необходима история во время работы...
Цитата: это проще сделать с помощью kIT Portable Launcher.
Зачем костыли, у нас и своих хватает)))
Код: ' DeleteRegAkelpad.vbs
'======================== Описание =====================================
' Удаление раздела Akelsoft из реестра
'
' Автор: alexii & mod Аверин Андрей
' Версия: 1.0 (20.05.2014)
' Mail: Averin-And@yandex.ru
' Site:
http://tc-image.3dn.ru/forum/9-942-9917-16-1400564884 '===========================================================================
WScript.Sleep(5000)
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv")
On Error Resume Next
RecursiveRegKeyDelete &H80000001, "Software\Akelsoft"
Set objReg = Nothing
Function RecursiveRegKeyDelete(parRoot, parKey)
On Error Resume Next
If objReg.CheckAccess(parRoot,parKey,131072) = 0 Then
If objReg.EnumKey(parRoot, parKey, arrSubKeys) = 0 Then
If Not IsNull(arrSubKeys) Then
For i = 0 To UBound(arrSubKeys)
RecursiveRegKeyDelete parRoot, parKey & "\" & arrSubKeys(i)
Next
End If
End If
intResult = objReg.DeleteKey(parRoot, parKey)
End If
End Function
у меня работает. Так будет понятнее вопрошающему где именно ошибка поселилась.
