Added ThorUpdater folder and files

FoxBin2Prg.exe
2017-12-03 01:38:13 +01:00
parent af768fe7a1
commit 0bc191c2e9
10 changed files with 616 additions and 2 deletions
--- a/ThorUpdater/Version.txt
+++ b/ThorUpdater/Version.txt
@@ -0,0 +1,10 @@
+lparameters toUpdateObject
+local ldDate, ;
+	lnJulian, ;
+	lcJulian
+ldDate   = date()
+lnJulian = val(sys(11, ldDate)) - val(sys(11, {^2000-01-01}))
+lcJulian = padl(transform(lnJulian), 4, '0')
+toUpdateObject.AvailableVersion = 'APPNAME-MAJORVERSION' + lcJulian + ;
+	'-update-' + dtoc(ldDate, 1)
+return toUpdateObject