forked from 7plus/7plus
-
Notifications
You must be signed in to change notification settings - Fork 0
/
UpdateCreator.ahk
252 lines (226 loc) · 13 KB
/
UpdateCreator.ahk
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
;If program is run without admin privileges, try to run it again as admin, and exit this instance when the user confirms it
if(!A_IsAdmin)
{
If(A_IsCompiled)
uacrep := DllCall("shell32\ShellExecute", uint, 0, str, "RunAs", str, A_ScriptFullPath, str, "/r", str, A_WorkingDir, int, 1)
else
uacrep := DllCall("shell32\ShellExecute", uint, 0, str, "RunAs", str, A_AhkPath, str, "/r """ A_ScriptFullPath """", str, A_WorkingDir, int, 1)
ExitApp
}
;Close running 7plus instance
if(running := FileExist(A_Temp "\7plus\hwnd.txt"))
{
DetectHiddenWindows, On
FileRead, hwnd, %A_Temp%\7plus\hwnd.txt
if(WinExist("ahk_id " hwnd))
{
WinGet, pid, pid, ahk_id %hwnd%
Process, Close, %pid%
}
}
SetWorkingDir %a_scriptdir%
;Read current version from 7plus.ahk
Loop, Read, 7plus.ahk
{
if(InStr(A_LoopReadLine, "MajorVersion := "))
MajorVersion := SubStr(A_LoopReadLine, InStr(A_LoopReadLine, " := ") + 4)
else if(InStr(A_LoopReadLine, "MinorVersion := "))
MinorVersion := SubStr(A_LoopReadLine, InStr(A_LoopReadLine, " := ") + 4)
else if(InStr(A_LoopReadLine, "BugfixVersion := "))
BugfixVersion := SubStr(A_LoopReadLine, InStr(A_LoopReadLine, " := ") + 4)
else if(InStr(A_LoopReadLine, "BuildVersion := "))
{
BuildVersion := SubStr(A_LoopReadLine, InStr(A_LoopReadLine, " := ") + 4)
VersionString := A_LoopReadLine
}
}
;Now show a GUI with publishing options
Gui, Add, Button, gBuild, Build Only
Gui, Add, Button, gPublish, Publish
Gui, Add, Button, gPublishAsBeta, Publish as Beta
Gui, Show
return
Build:
Publish:
PublishAsBeta:
if(VersionString)
{
BuildVersion := A_ThisLabel = "Publish" ? 0 : BuildVersion + 1
FileRead, code, 7plus.ahk
StringReplace, code, %VersionString%, BuildVersion := %BuildVersion%
}
7plusVersion := MajorVersion "." MinorVersion "." BugfixVersion "." BuildVersion
;The Autoupdater uses a file called NewVersion.ini hosted on a server that contains information about the newest available (beta)version
;This file is updated here.
FilesURL := "http://7plus.googlecode.com/files/"
if(A_ThisLabel = "Publish")
{
IniWrite, %MajorVersion%, NewVersion.ini, Version, MajorVersion
IniWrite, %MinorVersion%, NewVersion.ini, Version, MinorVersion
IniWrite, %BugfixVersion%, NewVersion.ini, Version, BugfixVersion
IniWrite, %BuildVersion%, NewVersion.ini, Version, BuildVersion
InputBox, Message, Enter Update Message, A new update is available. Download now?
IniWrite, %Message%, NewVersion.ini, Version, UpdateMessage
IniWrite, %FilesURL%UpdaterX86Binary.exe, NewVersion.ini, Version, LinkX86
IniWrite, %FilesURL%UpdaterX86Source.exe, NewVersion.ini, Version, LinkX86Source
IniWrite, %FilesURL%UpdaterX64Binary.exe, NewVersion.ini, Version, LinkX64
IniWrite, %FilesURL%UpdaterX64Source.exe, NewVersion.ini, Version, LinkX64Source
}
else if(A_ThisLabel = "PublishAsBeta")
{
IniWrite, %BuildVersion%, NewVersion.ini, Version, BuildVersion
InputBox, Message, Enter Update Message, A new beta update is available. Download now?
IniWrite, %Message%, NewVersion.ini, Version, BetaUpdateMessage
IniWrite, %FilesURL%BetaUpdaterX86Binary.exe, NewVersion.ini, Version, BetaLinkX86
IniWrite, %FilesURL%BetaUpdaterX86Source.exe, NewVersion.ini, Version, BetaLinkX86Source
IniWrite, %FilesURL%BetaUpdaterX64Binary.exe, NewVersion.ini, Version, BetaLinkX64
IniWrite, %FilesURL%BetaUpdaterX64Source.exe, NewVersion.ini, Version, BetaLinkX64Source
}
if(A_ThisLabel != "Build")
{
;Create the event patch file required for the autoupdater.
;The user of this script needs to select the event file version this patch should use as a base.
fd := new CFileDialog("Open")
fd.Filter := "*.xml"
fd.InitialDirectory := A_ScriptDir "\Events"
fd.Title := "Select old ""All Events.xml"" file to generate the events patch file."
if(!fd.Show())
return
run % """" A_AhkPath """ """ A_ScriptDir "\CreateEventPatch.ahk"" """ fd.Filename """ """ A_ScriptDir "\Events\All Events.xml"""
}
;Create updates for all configurations
CreateUpdate("X86", "Source")
CreateUpdate("X86", "Binary")
CreateUpdate("X64", "Source")
CreateUpdate("X64", "Binary")
;And start 7plus again if it was running before
if(running)
run, %A_ScriptDir%\7plus.ahk
ExitApp
return
GuiEscape:
GuiClose:
ExitApp
;Called to create .zip and Autoupdate executable files for a build configuration
;Everything is temporarily copied to %A_TEMP%\7plusUpdateCreator
CreateUpdate(Platform, Version)
{
global 7plusVersion
;Clean up first
FileRemoveDir, %A_TEMP%\7plusUpdateCreator, 1
FileCreateDir, %A_TEMP%\7plusUpdateCreator
FileDelete, Updater.exe
FileDelete, Update.zip
;Copy binary image of AHK_L for the compiler
if(Platform = "X86")
FileCopy, %A_ProgramFiles%\Autohotkey\Compiler\AutoHotkeySC_UNICODE_32.bin, %A_ProgramFiles%\Autohotkey\Compiler\AutoHotkeySC.bin, 1
else
FileCopy, %A_ProgramFiles%\Autohotkey\Compiler\AutoHotkeySC_UNICODE_64.bin, %A_ProgramFiles%\Autohotkey\Compiler\AutoHotkeySC.bin, 1
;Compile 7plus and Uninstaller
if(Version = "Binary")
{
RunWait, %A_ProgramFiles%\Autohotkey\Compiler\Compile_AHK.exe /nogui "%A_ScriptDir%\7plus.ahk"
Sleep 1500
}
;Uninstaller is always compiled
RunWait, %A_ProgramFiles%\Autohotkey\Compiler\Compile_AHK.exe /nogui "%A_ScriptDir%\Uninstall.ahk"
Sleep 1500
;Copy all other files
FolderLoop(Platform, Version)
;Zip them
RunWait, 7za.exe a -y "%a_scriptdir%\update.zip" "%A_TEMP%\7plusUpdateCreator\*", %a_scriptdir%,Hide
;Generate update script
WriteUpdater()
if(!FileExist(A_Scriptdir "\update.zip"))
MsgBox, update.zip doesn't exist!
;Compile updater
RunWait, %A_ProgramFiles%\Autohotkey\Compiler\Compile_AHK.exe /nogui "%A_ScriptDir%\Updater.ahk"
Sleep 2000
if(!FileExist(A_Scriptdir "\updater.exe"))
MsgBox updater.exe doesn't exist!
;Cleanup and move resulting files
FileRemoveDir, %A_TEMP%\7plusUpdateCreator,1
FileMove, %a_scriptdir%\update.zip, %A_ScriptDir%\7plus V.%7plusVersion% %Platform% %Version%.zip, 1
FileMove, %A_ScriptDir%\Updater.exe, %A_ScriptDir%\Updater%Platform%%Version%.exe, 1
}
;Copies all relevant files for the update to %A_Temp%\7plusUpdateCreator
FolderLoop(Platform, Version)
{
global 7plusVersion
;Copy matching autohotkey binary files and Dlls of the correct bitness
DllTargetPath := Platform = "X86" ? A_TEMP "\7plusUpdateCreator\lib" : A_TEMP "\7plusUpdateCreator\lib\x64"
DllSourcePath := Platform = "X86" ? A_ScriptDir "\lib" : A_ScriptDir "\lib\x64"
FileCreateDir, %DllTargetPath%
FileCopy, %DllSourcePath%\ShellExtension.dll, %DllTargetPath%, 1
FileCopy, %DllSourcePath%\sqlite3.dll, %DllTargetPath%, 1
FileCopy, %DllSourcePath%\Explorer.dll, %DllTargetPath%, 1
FileCopy, %DllSourcePath%\FileSearch.dll, %DllTargetPath%, 1
FileCopy, %DllSourcePath%\SetACL.exe, %DllTargetPath%, 1
;Now loop over the 7plus directory and copy all other needed files
SkipNameList := ["7plusGApps.png", ".gitignore", "7za.exe", "Version.ini", "Autohotkey.exe", "Explorer.dll", "sqlite3.dll", "SetACL", "AU3_Spy.exe", "7+-128.ico", "Uninstall.ico", "Donate.ico", "Improvements.txt", "PatchInfo.xml"]
SkipExtList := ["ini","bak","html","bin","zip","svg","log", "pdf", "md"]
SkipPathList := [".git", "To be implemented\", "Old Versions", "Tools\", "Winspector", "DebugView", ".svn", "Compiler", "Explorer\Explorer", "x64\", "x86\", "Patches\", "DefaultConfig\", "ShellExtension", "tests\", "CreateEventPatch", "SubEventBackup", "NewSettings", "Kopie", "UpdateCreator"]
Loop *.*, 0, 1 ;Find files which should be included
{
if(SkipNameList.IndexOf(A_LoopFileName))
continue
if(SkipExtList.IndexOf(A_LoopFileExt))
continue
index := ""
for index, Path in SkipPathList
if(InStr(A_LoopFileLongPath, Path))
continue 2
if(Version = "Binary" && A_LoopFileExt = "ahk")
continue
if(Version = "Source" && A_LoopFileName = "7plus.exe")
continue
if(InStr(A_LoopFileName, "Update") && !InStr(A_LoopFileName, "AutoUpdate"))
continue
if(InStr(A_LoopFileFullPath, "ReleasePatch\") && !InStr(A_LoopFileName, 7plusVersion)) ;Skip release patches for wrong 7plus version
continue
if(A_LoopFileExt = "xml") ;Remove german folder/file names
{
FileRead, content, %A_LoopFileFullPath%
StringReplace, content, content,<Filename>Neues Textdokument.txt</Filename>`r`n
StringReplace, content, content,<FolderName>Neuer Ordner</FolderName>`r`n
FileDelete, %A_LoopFileFullPath%
FileAppend, %content%, %A_LoopFileFullPath%
}
FileCreateDir %A_Temp%\7plusUpdateCreator\%A_LoopFileDir%
FileCopy, %A_LoopFileLongPath%, %A_Temp%\7plusUpdateCreator\%A_LoopFileFullPath%, 1
}
FileCopy, %A_ScriptDir%\%Platform%\*, %A_Temp%\7plusUpdateCreator, 1
}
;Write the script which is executed on the client side
WriteUpdater()
{
FileDelete %A_scriptdir%\Updater.ahk
FileAppend, #NoTrayIcon`n, %A_scriptdir%\Updater.ahk
FileAppend, if(!A_IsCompiled)`n, %A_scriptdir%\Updater.ahk ;Make sure that only the compiled version can be executed
FileAppend, `tExitApp`n, %A_scriptdir%\Updater.ahk
FileAppend, SetWorkingDir `%A_Temp`%\7plus`n, %A_scriptdir%\Updater.ahk
FileAppend, IniRead`, ConfigPath`, `%A_Temp`%\7plus\Update.ini`, Update`, ConfigPath`, `%A_AppData`%\7plus`n, %A_scriptdir%\Updater.ahk
FileAppend, IniRead`, ScriptDir`, `%A_Temp`%\7plus\Update.ini`, Update`, ScriptDir`, `%A_ProgramFiles`%\7plus`n,%A_scriptdir%\Updater.ahk
FileAppend, Progress zh0 fs18`, Updating, please wait.`n, %A_scriptdir%\Updater.ahk
FileAppend, FileInstall`, %A_scriptdir%\Update.zip`, Update.zip`,1`n, %A_scriptdir%\Updater.ahk ;%A_scriptdir% mustn't be dynamic for FileInstall -> no quotes
FileAppend, FileInstall`, %A_scriptdir%\7za.exe`, 7za.exe`,1`n, %A_scriptdir%\Updater.ahk ;%A_scriptdir% mustn't be dynamic for FileInstall -> no quotes
FileAppend, run regsvr32 /s /u "`%ScriptDir`%\ShellExtension.dll"`n, %A_scriptdir%\Updater.ahk ;Unregister context menu shell extension. It will get reregistered in PostUpdate()
FileAppend, runwait 7za.exe x Update.zip -y -o`%A_Temp`%\7plus\Update`, `%A_Temp`%\7plus`, hide`n, %A_scriptdir%\Updater.ahk
FileAppend, FileMoveDir`, `%A_Temp`%\7plus\Update\Patches`, `%ConfigPath`%\Patches`, 2`n, %A_scriptdir%\Updater.ahk
; First move all the files (but not the folders):
FileAppend, FileMove`, `%A_Temp`%\7plus\Update`, `%ScriptDir`%`, 1`n, %A_scriptdir%\Updater.ahk
; Now move all the folders:
FileAppend, Loop`, `%A_Temp`%\7plus\Update\*.*`, 2`n, %A_scriptdir%\Updater.ahk
FileAppend, FileMoveDir`, `%A_LoopFileFullPath`%`, `%ScriptDir`%\`%A_LoopFileName`%`, 2`n, %A_scriptdir%\Updater.ahk
FileAppend, FileDelete 7za.exe`n, %A_scriptdir%\Updater.ahk
FileAppend, FileDelete Update.zip`n, %A_scriptdir%\Updater.ahk
FileAppend, FileMoveDir `%A_Temp`%\7plus\Update\ReleasePatch`,`%A_Temp`%\7plus\ReleasePatch`, 2`n, %A_scriptdir%\Updater.ahk
FileAppend, if(FileExist(ScriptDir "\7plus.ahk"))`n, %A_scriptdir%\Updater.ahk
FileAppend, `trun `%ScriptDir`%\7plus.ahk`n, %A_scriptdir%\Updater.ahk
FileAppend, else if(FileExist(ScriptDir "\7plus.exe"))`n, %A_scriptdir%\Updater.ahk
FileAppend, `trun `%ScriptDir`%\7plus.exe`n, %A_scriptdir%\Updater.ahk
FileAppend, ExitApp, %A_scriptdir%\Updater.ahk
}
#include <RichObject>
#include <CFileDialog>
#include <Array>