mirror/wintango-patcher
1
0
Fork 0
mirror of https://github.com/heebijeebi/WinTango-Patcher.git synced 2024-06-22 05:21:56 +02:00
Code Issues Releases Wiki Activity
Files
master
wintango-patcher/project/JobsPatcher.au3
Alex b51ff82c2a Fix for SnippingTool on Win10
2017-10-11 13:56:24 +02:00

1003 lines
45 KiB
AutoIt
Raw Permalink Blame History

Func ExtractResources()
#Region: Scripts
$sResName = "ResHacker Scripts"
$sResFileLocal = @ScriptDir & '\Themes\scripts.7z'
;Extract resources
InstallMsg("Extracting: " & $sResName)
ExtractArchive($sResFileLocal, $ResourcesDir)
InstallMsg("done")
;Override Feature
If FileExists(@DesktopDir & "\Override\scripts") Then DirCopy(@DesktopDir & "\Override\scripts", $ResourcesDir & "\scripts", 1)
#EndRegion
#Region: Resources
$sResName = "Resources"
$sResFileLocal = @ScriptDir & '\Themes\res-gnome.7z' ;base for all
$sResFileLocal2 = ""
$sResFileLocal3 = ""
$sResFileLocal4 = ""
If $SelectedTheme = "gnome" Then
;use the above
ElseIf $SelectedTheme = "cheser" or $SelectedTheme = "gnome-brave" or $SelectedTheme = "elementary" Then
$sResFileLocal4 = @ScriptDir & '\Themes\res-' & $SelectedTheme & '.7z'
Else
;2nd base images
$parent_theme = ""
$parent_theme2 = ""
If $SelectedTheme = "tango" Then
$parent_theme = "gnome-brave"
ElseIf $SelectedTheme = "tangerine" Then
$parent_theme = "gnome-brave"
$parent_theme2 = "tango"
ElseIf $SelectedTheme = "humanity" Then
$parent_theme = "elementary"
ElseIf $SelectedTheme = "gnome-human" or $SelectedTheme = "gnome-noble" or $SelectedTheme = "gnome-wine" or $SelectedTheme = "gnome-wise" Then
$parent_theme = "gnome-brave"
EndIf
$sResFileLocal2 = @ScriptDir & '\Themes\res-' & $parent_theme & '.7z'
$sResFileLocal3 = @ScriptDir & '\Themes\res-' & $parent_theme2 & '.7z'
$sResFileLocal4 = @ScriptDir & '\Themes\res-' & $SelectedTheme & '.7z' ;specific images
EndIf
;Extract resources
InstallMsg("Extracting: " & $sResName)
ExtractArchive($sResFileLocal, $ResourcesDir)
ExtractArchive($sResFileLocal2, $ResourcesDir)
ExtractArchive($sResFileLocal3, $ResourcesDir)
If $SelectedTheme <> "gnome" Then ExtractResCleanup()
ExtractArchive($sResFileLocal4, $ResourcesDir)
InstallMsg("done")
;Override Feature
If FileExists(@DesktopDir & "\Override\icons") Then DirCopy(@DesktopDir & "\Override\icons", $ResourcesDir & "\icons", 1)
If FileExists(@DesktopDir & "\Override\bitmaps") Then DirCopy(@DesktopDir & "\Override\bitmaps", $ResourcesDir & "\bitmaps", 1)
If FileExists(@DesktopDir & "\Override\shiki") Then DirCopy(@DesktopDir & "\Override\shiki", $ResourcesDir & "\shiki", 1)
#EndRegion
EndFunc
Func ExtractResCleanup() ;cleanup Themes from other icon themes; at the moment a manual attempt...
DirRemove($ResourcesDir & "\themes\Aimp", 1)
FileDelete($ResourcesDir & "\themes\Firefox\*.xpi")
DirRemove($ResourcesDir & "\themes\jDownloader", 1)
DirRemove($ResourcesDir & "\themes\RadioSure\skins", 1)
DirRemove($ResourcesDir & "\themes\SMPlayer", 1)
FileDelete($ResourcesDir & "\themes\Thunderbird\*.xpi")
DirRemove($ResourcesDir & "\themes\Winyl", 1)
EndFunc
#Region Options
Func Apply_OS_Res()
;Copy some OS specific ressources
If $WinName = "Win7" Then
;SnippingTool
FileCopy($ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\Win7\130.bmp", $ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\130.bmp", 1)
FileCopy($ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\Win7\131.bmp", $ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\131.bmp", 1)
FileCopy($ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\Win7\134.bmp", $ResourcesDir & "\bitmaps\tweaked\SnippingTool.exe\134.bmp", 1)
EndIf
EndFunc
;General Options
Func Apply_NoTray()
;Don't patch Tray Icons
InstallMsg("Applying: Don't patch Tray Icons")
FileCopy($ResourcesDir & "\Scripts\options\notray_SndVolSSO.dll.txt", $ResourcesDir & "\Scripts\SndVolSSO.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\notray_taskbarcpl.dll.txt", $ResourcesDir & "\Scripts\taskbarcpl.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\notray_pnidui.dll.txt", $ResourcesDir & "\Scripts\pnidui.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\notray_ActionCenter.dll.txt", $ResourcesDir & "\Scripts\ActionCenter.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\notray_batmeter.dll.txt", $ResourcesDir & "\Scripts\batmeter.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\notray_dropbox.exe.txt", $ResourcesDir & "\Scripts\dropbox.exe.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\notray_SndVolSSO.dll.txt", $ResourcesDir & "\Scripts\x64\SndVolSSO.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\notray_taskbarcpl.dll.txt", $ResourcesDir & "\Scripts\x64\taskbarcpl.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\notray_pnidui.dll.txt", $ResourcesDir & "\Scripts\x64\pnidui.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\notray_ActionCenter.dll.txt", $ResourcesDir & "\Scripts\x64\ActionCenter.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\notray_batmeter.dll.txt", $ResourcesDir & "\Scripts\x64\batmeter.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\notray_dropbox.exe.txt", $ResourcesDir & "\Scripts\dropbox.exe.txt", 1)
InstallMsg("done")
EndFunc
Func Apply_SymbolicTray()
;Use symbolic tray icons
InstallMsg("Applying: Use symbolic Tray Icons")
FileCopy($ResourcesDir & "\Scripts\options\symbolic_SndVolSSO.dll.txt", $ResourcesDir & "\Scripts\SndVolSSO.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\symbolic_taskbarcpl.dll.txt", $ResourcesDir & "\Scripts\taskbarcpl.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\symbolic_pnidui.dll.txt", $ResourcesDir & "\Scripts\pnidui.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\symbolic_ActionCenter.dll.txt", $ResourcesDir & "\Scripts\ActionCenter.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\symbolic_batmeter.dll.txt", $ResourcesDir & "\Scripts\batmeter.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\options\symbolic_dropbox.exe.txt", $ResourcesDir & "\Scripts\dropbox.exe.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\symbolic_SndVolSSO.dll.txt", $ResourcesDir & "\Scripts\x64\SndVolSSO.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\symbolic_taskbarcpl.dll.txt", $ResourcesDir & "\Scripts\x64\taskbarcpl.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\symbolic_pnidui.dll.txt", $ResourcesDir & "\Scripts\x64\pnidui.dll.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\symbolic_ActionCenter.dll.txt", $ResourcesDir & "\Scripts\x64\ActionCenter.dll.txt", 1)
;FileCopy($ResourcesDir & "\Scripts\x64\options\symbolic_batmeter.dll.txt", $ResourcesDir & "\Scripts\x64\batmeter.dll.txt", 1) ;no x64 needed!
FileCopy($ResourcesDir & "\Scripts\x64\options\symbolic_dropbox.exe.txt", $ResourcesDir & "\Scripts\x64\dropbox.exe.txt", 1)
InstallMsg("done")
EndFunc
Func Apply_NoStartOrb()
;Don't patch Start Orb
InstallMsg("Applying: Don't patch Start Orb")
FileCopy($ResourcesDir & "\Scripts\options\noorb_explorer.exe.txt", $ResourcesDir & "\Scripts\explorer.exe.txt", 1)
FileCopy($ResourcesDir & "\Scripts\x64\options\noorb_explorer.exe.txt", $ResourcesDir & "\Scripts\x64\explorer.exe.txt", 1)
InstallMsg("done")
EndFunc
Func Apply_Notepad2()
;Replace MS Notepad with Notepad2
$sResName = "Notepad2"
$sResFileLocal = @ScriptDir & '\Themes\files-' & $SelectedTheme & '.7z'
;Extract
InstallMsg("Extracting: " & $sResName)
ExtractArchive($sResFileLocal, $ResourcesDir)
InstallMsg("done")
;Patch
InstallMsg("Replacing: Microsoft Notepad with " & $sResName)
If $OsArch = "x86" Then
DirCreate(@DesktopDir & "\Override")
FileCopy($ResourcesDir & "\files\notepad2-" & _GetOSLanguage() & ".exe", @DesktopDir & "\Override\notepad.exe", 1)
Else
DirCreate(@DesktopDir & "\Override\x64")
FileCopy($ResourcesDir & "\files\notepad2-" & _GetOSLanguage() & "-x64.exe", @DesktopDir & "\Override\notepad.exe", 1)
FileCopy($ResourcesDir & "\files\notepad2-" & _GetOSLanguage() & ".exe", @DesktopDir & "\Override\x64\notepad.exe", 1)
EndIf
FileWrite(@UserProfileDir & "\AppData\Roaming\notepad2.ini", "[Notepad2]")
InstallMsg("done")
EndFunc
Func Apply_Desktops()
;Install Sysinternals Desktops
$sResName = "Sysinternals Desktops"
$sResFileLocal = @ScriptDir & '\Themes\files-' & $SelectedTheme & '.7z'
;Extract
InstallMsg("Extracting: " & $sResName)
ExtractArchive($sResFileLocal, $ResourcesDir)
InstallMsg("done")
;Install
InstallMsg("Installing: " & $sResName)
FileCopy($ResourcesDir & "\files\desktops.exe", @WindowsDir & "\desktops.exe", 1)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "Sysinternals Desktops", "REG_SZ", @WindowsDir & "\desktops.exe") ;Add to Autostart
InstallMsg("done")
EndFunc
Func Apply_UpdaterStartup()
;Automatically Check for Updates
InstallMsg("Applying: Automatically Check for Updates on Startup")
FileDelete(@StartupCommonDir & "\" & $AppName & " Updatecheck.lnk")
FileCreateShortcut(@ScriptDir & "\Updater.exe", @StartupDir & "\" & $AppName & " Updatecheck.lnk", @ScriptDir, "/S")
InstallMsg("done")
EndFunc
Func Apply_ReloaderStartup()
;Automatically Reload on Boot
InstallMsg("Applying: Automatically Reload on Startup")
FileDelete(@StartupCommonDir & "\" & $AppName & " Reloader.lnk")
FileCreateShortcut(@ScriptDir & "\Patcher.exe", @StartupDir & "\" & $AppName & " Reloader.lnk", @ScriptDir, "/reload /S")
InstallMsg("done")
EndFunc
;Windows: Theme
Func ApplyTheme_UXThemePatch($sMethod)
;Apply UXThemePatch
If $sMethod = "direct" Then
;Install
InstallMsg("Applying: UXTheme Patch (Direct Method)")
RunWait($ToolsDir & "\UltraUXThemePatcher.exe /S")
RegWrite($AppRegKey, "UxThemePatch", "REG_SZ", "1")
InstallMsg("done")
Else
;Install
InstallMsg("Applying: UXTheme Patch (Service Method")
RunWait($ToolsDir & "\UXTheme_Multi-Patcher.exe")
RegWrite($AppRegKey, "UxThemePatch", "REG_SZ", "1")
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_Wallpapers()
;Matching Wallpapers for the VS
$sResName = "Wallpapers"
$sResFileLocal = @ScriptDir & '\Themes\wallpapers.7z'
;Extract
InstallMsg("Extracting: " & $sResName)
ExtractArchive($sResFileLocal, $ResourcesDir)
InstallMsg("done")
;Install
InstallMsg("Installing: " & $sResName)
;FileCopy($ResourcesDir & "\themes\Windows\Wallpapers\*.png", @WindowsDir & "\Web\Wallpaper", 1)
;FileCopy($ResourcesDir & "\themes\Windows\Wallpapers\*.jpg", @WindowsDir & "\Web\Wallpaper", 1)
DirCopy($ResourcesDir & "\themes\Windows\Wallpapers", @WindowsDir & "\Web\Wallpaper", 1)
InstallMsg("done")
EndFunc
Func ApplyTheme_Cursors($Cursor_Style)
;Ubuntu Classic Cursors
$sResName = $Cursor_Style & " Cursors"
$sResFileLocal = @ScriptDir & '\Themes\cursors-' & $Cursor_Style & '.7z'
;Extract
InstallMsg("Extracting: " & $sResName)
ExtractArchive($sResFileLocal, $ResourcesDir)
InstallMsg("done")
;Install
InstallMsg("Installing: " & $sResName)
DirCreate(@WindowsDir & "\Cursors\" & $Cursor_Style)
FileCopy($ResourcesDir & "\themes\Windows\Cursors\*.cur", @WindowsDir & "\Cursors\" & $Cursor_Style, 9)
FileCopy($ResourcesDir & "\themes\Windows\Cursors\*.ani", @WindowsDir & "\Cursors\" & $Cursor_Style, 9)
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "Arrow", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\normal.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "Help", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\help.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "AppStarting", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\working.ani")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "Wait", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\busy.ani")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "Crosshair", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\precision.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "IBeam", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\text.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "NWPen", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\handwriting.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "No", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\unavailable.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "SizeNS", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\vertical_resize.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "SizeWE", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\horizontal_resize.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "SizeNWSE", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\diagonal_resize_1.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "SizeNESW", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\diagonal_resize_2.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "SizeAll", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\move.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "UpArrow", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\alternate.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors", "Hand", "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\link.cur")
RegWrite("HKEY_CURRENT_USER\Control Panel\Cursors\Schemes", $Cursor_Style, "REG_SZ", @WindowsDir & "\Cursors\" & $Cursor_Style & "\normal.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\help.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\working.ani," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\busy.ani," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\precision.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\text.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\handwriting.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\unavailable.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\vertical_resize.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\horizontal_resize.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\diagonal_resize_1.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\diagonal_resize_2.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\move.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\alternate.cur," & @WindowsDir & "\Cursors\" & $Cursor_Style & "\link.cur")
InstallMsg("done")
EndFunc
Func ApplyTheme_VisualStyle($VS_Name)
;VisualStyle
$sResName = "Visual Style for Windows"
;Definitions
If $VS_Name = "elementary" Then
$sResFileLocal = @ScriptDir & '\Themes\visualstyle-elementary.7z'
$VS_FileName = "elementary"
ElseIf $VS_Name = "Ubuntu" Then
$sResFileLocal = @ScriptDir & '\Themes\visualstyle-ubuntu.7z'
$VS_FileName = "Ubuntu"
ElseIf $VS_Name = "Shiki-Colors" Then
$sResFileLocal = @ScriptDir & '\Themes\visualstyle-shikicolors.7z'
If $SelectedTheme = "gnome" Then
$VS_FileName = "Shiki-Colors Dust"
ElseIf $SelectedTheme = "cheser" or $SelectedTheme = "tango" or $SelectedTheme = "elementary" Then
$VS_FileName = "Shiki-Colors Brave"
ElseIf $SelectedTheme = "tangerine" or $SelectedTheme = "humanity" Then
$VS_FileName = "Shiki-Colors Human"
Else
$VS_FileName = "Shiki-Colors " & $SelectedTheme
EndIf
EndIf
;Extract
InstallMsg("Extracting: " & $sResName)
ExtractArchive($sResFileLocal, $ResourcesDir)
InstallMsg("done")
;Install
InstallVisualStyle($VS_Name, $VS_FileName)
;~ InstallMsg("Installing: " & $sResName)
;~ FileDelete(@WindowsDir & "\Resources\Themes\" & $VS_Name)
;~ DirRemove(@WindowsDir & "\Resources\Themes\" & $VS_Name, 1)
;~ DirCreate(@WindowsDir & "\Resources\Themes\" & $VS_Name & "\Shell\NormalColor\en-US")
;~ FileCopy($ResourcesDir & "\themes\Windows\" & $WinName & "\*.theme", @WindowsDir & "\Resources\Themes", 9)
;~ FileCopy($ResourcesDir & "\themes\Windows\" & $WinName & "\*.msstyles", @WindowsDir & "\Resources\Themes\" & $VS_Name, 9)
;~ FileCopy($ResourcesDir & "\themes\Windows\" & $WinName & "\shellstyle.dll", @WindowsDir & "\Resources\Themes\" & $VS_Name & "\Shell\NormalColor", 9)
;~ FileCopy($ResourcesDir & "\themes\Windows\" & $WinName & "\shellstyle.dll.mui", @WindowsDir & "\Resources\Themes\" & $VS_Name & "\Shell\NormalColor\en-US", 9)
;~ ;Fonts
;~ If $VS_Name = "elementary" Then InstallFont($ResourcesDir & "\themes\Windows\Fonts\*.ttf")
;Apply theme; only if uxtheme is patched
If RegRead($AppRegKey, "UxThemePatch") = "1" and FileExists(@WindowsDir & "\Resources\Themes\" & $VS_FileName & ".theme") Then
ShellExecuteWait(@WindowsDir & "\Resources\Themes\" & $VS_FileName & ".theme")
sleep(4000)
send("!{f4}")
ElseIf FileExists(@WindowsDir & "\Resources\Themes\" & $VS_FileName & ".theme") Then
FileCreateShortcut(@WindowsDir & "\Resources\Themes\" & $VS_FileName & ".theme", @DesktopCommonDir & "\Apply " & $VS_Name & " Theme.lnk")
EndIf
InstallMsg("done")
EndFunc
Func ApplyTheme_Branding()
;Check the EditionID for the right branding
$EditionID = RegRead("HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion", "EditionID")
If $EditionID = "Ultimate" Then
FileCopy($ResourcesDir & "\bitmaps\basebrd.dll\ultimate\*.bmp", $ResourcesDir & "\bitmaps\basebrd.dll", 1)
ElseIf $EditionID = "Professional" Then
FileCopy($ResourcesDir & "\bitmaps\basebrd.dll\professional\*.bmp", $ResourcesDir & "\bitmaps\basebrd.dll", 1)
ElseIf $EditionID = "HomePremium" Then
FileCopy($ResourcesDir & "\bitmaps\basebrd.dll\homepremium\*.bmp", $ResourcesDir & "\bitmaps\basebrd.dll", 1)
ElseIf $EditionID = "HomeBasic" Then
FileCopy($ResourcesDir & "\bitmaps\basebrd.dll\homebasic\*.bmp", $ResourcesDir & "\bitmaps\basebrd.dll", 1)
ElseIf $EditionID = "Starter" Then
FileCopy($ResourcesDir & "\bitmaps\basebrd.dll\starter\*.bmp", $ResourcesDir & "\bitmaps\basebrd.dll", 1)
EndIf
InstallFile("basebrd.dll", @WindowsDir & "\Branding\Basebrd") ;Windows Edition Banners
InstallFile("shellbrd.dll", @WindowsDir & "\Branding\ShellBrd") ;First Steps (CPL) + Windows Flags
EndFunc
#EndRegion
#Region System Files
;Windows: System Files
Func PatchWindowsFiles()
;=====Systemfiles====================
For $ChBox In $CheckboxesDict.Keys ()
If BitAND(GUICtrlRead($ChBox), 1) Then
$FileName = $CheckboxesDict ($ChBox)
$InstallFiles.enqueue ($FileName)
EndIf
Next
$IniFile = $IniFileWin
If $InstallFiles.count > 0 Then
Do
$EntrysNumber = IniRead($IniFile, $InstallFiles.Peek, "Entrys", "1")
For $j = 1 To $EntrysNumber
$File = IniRead($IniFile, $InstallFiles.Peek, "File_" & $j, "")
$PathIni = IniRead($IniFile, $InstallFiles.Peek, "Path_" & $j, "")
If not StringInStr($PathIni, "WindowsDir") = 0 Then
$Path = StringReplace($PathIni, "WindowsDir", @WindowsDir)
$Path64 = ""
ElseIf not StringInStr($PathIni, "AppDataLocal") = 0 Then
$Path = StringReplace($PathIni, "AppDataLocal", EnvGet("LOCALAPPDATA"))
$Path64 = ""
ElseIf not StringInStr($PathIni, "AppDataRoaming") = 0 Then
$Path = StringReplace($PathIni, "AppDataRoaming", @AppDataDir)
$Path64 = ""
ElseIf not StringInStr($PathIni, "SystemDir") = 0 Then
$Path = StringReplace($PathIni, "SystemDir", @WindowsDir & "\System32")
$Path64 = StringReplace($PathIni, "SystemDir", @WindowsDir & "\SysWOW64")
ElseIf not StringInStr($PathIni, "ProgramFilesDir") = 0 Then
$Path = StringReplace($PathIni, "ProgramFilesDir", $ProgramFiles)
$Path64 = StringReplace($PathIni, "ProgramFilesDir", $ProgramFiles64)
Else
$Path = $PathIni
$Path64 = ""
EndIf
If $Path <> "" and $File <> "" Then
;Specials for IE 10+ Users who won't be able to use it properly if these files get patched:
If $keepIEusable = 1 and $File = "ExplorerFrame.dll" Then
InstallMsg("Skipping File: " & $Path & "\" & $File & " for IE compatibility")
UninstallFile($File, $Path)
ElseIf $keepIEusable = 1 and $File = "inetcpl.cpl" Then
InstallMsg("Skipping File: " & $Path & "\" & $File & " for IE compatibility")
UninstallFile($File, $Path)
ElseIf $NotPatchShell32 = 1 or $keepIEusable = 1 and $File = "shell32.dll" Then
InstallMsg("Skipping File: " & $Path & "\" & $File & " for IE/Sound compatibility")
UninstallFile($File, $Path)
Else ;normal mode:
InstallFile($File, $Path)
EndIf
EndIf
If $Path64 <> "" and $File <> "" Then
;Specials for IE 10+ Users who won't be able to use it properly if these files get patched:
If $keepIEusable = 1 and $File = "ExplorerFrame.dll" Then
InstallMsg("Skipping File: " & $Path64 & "\" & $File & " for IE compatibility")
UninstallFile64($File, $Path64)
ElseIf $keepIEusable = 1 and $File = "inetcpl.cpl" Then
InstallMsg("Skipping File: " & $Path64 & "\" & $File & " for IE compatibility")
UninstallFile64($File, $Path64)
ElseIf $NotPatchShell32 = 1 or $keepIEusable = 1 and $File = "shell32.dll" Then
InstallMsg("Skipping File: " & $Path64 & "\" & $File & " for IE/Sound compatibility")
UninstallFile64($File, $Path64)
Else ;normal mode:
InstallFile64($File, $Path64)
EndIf
EndIf
Next
$InstallFiles.dequeue
Until Not $InstallFiles.count
EndIf
;UnPatch all files not compatible with the used Windows Version if they somehow got patched
$IniFile = @ScriptDir & "\filesWindows.ini"
$entrys = IniReadSectionNames($IniFile)
For $i = 1 to $entrys[0]
$WinSupport = IniRead($IniFile, $entrys[$i], "Win", "")
If $WinSupport <> "All" and StringInStr($WinSupport, $WinName) = 0 Then
$EntrysNumber = IniRead($IniFile, $entrys[$i], "Entrys", "1")
For $j = 1 To $EntrysNumber
$File = IniRead($IniFile, $entrys[$i], "File_" & $j, "")
$PathIni = IniRead($IniFile, $entrys[$i], "Path_" & $j, "")
If not StringInStr($PathIni, "WindowsDir") = 0 Then
$Path = StringReplace($PathIni, "WindowsDir", @WindowsDir)
$Path64 = ""
ElseIf not StringInStr($PathIni, "AppDataLocal") = 0 Then
$Path = StringReplace($PathIni, "AppDataLocal", EnvGet("LOCALAPPDATA"))
$Path64 = ""
ElseIf not StringInStr($PathIni, "AppDataRoaming") = 0 Then
$Path = StringReplace($PathIni, "AppDataRoaming", @AppDataDir)
$Path64 = ""
ElseIf not StringInStr($PathIni, "SystemDir") = 0 Then
$Path = StringReplace($PathIni, "SystemDir", @WindowsDir & "\System32")
$Path64 = StringReplace($PathIni, "SystemDir", @WindowsDir & "\SysWOW64")
ElseIf not StringInStr($PathIni, "ProgramFilesDir") = 0 Then
$Path = StringReplace($PathIni, "ProgramFilesDir", $ProgramFiles)
$Path64 = StringReplace($PathIni, "ProgramFilesDir", $ProgramFiles64)
Else
$Path = $PathIni
$Path64 = ""
EndIf
If $Path <> "" and $File <> "" Then UninstallFile($File, $Path)
If $Path64 <> "" and $File <> "" Then UninstallFile64($File, $Path64)
Next
EndIf
Next
EndFunc
#EndRegion
#Region 3rd Party Apps
;3rd Party Apps: Themes
Func ApplyTheme_Aimp()
;Theme - no need for a backup
If FileExists($ProgramFiles & "\AIMP3\AIMP3.exe") Then
;Install
InstallMsg("Installing Theme: Aimp")
CheckAndCloseProcess("AIMP3.exe", "AIMP")
FileCopy($ResourcesDir & "\themes\Aimp\*.acs3", $ProgramFiles & "\AIMP3\Skins", 1)
;activate Theme
If $SelectedTheme = "gnome-brave" or $SelectedTheme = "gnome-human" or $SelectedTheme = "gnome-noble" or $SelectedTheme = "gnome-wine" or $SelectedTheme = "gnome-wise" Then
$theme_Aimp = "Shiki-" & StringReplace($SelectedTheme, "gnome-", "") & ".acs3"
ElseIf $SelectedTheme = "elementary" Then
$theme_Aimp = $SelectedTheme & ".acs3"
Else
$theme_Aimp = "Shiki-" & $SelectedTheme & ".acs3"
EndIf
IniWrite(@AppDataDir & "\AIMP3\AIMP3.ini", "Skins", "Skin", $theme_Aimp)
InstallMsg("done")
ElseIf FileExists($ProgramFiles & "\AIMP\AIMP.exe") Then
;Install
InstallMsg("Installing Theme: Aimp")
CheckAndCloseProcess("AIMP.exe", "AIMP")
FileCopy($ResourcesDir & "\themes\Aimp\*.acs3", $ProgramFiles & "\AIMP\Skins", 1)
;activate Theme
If $SelectedTheme = "gnome-brave" or $SelectedTheme = "gnome-human" or $SelectedTheme = "gnome-noble" or $SelectedTheme = "gnome-wine" or $SelectedTheme = "gnome-wise" Then
$theme_Aimp = "Shiki-" & StringReplace($SelectedTheme, "gnome-", "") & ".acs3"
ElseIf $SelectedTheme = "elementary" Then
$theme_Aimp = $SelectedTheme & ".acs3"
Else
$theme_Aimp = "Shiki-" & $SelectedTheme & ".acs3"
EndIf
IniWrite(@AppDataDir & "\AIMP\AIMP.ini", "Skins", "Skin", $theme_Aimp)
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_jDownloader()
;Theme - no need for a backup
If FileExists($ProgramFiles & "\jDownloader\jDownloader.exe") Then
;Install
InstallMsg("Installing Theme: jDownloader")
CheckAndCloseProcess("jdownloader.exe", "jDownloader")
DirCopy($ResourcesDir & "\themes\jDownloader", $ProgramFiles & "\jDownloader\jd", 1)
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_FreeFileSync()
If FileExists($ProgramFiles & "\FreeFileSync\FreeFileSync.exe") or FileExists($ProgramFiles64 & "\FreeFileSync\FreeFileSync.exe") Then
;Install
CheckAndCloseProcess("FreeFileSync.exe", "FreeFileSync")
InstallTheme("FreeFileSync", $ProgramFiles & "\FreeFileSync\FreeFileSync.exe", $ProgramFiles & "\FreeFileSync", "Resources.zip", $ResourcesDir & "\themes\FreeFileSync\Resources.zip")
InstallTheme("FreeFileSync", $ProgramFiles64 & "\FreeFileSync\FreeFileSync.exe", $ProgramFiles64 & "\FreeFileSync", "Resources.zip", $ResourcesDir & "\themes\FreeFileSync\Resources.zip")
EndIf
EndFunc
Func ApplyTheme_Firefox()
;Theme - no need for a backup
If FileExists($ProgramFiles & "\Mozilla Firefox\firefox.exe") or FileExists($ProgramFiles64 & "\Mozilla Firefox\firefox.exe") Then
;Install
InstallMsg("Installing Theme: Mozilla Firefox")
CheckAndCloseProcess("firefox.exe", "Mozilla Firefox")
$FirefoxAppPath = @AppDataDir & "\Mozilla\Firefox\" & StringReplace(IniRead(@AppDataDir & "\Mozilla\Firefox\profiles.ini", "Profile0", "Path", "Error"), "/", "\")
DirCreate($FirefoxAppPath & "\extensions")
;Cleanup OLD
FileDelete($FirefoxAppPath & "\extensions\Gnome-Brave@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Gnome-Human@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Gnome-Noble@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Gnome-Wine@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Gnome-Wise@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Gnome@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Cheser@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Tango@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Tangerine@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Elementary@Windows.xpi")
FileDelete($FirefoxAppPath & "\extensions\Humanity@Windows.xpi")
;Cleanup done
FileCopy($ResourcesDir & "\themes\Firefox\*.xpi", $FirefoxAppPath & "\extensions", 9)
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_Thunderbird()
;Theme - no need for a backup
If FileExists($ProgramFiles & "\Mozilla Thunderbird\thunderbird.exe") Then
;Install
InstallTheme("Mozilla Thunderbird", $ProgramFiles & "\Mozilla Thunderbird\thunderbird.exe", $ProgramFiles & "\Mozilla Thunderbird\chrome\icons\default", "abcardWindow.ico", $ResourcesDir & "\themes\Thunderbird\icons\abcardWindow.ico")
InstallTheme("Mozilla Thunderbird", $ProgramFiles & "\Mozilla Thunderbird\thunderbird.exe", $ProgramFiles & "\Mozilla Thunderbird\chrome\icons\default", "addressbookWindow.ico", $ResourcesDir & "\themes\Thunderbird\icons\addressbookWindow.ico")
InstallTheme("Mozilla Thunderbird", $ProgramFiles & "\Mozilla Thunderbird\thunderbird.exe", $ProgramFiles & "\Mozilla Thunderbird\chrome\icons\default", "messengerWindow.ico", $ResourcesDir & "\themes\Thunderbird\icons\messengerWindow.ico")
InstallTheme("Mozilla Thunderbird", $ProgramFiles & "\Mozilla Thunderbird\thunderbird.exe", $ProgramFiles & "\Mozilla Thunderbird\chrome\icons\default", "msgcomposeWindow.ico", $ResourcesDir & "\themes\Thunderbird\icons\msgcomposeWindow.ico")
InstallMsg("Installing Theme: Mozilla Thunderbird")
CheckAndCloseProcess("thunderbird.exe", "Mozilla Thunderbird")
FileCopy($ResourcesDir & "\themes\Thunderbird\*.xpi", $ProgramFiles & "\Mozilla Thunderbird\extensions", 1)
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_SMPlayer()
;Theme - no need for a backup
If $SelectedTheme = "gnome-brave" or $SelectedTheme = "gnome-human" or $SelectedTheme = "gnome-noble" or $SelectedTheme = "gnome-wine" or $SelectedTheme = "gnome-wise" Then
$theme_SMPlayer = "gnome-" & $SelectedTheme
Else
$theme_SMPlayer = $SelectedTheme
EndIf
If FileExists($ProgramFiles & "\SMPlayer\SMPlayer.exe") Then
InstallMsg("Installing Theme: SMPlayer")
CheckAndCloseProcess("SMPlayer.exe", "SMPlayer")
DirCopy($ResourcesDir & "\themes\SMPlayer", $ProgramFiles & "\SMPlayer\themes", 1)
;activate Theme
IniWrite(@UserProfileDir & "\.smplayer\smplayer.ini", "gui", "iconset", _StringTitleCase($theme_SMPlayer))
IniWrite(@UserProfileDir & "\.smplayer\smplayer.ini", "gui", "style", "WindowsVista")
IniWrite(@UserProfileDir & "\.smplayer\smplayer.ini", "gui", "gui", "DefaultGUI")
InstallMsg("done")
ElseIf FileExists($ProgramFiles64 & "\SMPlayer\SMPlayer.exe") Then
InstallMsg("Installing Theme: SMPlayer")
CheckAndCloseProcess("SMPlayer.exe", "SMPlayer")
DirCopy($ResourcesDir & "\themes\SMPlayer", $ProgramFiles64 & "\SMPlayer\themes", 1)
;activate Theme
IniWrite(@UserProfileDir & "\.smplayer\smplayer.ini", "gui", "iconset", _StringTitleCase($theme_SMPlayer))
IniWrite(@UserProfileDir & "\.smplayer\smplayer.ini", "gui", "style", "WindowsVista")
IniWrite(@UserProfileDir & "\.smplayer\smplayer.ini", "gui", "gui", "DefaultGUI")
InstallMsg("done")
EndIf
EndFunc
;Themes in one PAK:
Func ApplyTheme_DiskInfo()
;Theme - no need for a backup
If FileExists($ProgramFiles & "\CrystalDiskInfo\DiskInfo.exe") Then
;Install
InstallMsg("Installing Theme: CrystalDiskInfo")
CheckAndCloseProcess("DiskInfo.exe", "Crystal DiskInfo")
DirCopy($ResourcesDir & "\themes\CrystalDiskInfo", $ProgramFiles & "\CrystalDiskInfo\CdiResource\themes", 1)
;activate Theme
;~ If $SelectedTheme = "elementary" Then ;WIP!
;~ $theme_DiskInfo = "elementary"
;~ Else
;~ $theme_DiskInfo = "Shiki-Colors"
;~ EndIf
;~ IniWrite($ProgramFiles & "\CrystalDiskInfo\DiskInfo.ini", "Setting", "Theme", $theme_DiskInfo)
IniWrite($ProgramFiles & "\CrystalDiskInfo\DiskInfo.ini", "Setting", "Theme", "Shiki-Colors")
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_Foobar2000()
If FileExists($ProgramFiles & "\foobar2000\foobar2000.exe") Then
;Install
CheckAndCloseProcess("foobar2000.exe", "foobar2000")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "aac.ico", $ResourcesDir & "\themes\foobar2000\aac.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "ape.ico", $ResourcesDir & "\themes\foobar2000\ape.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "flac.ico", $ResourcesDir & "\themes\foobar2000\flac.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "generic.ico", $ResourcesDir & "\themes\foobar2000\generic.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "m4a.ico", $ResourcesDir & "\themes\foobar2000\m4a.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "mp3.ico", $ResourcesDir & "\themes\foobar2000\mp3.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "mp4.ico", $ResourcesDir & "\themes\foobar2000\mp4.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "mpc.ico", $ResourcesDir & "\themes\foobar2000\mpc.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "ogg.ico", $ResourcesDir & "\themes\foobar2000\ogg.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "wav.ico", $ResourcesDir & "\themes\foobar2000\wav.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "wma.ico", $ResourcesDir & "\themes\foobar2000\wma.ico")
InstallTheme("foobar2000", $ProgramFiles & "\foobar2000\foobar2000.exe", $ProgramFiles & "\foobar2000\icons", "wv.ico", $ResourcesDir & "\themes\foobar2000\wv.ico")
EndIf
EndFunc
Func ApplyTheme_Gimp()
If FileExists($ProgramFiles & "\GIMP 2\bin\gimp-2.8.exe") or FileExists($ProgramFiles64 & "\GIMP 2\bin\gimp-2.8.exe") Then
;Install
CheckAndCloseProcess("gimp-2.8.exe", "GIMP")
InstallTheme("Gimp", $ProgramFiles & "\GIMP 2\bin\gimp-2.8.exe", $ProgramFiles & "\GIMP 2\share\gimp\2.0\images", "gimp-logo.png", $ResourcesDir & "\themes\Gimp\gimp-logo.png")
InstallTheme("Gimp", $ProgramFiles & "\GIMP 2\bin\gimp-2.8.exe", $ProgramFiles & "\GIMP 2\share\gimp\2.0\images", "gimp-splash.png", $ResourcesDir & "\themes\Gimp\gimp-splash.png")
InstallTheme("Gimp", $ProgramFiles & "\GIMP 2\bin\gimp-2.8.exe", $ProgramFiles & "\GIMP 2\share\gimp\2.0\images", "wilber.png", $ResourcesDir & "\themes\Gimp\wilber.png")
InstallTheme("Gimp", $ProgramFiles64 & "\GIMP 2\bin\gimp-2.8.exe", $ProgramFiles64 & "\GIMP 2\share\gimp\2.0\images", "gimp-logo.png", $ResourcesDir & "\themes\Gimp\gimp-logo.png")
InstallTheme("Gimp", $ProgramFiles64 & "\GIMP 2\bin\gimp-2.8.exe", $ProgramFiles64 & "\GIMP 2\share\gimp\2.0\images", "gimp-splash.png", $ResourcesDir & "\themes\Gimp\gimp-splash.png")
InstallTheme("Gimp", $ProgramFiles64 & "\GIMP 2\bin\gimp-2.8.exe", $ProgramFiles64 & "\GIMP 2\share\gimp\2.0\images", "wilber.png", $ResourcesDir & "\themes\Gimp\wilber.png")
EndIf
EndFunc
Func ApplyTheme_Inkscape()
If FileExists($ProgramFiles & "\Inkscape\Inkscape.exe") or FileExists($ProgramFiles64 & "\Inkscape\Inkscape.exe") Then
;Install
CheckAndCloseProcess("inkscape.exe", "Inkscape")
InstallTheme("Inkscape", $ProgramFiles & "\Inkscape\inkscape.exe", $ProgramFiles & "\Inkscape\share\icons", "icons.svg", $ResourcesDir & "\themes\Inkscape\icons.svg")
InstallTheme("Inkscape", $ProgramFiles64 & "\Inkscape\inkscape.exe", $ProgramFiles64 & "\Inkscape\share\icons", "icons.svg", $ResourcesDir & "\themes\Inkscape\icons.svg")
EndIf
EndFunc
Func ApplyTheme_LibreOffice()
If FileExists($ProgramFiles & "\LibreOffice 4\program\soffice.exe") or FileExists($ProgramFiles & "\LibreOffice 5\program\soffice.exe") or FileExists($ProgramFiles64 & "\LibreOffice 5\program\soffice.exe") Then
;Install
;4.x
InstallTheme("LibreOffice", $ProgramFiles & "\LibreOffice 4\program\soffice.exe", $ProgramFiles & "\LibreOffice 4\share\config", "images_tango.zip", $ResourcesDir & "\themes\LibreOffice\images_tango.zip")
InstallTheme("LibreOffice", $ProgramFiles & "\LibreOffice 4\program\soffice.exe", $ProgramFiles & "\LibreOffice 4\program", "intro.png", $ResourcesDir & "\themes\LibreOffice\intro.png")
;5.x
InstallTheme("LibreOffice", $ProgramFiles & "\LibreOffice 5\program\soffice.exe", $ProgramFiles & "\LibreOffice 5\program", "intro.png", $ResourcesDir & "\themes\LibreOffice\intro.png")
InstallTheme("LibreOffice", $ProgramFiles64 & "\LibreOffice 5\program\soffice.exe", $ProgramFiles64 & "\LibreOffice 5\program", "intro.png", $ResourcesDir & "\themes\LibreOffice\intro.png")
EndIf
EndFunc
Func ApplyTheme_MPC()
If FileExists($ProgramFiles & "\MPC-HC\mpc-hc.exe") or FileExists($ProgramFiles64 & "\MPC-HC\mpc-hc64.exe") then
;Theme - no need for a backup
If FileExists($ProgramFiles & "\MPC-HC\mpc-hc.exe") Then
InstallMsg("Installing Theme: Media Player Classic HC")
FileCopy($ResourcesDir & "\Themes\MPCHC\toolbar_24.bmp", $ProgramFiles & "\MPC-HC\toolbar.bmp", 1)
InstallMsg("done")
ElseIf FileExists($ProgramFiles64 & "\MPC-HC\mpc-hc64.exe") Then
InstallMsg("Installing Theme: Media Player Classic HC")
FileCopy($ResourcesDir & "\Themes\MPCHC\toolbar_24.bmp", $ProgramFiles64 & "\MPC-HC\toolbar.bmp", 1)
InstallMsg("done")
EndIf
EndIf
EndFunc
Func ApplyTheme_MSOffice()
;Office 2010 icons
If FileExists(@WindowsDir & "\Installer\{90140000-0011-0000-1000-0000000FF1CE}\wordicon.exe") Then
InstallMsg("Installing Theme: Microsoft Office 2010")
RunWait($ResourcesDir & "\themes\Office2010\Patch_pptico.exe -auto -nobackup", @WindowsDir & "\Installer\{90140000-0011-0000-1000-0000000FF1CE}")
RunWait($ResourcesDir & "\themes\Office2010\Patch_wordicon.exe -auto -nobackup", @WindowsDir & "\Installer\{90140000-0011-0000-1000-0000000FF1CE}")
RunWait($ResourcesDir & "\themes\Office2010\Patch_xlicons.exe -auto -nobackup", @WindowsDir & "\Installer\{90140000-0011-0000-1000-0000000FF1CE}")
InstallMsg("done")
;Office 2013 icons
ElseIf FileExists(@WindowsDir & "\Installer\{90150000-0011-0000-1000-0000000FF1CE}\wordicon.exe") Then
InstallMsg("Installing Theme: Microsoft Office 2013")
RunWait($ResourcesDir & "\themes\Office2010\Patch_pptico.exe -auto -nobackup", @WindowsDir & "\Installer\{90150000-0011-0000-1000-0000000FF1CE}")
RunWait($ResourcesDir & "\themes\Office2010\Patch_wordicon.exe -auto -nobackup", @WindowsDir & "\Installer\{90150000-0011-0000-1000-0000000FF1CE}")
RunWait($ResourcesDir & "\themes\Office2010\Patch_xlicons.exe -auto -nobackup", @WindowsDir & "\Installer\{90150000-0011-0000-1000-0000000FF1CE}")
InstallMsg("done")
;Office 2016 icons
ElseIf FileExists(@WindowsDir & "\Installer\{90160000-0011-0000-1000-0000000FF1CE}\wordicon.exe") Then
InstallMsg("Installing Theme: Microsoft Office 2016")
RunWait($ResourcesDir & "\themes\Office2010\Patch_pptico.exe -auto -nobackup", @WindowsDir & "\Installer\{90160000-0011-0000-1000-0000000FF1CE}")
RunWait($ResourcesDir & "\themes\Office2010\Patch_wordicon.exe -auto -nobackup", @WindowsDir & "\Installer\{90160000-0011-0000-1000-0000000FF1CE}")
RunWait($ResourcesDir & "\themes\Office2010\Patch_xlicons.exe -auto -nobackup", @WindowsDir & "\Installer\{90160000-0011-0000-1000-0000000FF1CE}")
EndIf
EndFunc
Func ApplyTheme_Pidgin()
If FileExists($ProgramFiles & "\Pidgin\Pidgin.exe") Then
;Install
InstallMsg("Installing Theme: Pidgin")
DirCopy($ResourcesDir & "\themes\Pidgin", $ProgramFiles & "\Pidgin", 1)
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_RadioSure()
;Theme - no need for a backup
If FileExists(@LocalAppDataDir & "\RadioSure\RadioSure.exe") Then
InstallMsg("Installing Theme: RadioSure")
CheckAndCloseProcess("RadioSure.exe", "RadioSure")
DirCopy($ResourcesDir & "\themes\RadioSure", @LocalAppDataDir & "\RadioSure", 1)
;activate Theme
If $SelectedTheme = "gnome-brave" or $SelectedTheme = "gnome-human" or $SelectedTheme = "gnome-noble" or $SelectedTheme = "gnome-wine" or $SelectedTheme = "gnome-wise" Then
$theme_RadioSure = "GnomeColors"
Else
$theme_RadioSure = $SelectedTheme
EndIf
XmlModify(@LocalAppDataDir & "\RadioSure\RadioSure.xml", "skin", $theme_RadioSure)
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_Rainlendar()
;Theme - no need for a backup
If FileExists($ProgramFiles & "\Rainlendar2\Rainlendar2.exe") Then
InstallMsg("Installing Theme: Rainlendar2")
CheckAndCloseProcess("Rainlendar2.exe", "Rainlendar")
FileCopy($ResourcesDir & "\themes\Rainlendar\*.r2skin", $ProgramFiles & "\Rainlendar2\skins", 1)
InstallMsg("done")
ElseIf FileExists($ProgramFiles64 & "\Rainlendar2\Rainlendar2.exe") Then
InstallMsg("Installing Theme: Rainlendar2")
CheckAndCloseProcess("Rainlendar2.exe", "Rainlendar")
FileCopy($ResourcesDir & "\themes\Rainlendar\*.r2skin", $ProgramFiles64 & "\Rainlendar2\skins", 1)
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_uTorrent()
;Theme - no need for a backup
If FileExists($ProgramFiles & "\uTorrent\uTorrent.exe") Then
;Install
InstallMsg("Installing Theme: uTorrent")
CheckAndCloseProcess("uTorrent.exe", "uTorrent")
FileCopy($ResourcesDir & "\themes\uTorrent\*.bmp", @AppDataDir & "\uTorrent", 1)
FileCopy($ResourcesDir & "\themes\uTorrent\*.ico", @AppDataDir & "\uTorrent", 1)
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_VLC()
;Theme - no need for a backup
If FileExists($ProgramFiles & "\VideoLAN\VLC\vlc.exe") and $SelectedTheme = "elementary" or $SelectedTheme = "humanity" Then
;Install
InstallMsg("Installing Theme: VLC")
CheckAndCloseProcess("vlc.exe", "VideoLAN")
FileCopy($ResourcesDir & "\themes\VLC\*.vlt", $ProgramFiles & "\VideoLAN\VLC\skins", 1)
;activate Theme
CfgModify(@AppDataDir & "\vlc\vlcrc", "skins2-last=", $ProgramFiles & "\VideoLAN\VLC\skins\elementaryDark", ".vlt")
InstallMsg("done")
ElseIf FileExists($ProgramFiles64 & "\VideoLAN\VLC\vlc.exe") and $SelectedTheme = "elementary" or $SelectedTheme = "humanity" Then
;Install
InstallMsg("Installing Theme: VLC")
CheckAndCloseProcess("vlc.exe", "VideoLAN")
FileCopy($ResourcesDir & "\themes\VLC\*.vlt", $ProgramFiles64 & "\VideoLAN\VLC\skins", 1)
;activate Theme
CfgModify(@AppDataDir & "\vlc\vlcrc", "skins2-last=", $ProgramFiles64 & "\VideoLAN\VLC\skins\elementaryDark", ".vlt")
InstallMsg("done")
EndIf
EndFunc
Func ApplyTheme_Winyl()
;Theme - no need for a backup
If FileExists($ProgramFiles & "\Winyl\Winyl.exe") Then
;Install
InstallMsg("Installing Theme: Winyl")
CheckAndCloseProcess("Winyl.exe", "Winyl")
FileCopy($ResourcesDir & "\themes\Winyl\*.wzp", $ProgramFiles & "\Winyl\Skin", 1)
;activate Theme
If $SelectedTheme = "elementary" Then
$theme_Winyl = $SelectedTheme
ElseIf $SelectedTheme = "cheser" Then
$theme_Winyl = "Flat Gnome"
Else
$theme_Winyl = "Flat " & $SelectedTheme
EndIf
CfgModify(@AppDataDir & "\Winyl\Settings.xml", '<skin ID="', $theme_Winyl, '" Pack')
;_ReplaceXML_v2(@AppDataDir & "\Winyl\Settings.xml", "skin", $theme_Winyl, 1)
InstallMsg("done")
EndIf
EndFunc
;3rd Party Apps: File
Func PatchAppFiles()
;=====Appfiles====================
For $ChBox In $CheckboxesDictApps.Keys ()
If BitAND(GUICtrlRead($ChBox), 1) Then
$FileName = $CheckboxesDictApps ($ChBox)
$InstallFilesApps.enqueue ($FileName)
EndIf
Next
$IniFile = $IniFileApps
If $InstallFilesApps.count > 0 Then
Do
$EntrysNumber = IniRead($IniFile, $InstallFilesApps.Peek, "Entrys", "1")
For $j = 1 To $EntrysNumber
$File = IniRead($IniFile, $InstallFilesApps.Peek, "File_" & $j, "")
$PathIni = IniRead($IniFile, $InstallFilesApps.Peek, "Path_" & $j, "")
If not StringInStr($PathIni, "WindowsDir") = 0 Then
$Path = StringReplace($PathIni, "WindowsDir", @WindowsDir)
$Path64 = ""
ElseIf not StringInStr($PathIni, "AppDataLocal") = 0 Then
$Path = StringReplace($PathIni, "AppDataLocal", EnvGet("LOCALAPPDATA"))
$Path64 = ""
ElseIf not StringInStr($PathIni, "AppDataRoaming") = 0 Then
$Path = StringReplace($PathIni, "AppDataRoaming", @AppDataDir)
$Path64 = ""
ElseIf not StringInStr($PathIni, "SystemDir") = 0 Then
$Path = StringReplace($PathIni, "SystemDir", @WindowsDir & "\System32")
$Path64 = StringReplace($PathIni, "SystemDir", @WindowsDir & "\SysWOW64")
ElseIf not StringInStr($PathIni, "ProgramFilesDir") = 0 Then
$Path = StringReplace($PathIni, "ProgramFilesDir", $ProgramFiles)
$Path64 = StringReplace($PathIni, "ProgramFilesDir", $ProgramFiles64)
Else
$Path = $PathIni
$Path64 = ""
EndIf
If $Path <> "" and $File <> "" Then InstallFile($File, $Path)
If $Path64 <> "" and $File <> "" Then InstallFile64($File, $Path64)
Next
$InstallFilesApps.dequeue
Until Not $InstallFilesApps.count
EndIf
;Temporarily unpatch files until bugs are solved
UninstallFile("VirtualBox.exe", $ProgramFiles & "\Oracle\VirtualBox")
UninstallFile64("VirtualBox.exe", $ProgramFiles64 & "\Oracle\VirtualBox")
EndFunc
#EndRegion
Func PostInstall()
;Cleanup
FileDelete($ToolsDir & "\ResHacker.ini")
DirRemove(@DesktopDir & "\Override", 1)
;Patcher Information
RegWrite($AppRegKey, "Version", "REG_SZ", $AppVersion)
RegWrite($AppRegKey, "IconTheme", "REG_SZ", $SelectedTheme)
;Unistaller
RegWrite($UninstallRegKey, "DisplayName", "REG_SZ", $AppName)
RegWrite($UninstallRegKey, "UninstallString", "REG_SZ", @ScriptDir & "\patcher.exe /uninstall")
RegWrite($UninstallRegKey, "DisplayIcon", "REG_SZ", @ScriptDir & "\patcher.exe")
RegWrite($UninstallRegKey, "DisplayVersion", "REG_SZ", $AppVersion)
RegWrite($UninstallRegKey, "URLInfoAbout", "REG_SZ", $AppWebsite)
RegWrite($UninstallRegKey, "Publisher", "REG_SZ", $AppPublisher)
;Add to Control Panel
$CLSID = "{77708248-f839-436b-8919-527c410f48b9}"
RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $CLSID, "", "REG_SZ", $AppName)
RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $CLSID, "InfoTip", "REG_SZ", $AppName & " Settings & Infos")
RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $CLSID, "System.ControlPanel.Category", "REG_SZ", "1")
RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $CLSID & "\DefaultIcon", "", "REG_SZ", @ScriptDir & "\PatcherCPL.exe")
RegWrite("HKEY_CLASSES_ROOT\CLSID\" & $CLSID & "\Shell\Open\Command", "", "REG_SZ", @ScriptDir & "\PatcherCPL.exe")
RegWrite("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\" & $CLSID, "", "REG_SZ", "Adds " & $AppName & " to the Control Panel")
EndFunc
Reference in New Issue View Git Blame Copy Permalink