Uninstall Manager - замена системному деинсталлятору

• Получение списка установленных программ, обновлений, системных компонентов
• Расширенный просмотр свойств установленных порограмм
• Сохранение отчёта об установленных программах в HTML, REG
• Деинсталляция без подтверждения
• Подсветка "особых" элементов
• Определение типа инсталлятора
• Определение точной даты установки
• Портативность (все настройки сохраняются в папке с программой, а не в реестре)

Спойлер: Снимок

1) Главное окно программы

2) Редактирование данных

3) Окно настроек

что она делает

Нажмите, чтобы раскрыть...

деинсталлировать установленные в системе программы

Нажмите, чтобы раскрыть...

Делайте предложения по улучшению программы

Нажмите, чтобы раскрыть...

Guezt сказал(а):

sforce5
При запуске идет считывание реестра (1 раз)
При изменении настроек отображения (+еще каждый раз на любое изменение)

как то можно сделать чтобы считало один раз с реестра (в память) и с этим и работала?

Нажмите, чтобы раскрыть...

• Если сама программа работает с реестром, не лучше бы сделать сохранение настроек в самом реестре? Лично мне .ini файлы напоминают времена Windows 3.1.
• Если в настройках программы отменить показ иконок, то остаются пустые места, правда со следующим запуском список выглядит нормально.
• Вместо RegEnumKey() я советую сделать так (~ в 158 раз быстрее):
  
  
  Спойлер

  Код:

  #Include <Array.au3>
  #Include <WinAPIEx.au3>
  
  $hKey = _WinAPI_RegOpenKey($HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall')
  $Count = _WinAPI_RegQueryInfoKey($hKey)
  Dim $aKey[$Count[0]]
  For $i = 0 To UBound($aKey) - 1
  	$aKey[$i] = _WinAPI_RegEnumKey($hKey, $i)
  Next
  _WinAPI_RegCloseKey($hKey)
  
  If IsArray($aKey) Then
  	_ArrayDisplay($aKey, '_WinAPI_RegEnumKey')
  EndIf
  
  
• Вместо GUICtrlCreateListViewItem() лучше использовать _GUICtrlListView_AddItem(), опять же скорость будет намного выше.
• Двойной клик на элементе, лучше связать не с "Деинсталировать", а с чем-нибудь другим, на всякий случай.
• При вызове окна "Настройки" и его закрытия (без изменений), зачем-то обновляется список. Ну или что-то еще.
• Зачем столько много "<пусто>"?
• Если я ничего не меняю в "Просмотр / Редактирование данных", то зачем спрашивать "Хочу ли я выйти без сохранеия"?
• Опять же, неправильно обновляется список, очень долго удаляются элементы, должно быть "мгновенно", возможно, это связано с GUICtrlCreateListViewItem().
• Перед работой с программой, хорошо бы проверять наличие прав администратора.
• Не всегда правильно отображаются иконки, это связано с индексами иконок и функцией GUICtrlCreateIcon() / GUICtrlSetImage(), баг(?). Советую использовать _SetIcon() или _SetHIcon() из Icons.au3 (эх, у меня уже давно версия 1.8, а я все никак не соберусь ее выложить, наверное, потому что мало интереса к ней проявлено на нашем форуме). Если ты все же настаиваешь на GUICtrl..., то индексы иконок, которые ты берешь из реестра нужно преобразовать следующим образом:
  
  
  Спойлер

  Код:

  If $Index < 0 Then
  	$Index = -$Index
  Else
  	$Index = -$Index - 1
  EndIf
  
  
• Зачем нужна функция _Mutex()? Она аналогична _Singleton(). Если ты не доверяешь последней, то можешь изменить название скрытого окна AutoIt на что-нибудь уникальное, и проверять наличие окна с этим именем (100% способ):
  
  
  Спойлер

  Код:

  $Unique = 'Uninstall_Manager_1.0_ZdqXp'
  
  Opt('WinTitleMatchMode', 3)
  
  If WinExists($Unique) Then
  	WinActivate('[TITLE:Uninstall Manager v1.0;CLASS:AutoIt v3 GUI]')
  	Exit
  EndIf
  
  AutoItWinSetTitle($Unique)
  ...
  
  
• При изменении размеров окна, размеры StatusBar'а тоже зачем-то меняются.
• Хорошо бы добавить стиль LVS_EX_INFOTIP для списка.
• Может быть цвета для некоторых элементов сделать не такими яркими, а то сильно глаза устают.
• Если ты задался вопросами лицензирования, то по хорошему, нужно приложить файл с текстом лицензии, или, на худой конец, дать ссылку. Но возможно я и ошибаюсь.
• Зачем искать в Google слово "<пусто>"?
• В чем здесь смысл? Иконка у тебя и так не появляется, т.к. окно не имеет заголовка и является дочерним.
  
  
  Спойлер

  Код:

  Local $hIcon = _WinAPI_GetClassLong($status_dlg, -14)
  _WinAPI_FreeIcon($hIcon)
  _WinAPI_SetClassLong($status_dlg, -14, 0)
  _WinAPI_SetClassLong($status_dlg, -34, 0)
  
  
• К предыдущему пункту. Для того, чтобы не показывать иконку на панели задач, нет необходимости создавать дополнительное окно. Можно привязать основное окно, например к тому же скрытому окну AutoIt:
  
  
  Спойлер

  Код:

  GUICreate(..., WinGetHandle(AutoItWinGetTitle()))
  
  
• Вместо этого (это было у нас где-то на форуме)
  
  
  Спойлер

  Код:

  GUISetState(@SW_ENABLE, $hWnd)
  _WinAPI_SetActiveWindow($hWnd)
  GUIDelete($settings_dlg)
  
  Лучше написать так:
  
  
  Спойлер

  Код:

  GUISetState(@SW_ENABLE, $hWnd)
  GUIDelete($settings_dlg)
  
  
• И самое неприятное, происходит утечка памяти, не очень большая, но есть. Где-то что-то ты не освободил...

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\Test]
"DisplayIcon"="C:\\WINDOWS\\system32\\shell32.dll,43"
"DisplayName"="@Test"
"UninstallString"="test.exe"

$hKey = _WinAPI_RegOpenKey($HKEY_LOCAL_MACHINE, 'SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall')
...
_WinAPI_RegCloseKey($hKey)

sforce5 сказал(а):

Я НЕ ДОПРАВИЛ ТОЛЬКО ВЫБОР ЦВЕТОВ

Нажмите, чтобы раскрыть...

sforce5 сказал(а):

Хммм, странно, у меня всё впорядке...

Нажмите, чтобы раскрыть...

GUICreate('MyGUI', 400, 400)
GUICtrlCreateIcon('shell32.dll', 43, 20, 20, 32, 32)
GUICtrlCreateIcon('shell32.dll', _InvertIndex(43), 80, 20, 32, 32)
GUISetState()

Do
Until GUIGetMsg() = -3

Func _InvertIndex($iIndex)
	If $iIndex < 0 Then
		$iIndex = -$iIndex
	Else
		$iIndex = -$iIndex - 1
	EndIf
	Return $iIndex
EndFunc   ;==>_InvertIndex

TheBloodTear сказал(а):

Начну с конца ;)
1) Получить список компьютеров можно вот таким способом ... Функция LIST то, что нужно..
2) Не совсем понял вопрос по поводу удаленного реестра и какой-то подачи 8)..

Нажмите, чтобы раскрыть...

TheBloodTear сказал(а):

Код:

If $Computer = @ComputerName Then
	_WinAPI_RegOpenKey (...)
ElseIf $Computer <> "" And $Computer <> @ComputerName Then
	_RegConnectRegistry (...)
Else
	ConsoleWrite ("Error")
EndIf

Как-то так ;)..

Нажмите, чтобы раскрыть...

TheBloodTear сказал(а):

P.P.S. Скачал программу, она зависает на считывании "Nokia Ovi Suite" :(.. У меня Windows 7 64bit..

Нажмите, чтобы раскрыть...