#SingleInstance, force
DetectHiddenWindows, on
SetBatchLines, -1
title := "Uninstaller"
Gui, Add, ListView, Grid x2 y2 w905 h302 AltSubmit -Multi -0x4000000 -LV0x10 vLView gLView, Название|Версия|Дата установки|Издатель|Путь|Деинсталлятор
Gui, Add, ListView, Grid x2 y2 w905 h302 Hidden AltSubmit -Multi -0x4000000 -LV0x10 vLView1, Название|Версия|Дата установки|Издатель|Путь|Деинсталлятор
Gui, Add, Button, x1 y305 w100 h33 gDelete, Удалить
Gui, Add, Button, x807 y305 w101 h33 gGuiClose, Выход
Gui, Add, Text, x101 y304 w35 h11, Поиск:
Gui, Add, Edit, x102 y317 w140 h20 -Multi vEdit gSearch,   
Gui, Add, Button, x348 y317 w101 h20 , Сброс
Gui, Show, Center w909 h339, % title   
Refresh()
SetTimer, DellCol
Return
DellCol:
Loop % LV_GetCount()
{
      LV_GetText(RetrievedText, A_Index)
      if RetrievedText =   
   {
    LV_Delete(A_Index)
}
}
Return
LView:
if A_GuiEvent = DoubleClick
{
   LV_GetText(Folder, A_EventInfo, 6)
   SplitPath, Folder, , DirName
   if DirName =   
   {
    LV_GetText(Folder1, A_EventInfo, 5)
    Run, %Folder1%
   }
   else
   {
    StringReplace, filestring, DirName, ", , All
    Run, %filestring%
   }
}
Return
Search:
Gui, Submit, NoHide
If (Edit != "")
{
   Gui, ListView, LView
   LV_Delete()
   Gui, ListView, LView1
   Loop, % LV_GetCount()
   {
    LV_GetText(RetrievedText, A_Index)
    If InStr(RetrievedText, Edit)
    {
     Gui, ListView, LView
     LV_Add("",RetrievedText)
     Gui, ListView, LView1
    }
   }
   GuiControl, Hide, LView
   GuiControl, Show, LView1
}
Else
{
   GuiControl, Hide, LView
   GuiControl, Show, LView1
}
Return
Delete:
RowNumber = 0
Loop
{
   RowNumber := LV_GetNext(RowNumber, "Focused")
      if not RowNumber
          break
      LV_GetText(Text, RowNumber, 6)
      Run, %Text%
   Goto, Exist
}
Return
Exist:
StringReplace, string, Text, ", , All
IfNotExist, %String%
{
   LV_Delete(RowNumber)
   SplitPath, String, , Dir
   IfExist, %Dir%\*.*
   {
    MsgBox, 52, Внимание!, Остались неудаленные файлы`, удалить сейчас?
    IfMsgBox, Yes
    {
     FileDelete, %Dir%
     IfNotExist, %get%\*.*
    {
     MsgBox, 64, Успех!, Удаление успешно завершено.
    }
    else
    {
     MsgBox, 0x10, Ошибка!, Не удается удалить файлы или файлов не обнаружено.
    }
   }
   IfMsgBox, No
    Return
   }
     
}
else
{
   Goto, Exist
}
Return
;~ -------------------------------------------Function
Refresh()
{
   global
   LV_Delete()
   Gui, ListView, LView
   Loop, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall, 1
   {
     RegRead, Display, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%A_LoopRegName%, DisplayName
     RegRead, Version, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%A_LoopRegName%, DisplayVersion
     RegRead, Date, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%A_LoopRegName%, InstallDate
     RegRead, Project, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%A_LoopRegName%, Publisher
     RegRead, Path, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%A_LoopRegName%, InstallLocation
     RegRead, Uninst, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\%A_LoopRegName%, UninstallString
     LV_Add("", Display, Version, Date, Project, Path, Uninst)
   }
   LV_ModifyCol()
}
GuiClose:
ExitApp