Révision 3503
TXM/trunk/org.txm.setups/shared/win/messages.nsi (revision 3503) | ||
---|---|---|
1 |
|
|
2 |
;Lang Strings ENGLISH |
|
3 |
LangString AdvancedOptionsTitle ${LANG_ENGLISH} "Advanced options" |
|
4 |
LangString AdvancedOptionsSubTitle ${LANG_ENGLISH} "Check these options only for specific Windows configurations" |
|
5 |
LangString LocalInstallMessage ${LANG_ENGLISH} "Do not use local user directory (check this option to use a roaming Windows account home directory)." |
|
6 |
|
|
7 |
LangString AskUserDirMessage ${LANG_ENGLISH} "Do not use the user directory to store the TXM working directory (check this option to store corpora on a USB stick or on a remote directory. In this case, the working directory path will be asked at each TXM launch)." |
|
8 |
|
|
9 |
LangString InfosTitleMessage ${LANG_ENGLISH} "For your information" |
|
10 |
|
|
11 |
LangString InfosTextMessage ${LANG_ENGLISH} "If TXM is already installed on this machine, it will first be removed by this installer (TXM corpora will NOT be removed).$\nClose the window to cancel installation.$\n$\nMinimum requirements: Windows 7 64bit" |
|
12 |
|
|
13 |
LangString WelcomeTitleMessage ${LANG_ENGLISH} "Welcome to TXM setup" |
|
14 |
|
|
15 |
LangString WelcomeTextMessage ${LANG_ENGLISH} "TXM is provided to you free of charge. In return, in the spirit of open-source software development, you are invited to participate in its improvement. To do this, you don't have to be a software developer, you can:$\n * send us your publications or course materials related to your use of TXM;$\n * suggest corrections or improvements;$\n * translate in your language the interface or documentation;$\n * Setup a research project involving TXM adaptation and use;$\n * etc.$\n$\n See the 'Contribute' page on the TXM users' wiki: https://groupes.renater.fr/wiki/txm-users/public/contribuer $\n$\n Don't hesitate to contact us for more information at 'textometrie AT groupes.renater DOT fr'." |
|
16 |
|
|
17 |
LangString FinishTitleMessage ${LANG_ENGLISH} "Installation done" |
|
18 |
|
|
19 |
LangString FinishTextMessage ${LANG_ENGLISH} "The installation is done. A 'TXM' entry has been added to the 'Start' menu.$\nIf you want to automatically tag and lemmatize your corpora with the TreeTagger software during import, you need to follow additional installation instructions given in the 'Help > Install TreeTagger' menu." |
|
20 |
|
|
21 |
LangString ErrorArch32Message ${LANG_ENGLISH} "This setup is for 32bit systems but your system seems to be 64bit. Please download and install the 64bit version of TXM for this machine. Continue to install anyway?" |
|
22 |
|
|
23 |
LangString ErrorArch64Message ${LANG_ENGLISH} "This setup is for 64bit systems but your system seems to be 32bit. Please download and install the 32bit version of TXM for this machine. Continue to install anyway?" |
|
24 |
|
|
25 |
LangString UninstallWindowsMessage ${LANG_ENGLISH} "TXM TXMVERSION is already installed on this machine.$\n$\nClick `OK` to uninstall the previous version first (TXM TXMVERSION corpora will NOT be removed).$\nOr click `Cancel` to abort this installation.$\nPlease ensure that no TXM TXMVERSION is running during the installation process." |
|
26 |
|
|
27 |
|
|
28 |
;Lang Strings FRENCH |
|
29 |
LangString AdvancedOptionsTitle ${LANG_FRENCH} "Options avancées" |
|
30 |
LangString AdvancedOptionsSubTitle ${LANG_FRENCH} "Ne cocher ces options que pour des configurations Windows particulières" |
|
31 |
LangString LocalInstallMessage ${LANG_FRENCH} "Ne pas utiliser le répertoire utilisateur local (cocher cette option si vous souhaitez utiliser un répertoire de connexion de compte itinérant)." |
|
32 |
|
|
33 |
LangString AskUserDirMessage ${LANG_FRENCH} "Ne pas utiliser le répertoire utilisateur comme répertoire de travail de TXM (cocher cette option pour stocker les corpus sur une clé USB ou sur un disque distant. Dans ce cas, le chemin du répertoire de travail sera demandé chaque lancement de TXM)." |
|
34 |
|
|
35 |
LangString InfosTitleMessage ${LANG_FRENCH} "Pour votre information" |
|
36 |
|
|
37 |
LangString InfosTextMessage ${LANG_FRENCH} "Si TXM est déjà installé sur cette machine, cet installeur le supprimera pour commencer (les corpus existants ne seront pas supprimés). Pour annuler l'installation, vous pouvez fermer cette fenêtre.$\n$\nConfiguration minimum: Windows Vista 64bit" |
|
38 |
|
|
39 |
LangString WelcomeTitleMessage ${LANG_FRENCH} "Bienvenue dans l'installeur de TXM" |
|
40 |
|
|
41 |
LangString WelcomeTextMessage ${LANG_FRENCH} "TXM vous est fourni gracieusement. En contre-partie, dans l'esprit du logiciel libre, vous êtes invité à participer à son amélioration. Pour cela, vous n'êtes pas obligé d'être développeur informatique, vous pouvez :$\n * transmettre vos publications ou supports de cours ;$\n * proposer des corrections ou améliorations ;$\n * traduire l'interface ou la documentation ;$\n * monter un projet pour adapter TXM à vos besoins ;$\n * etc.$\n$\n Voir la rubrique 'Contribuer' du wiki des utilisateurs de TXM : https://groupes.renater.fr/wiki/txm-users/public/contribuer $\n$\n N'hésitez pas à nous contacter pour de plus amples informations : 'textometrie AT groupes.renater DOT fr'." |
|
42 |
|
|
43 |
LangString FinishTitleMessage ${LANG_FRENCH} "Installation terminée." |
|
44 |
|
|
45 |
LangString FinishTextMessage ${LANG_FRENCH} "L'installation s'est correctement terminée. Une entrée 'TXM' a été ajoutée au menu Démarrer.$\n$\nSi vous souhaitez étiqueter et lemmatiser automatiquement vos corpus avec le logiciel TreeTagger lors de l'import, vous devez suivre les instructions d'installation supplémentaires fournies dans le menu 'Aide > Installer TreeTagger'." |
|
46 |
|
|
47 |
LangString ErrorArch32Message ${LANG_FRENCH} "La version de TXM que vous allez installer est pour un système 32 bits, or votre système semble être 64 bits. Il faudrait télécharger et installer la version 64 bits de TXM. Voulez-vous malgré tout continuer cette installation ?" |
|
48 |
|
|
49 |
LangString ErrorArch64Message ${LANG_FRENCH} "La version de TXM que vous allez installer est pour un système 64 bits, or votre système semble être 32 bits. Il faudrait télécharger et installer la version 32 bits de TXM. Voulez-vous malgré tout continuer cette installation ?" |
|
50 |
|
|
51 |
LangString UninstallWindowsMessage ${LANG_FRENCH} "TXM TXMVERSION est déjà installé sur cette machine. Veuillez cliquer sur 'OK' pour désinstaller cette version au préalable (les corpus seront conservés). Ou cliquez sur 'Annuler' pour interrompre l'installation. Merci de vous assurer que TXM TXMVERSION n'est pas en cours d'exécution pendant l'installation." |
|
52 |
|
|
53 |
;END OF LANG MESSAGES |
TXM/trunk/org.txm.setups/shared/win/txm.nsi (revision 3503) | ||
---|---|---|
1 | 1 |
Unicode True |
2 | 2 |
|
3 | 3 |
!include MUI2.nsh |
4 |
|
|
5 | 4 |
!include nsDialogs.nsh |
6 |
|
|
7 | 5 |
!include LogicLib.nsh |
8 | 6 |
|
7 |
!include txmfunctions.nsi |
|
8 |
|
|
9 | 9 |
;general |
10 | 10 |
|
11 | 11 |
Name "TXM TXMVERSION" |
12 | 12 |
|
13 |
;!define Version "" |
|
14 | 13 |
!define Version "-TXMVERSION" |
15 | 14 |
|
16 | 15 |
OutFile "../TXM_TXMDATEVERSION_Win64_installer.exe" |
... | ... | |
19 | 18 |
|
20 | 19 |
;RequestExecutionLevel admin |
21 | 20 |
|
22 |
;compression |
|
21 |
;compression options set in the build command line
|
|
23 | 22 |
|
24 |
;SetCompressor /FINAL /SOLID lzma |
|
25 |
|
|
26 |
;SetCompressorDictSize 64 |
|
27 |
|
|
28 |
|
|
29 | 23 |
;interface configuration |
30 | 24 |
|
31 | 25 |
!define MUI_HEADERIMAGE |
32 |
|
|
33 | 26 |
!define MUI_HEADERIMAGE_RIGHT |
34 |
|
|
35 | 27 |
!define MUI_HEADERIMAGE_BITMAP "header.bmp" |
36 |
|
|
37 | 28 |
!define MUI_HEADERIMAGE_UNBITMAP "header.bmp" |
38 |
|
|
39 | 29 |
!define MUI_ICON "install.ico" |
40 |
|
|
41 | 30 |
!define MUI_UNICON "uninstall.ico" |
42 |
|
|
43 | 31 |
!define MUI_WELCOMEFINISHPAGE_BITMAP "welcome.bmp" ; optional |
44 | 32 |
|
45 | 33 |
|
... | ... | |
58 | 46 |
|
59 | 47 |
!define MUI_FINISHPAGE_TEXT $(FinishTextMessage) |
60 | 48 |
|
61 |
|
|
62 | 49 |
;pages |
63 | 50 |
|
64 |
|
|
65 | 51 |
!insertmacro MUI_PAGE_WELCOME |
66 | 52 |
|
67 | 53 |
;!insertmacro MUI_PAGE_LICENSE "license_agreement.txt" |
68 | 54 |
!insertmacro MUI_PAGE_DIRECTORY |
69 | 55 |
|
70 |
Page Custom MyCustomPage MyCustomLeave
|
|
56 |
Page Custom SpecialOptionsPage SpecialOptionsLeavePage
|
|
71 | 57 |
Var Dialog |
72 | 58 |
Var Checkbox1 |
73 | 59 |
|
... | ... | |
75 | 61 |
Var Checkbox2 |
76 | 62 |
|
77 | 63 |
Var CheckState2 ; Stored globally so we remember the choice if the user presses the back button and goes back to our page |
78 |
Function MyCustomPage
|
|
64 |
Function SpecialOptionsPage
|
|
79 | 65 |
!insertmacro MUI_HEADER_TEXT $(AdvancedOptionsTitle) $(AdvancedOptionsSubTitle) |
80 | 66 |
|
81 | 67 |
nsDialogs::Create 1018 |
... | ... | |
98 | 84 |
nsDialogs::Show |
99 | 85 |
FunctionEnd |
100 | 86 |
|
101 |
Function MyCustomLeave
|
|
87 |
Function SpecialOptionsLeavePage
|
|
102 | 88 |
${NSD_GetState} $Checkbox1 $CheckState1 |
103 | 89 |
|
104 | 90 |
${If} $CheckState1 <> 0 |
... | ... | |
125 | 111 |
|
126 | 112 |
!insertmacro MUI_PAGE_FINISH |
127 | 113 |
|
114 |
;Languages (must be set after calling the MUI_(UN)PAGE) |
|
128 | 115 |
|
129 |
;Languages |
|
130 |
|
|
131 | 116 |
!insertmacro MUI_LANGUAGE "English" |
132 | 117 |
!insertmacro MUI_LANGUAGE "French" |
133 | 118 |
!insertmacro MUI_LANGUAGE "Russian" |
134 | 119 |
|
135 |
;Lang Strings ENGLISH |
|
136 |
LangString AdvancedOptionsTitle ${LANG_ENGLISH} "Advanced options" |
|
137 |
LangString AdvancedOptionsSubTitle ${LANG_ENGLISH} "Check these options only for specific Windows configurations" |
|
138 |
LangString LocalInstallMessage ${LANG_ENGLISH} "Do not use local user directory (check this option to use a roaming Windows account home directory)." |
|
120 |
!include messages.nsi |
|
139 | 121 |
|
140 |
LangString AskUserDirMessage ${LANG_ENGLISH} "Do not use the user directory to store the TXM working directory (check this option to store corpora on a USB stick or on a remote directory. In this case, the working directory path will be asked at each TXM launch)." |
|
141 |
|
|
142 |
LangString InfosTitleMessage ${LANG_ENGLISH} "For your information" |
|
143 |
|
|
144 |
LangString InfosTextMessage ${LANG_ENGLISH} "If TXM is already installed on this machine, it will first be removed by this installer (TXM corpora will NOT be removed).$\nClose the window to cancel installation.$\n$\nMinimum requirements: Windows 7 64bit" |
|
145 |
|
|
146 |
LangString WelcomeTitleMessage ${LANG_ENGLISH} "Welcome to TXM setup" |
|
147 |
|
|
148 |
LangString WelcomeTextMessage ${LANG_ENGLISH} "TXM is provided to you free of charge. In return, in the spirit of open-source software development, you are invited to participate in its improvement. To do this, you don't have to be a software developer, you can:$\n * send us your publications or course materials related to your use of TXM;$\n * suggest corrections or improvements;$\n * translate in your language the interface or documentation;$\n * Setup a research project involving TXM adaptation and use;$\n * etc.$\n$\n See the 'Contribute' page on the TXM users' wiki: https://groupes.renater.fr/wiki/txm-users/public/contribuer $\n$\n Don't hesitate to contact us for more information at 'textometrie AT groupes.renater DOT fr'." |
|
149 |
|
|
150 |
LangString FinishTitleMessage ${LANG_ENGLISH} "Installation done" |
|
151 |
|
|
152 |
LangString FinishTextMessage ${LANG_ENGLISH} "The installation is done. A 'TXM' entry has been added to the 'Start' menu.$\nIf you want to automatically tag and lemmatize your corpora with the TreeTagger software during import, you need to follow additional installation instructions given in the 'Help > Install TreeTagger' menu." |
|
153 |
|
|
154 |
LangString ErrorArch32Message ${LANG_ENGLISH} "This setup is for 32bit systems but your system seems to be 64bit. Please download and install the 64bit version of TXM for this machine. Continue to install anyway?" |
|
155 |
|
|
156 |
LangString ErrorArch64Message ${LANG_ENGLISH} "This setup is for 64bit systems but your system seems to be 32bit. Please download and install the 32bit version of TXM for this machine. Continue to install anyway?" |
|
157 |
|
|
158 |
LangString UninstallWindowsMessage ${LANG_ENGLISH} "TXM TXMVERSION is already installed on this machine.$\n$\nClick `OK` to uninstall the previous version first (TXM TXMVERSION corpora will NOT be removed).$\nOr click `Cancel` to abort this installation.$\nPlease ensure that no TXM TXMVERSION is running during the installation process." |
|
159 |
|
|
160 |
|
|
161 |
;Lang Strings FRENCH |
|
162 |
LangString AdvancedOptionsTitle ${LANG_FRENCH} "Options avanc?es" |
|
163 |
LangString AdvancedOptionsSubTitle ${LANG_FRENCH} "Ne cocher ces options que pour des configurations Windows particuli?res" |
|
164 |
LangString LocalInstallMessage ${LANG_FRENCH} "Ne pas utiliser le r?pertoire utilisateur local (cocher cette option si vous souhaitez utiliser un r?pertoire de connexion de compte itin?rant)." |
|
165 |
|
|
166 |
LangString AskUserDirMessage ${LANG_FRENCH} "Ne pas utiliser le r?pertoire utilisateur comme r?pertoire de travail de TXM (cocher cette option pour stocker les corpus sur une cl? USB ou sur un disque distant. Dans ce cas, le chemin du r?pertoire de travail sera demand? chaque lancement de TXM)." |
|
167 |
|
|
168 |
LangString InfosTitleMessage ${LANG_FRENCH} "Pour votre information" |
|
169 |
|
|
170 |
LangString InfosTextMessage ${LANG_FRENCH} "Si TXM est d?j? install? sur cette machine, cet installeur le supprimera pour commencer (les corpus existants ne seront pas supprim?s). Pour annuler l'installation, vous pouvez fermer cette fen?tre.$\n$\nConfiguration minimum: Windows Vista 64bit" |
|
171 |
|
|
172 |
LangString WelcomeTitleMessage ${LANG_FRENCH} "Bienvenue dans l'installeur de TXM" |
|
173 |
|
|
174 |
LangString WelcomeTextMessage ${LANG_FRENCH} "TXM vous est fourni gracieusement. En contre-partie, dans l'esprit du logiciel libre, vous ?tes invit? ? participer ? son am?lioration. Pour cela, vous n'?tes pas oblig? d'?tre d?veloppeur informatique, vous pouvez :$\n * transmettre vos publications ou supports de cours ;$\n * proposer des corrections ou am?liorations ;$\n * traduire l'interface ou la documentation ;$\n * monter un projet pour adapter TXM ? vos besoins ;$\n * etc.$\n$\n Voir la rubrique 'Contribuer' du wiki des utilisateurs de TXM : https://groupes.renater.fr/wiki/txm-users/public/contribuer $\n$\n N'h?sitez pas ? nous contacter pour de plus amples informations : 'textometrie AT groupes.renater DOT fr'." |
|
175 |
|
|
176 |
LangString FinishTitleMessage ${LANG_FRENCH} "Installation termin?e." |
|
177 |
|
|
178 |
LangString FinishTextMessage ${LANG_FRENCH} "L'installation s'est correctement termin?e. Une entr?e 'TXM' a ?t? ajout?e au menu D?marrer.$\n$\nSi vous souhaitez ?tiqueter et lemmatiser automatiquement vos corpus avec le logiciel TreeTagger lors de l'import, vous devez suivre les instructions d'installation suppl?mentaires fournies dans le menu 'Aide > Installer TreeTagger'." |
|
179 |
|
|
180 |
LangString ErrorArch32Message ${LANG_FRENCH} "La version de TXM que vous allez installer est pour un syst?me 32 bits, or votre syst?me semble ?tre 64 bits. Il faudrait t?l?charger et installer la version 64 bits de TXM. Voulez-vous malgr? tout continuer cette installation ?" |
|
181 |
|
|
182 |
LangString ErrorArch64Message ${LANG_FRENCH} "La version de TXM que vous allez installer est pour un syst?me 64 bits, or votre syst?me semble ?tre 32 bits. Il faudrait t?l?charger et installer la version 32 bits de TXM. Voulez-vous malgr? tout continuer cette installation ?" |
|
183 |
|
|
184 |
LangString UninstallWindowsMessage ${LANG_FRENCH} "TXM TXMVERSION est d?j? install? sur cette machine. Veuillez cliquer sur 'OK' pour d?sinstaller cette version au pr?alable (les corpus seront conserv?s). Ou cliquez sur 'Annuler' pour interrompre l'installation. Merci de vous assurer que TXM TXMVERSION n'est pas en cours d'ex?cution pendant l'installation." |
|
185 |
|
|
186 |
;END OF LANG MESSAGES |
|
187 |
|
|
188 |
|
|
189 | 122 |
Function .onInit |
190 | 123 |
|
191 | 124 |
;!insertmacro MUI_LANGDLL_DISPLAY |
192 | 125 |
|
193 | 126 |
|
194 |
setOutPath $INSTDIR |
|
127 |
setOutPath $INSTDIR
|
|
195 | 128 |
|
196 | 129 |
|
197 | 130 |
ReadRegStr $R0 HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\TXM${Version}" "UninstallString" |
... | ... | |
298 | 231 |
|
299 | 232 |
WriteUninstaller "$INSTDIR\uninstall.exe" |
300 | 233 |
|
301 |
|
|
302 |
|
|
303 | 234 |
SectionEnd |
304 | 235 |
|
305 |
Function WriteToFile |
|
306 | 236 |
|
307 |
Exch $0 ;file to write to |
|
308 |
|
|
309 |
Exch |
|
310 |
|
|
311 |
Exch $1 ;text to write |
|
312 |
|
|
313 |
FileOpen $0 $0 a #open file |
|
314 |
|
|
315 |
FileSeek $0 0 END #go to end |
|
316 |
|
|
317 |
FileWrite $0 $1 #write to file |
|
318 |
|
|
319 |
FileClose $0 |
|
320 |
|
|
321 |
Pop $1 |
|
322 |
|
|
323 |
Pop $0 |
|
324 |
|
|
325 |
FunctionEnd |
|
326 |
|
|
327 |
|
|
328 |
### TimeStamp |
|
329 |
|
|
330 |
!ifndef TimeStamp |
|
331 |
|
|
332 |
!define TimeStamp "!insertmacro _TimeStamp" |
|
333 |
|
|
334 |
!macro _TimeStamp FormatedString |
|
335 |
|
|
336 |
!ifdef __UNINSTALL__ |
|
337 |
|
|
338 |
Call un.__TimeStamp |
|
339 |
|
|
340 |
!else |
|
341 |
|
|
342 |
Call __TimeStamp |
|
343 |
|
|
344 |
!endif |
|
345 |
|
|
346 |
Pop ${FormatedString} |
|
347 |
|
|
348 |
!macroend |
|
349 |
|
|
350 |
|
|
351 |
!macro __TimeStamp UN |
|
352 |
|
|
353 |
|
|
354 |
Function ${UN}__TimeStamp |
|
355 |
|
|
356 |
ClearErrors |
|
357 |
|
|
358 |
## Store the needed Registers on the stack |
|
359 |
|
|
360 |
Push $0 ; Stack $0 |
|
361 |
|
|
362 |
Push $1 ; Stack $1 $0 |
|
363 |
|
|
364 |
Push $2 ; Stack $2 $1 $0 |
|
365 |
|
|
366 |
Push $3 ; Stack $3 $2 $1 $0 |
|
367 |
|
|
368 |
Push $4 ; Stack $4 $3 $2 $1 $0 |
|
369 |
|
|
370 |
Push $5 ; Stack $5 $4 $3 $2 $1 $0 |
|
371 |
|
|
372 |
Push $6 ; Stack $6 $5 $4 $3 $2 $1 $0 |
|
373 |
|
|
374 |
Push $7 ; Stack $7 $6 $5 $4 $3 $2 $1 $0 |
|
375 |
|
|
376 |
;Push $8 ; Stack $8 $7 $6 $5 $4 $3 $2 $1 $0 |
|
377 |
|
|
378 |
|
|
379 |
## Call System API to get the current system Time |
|
380 |
|
|
381 |
System::Alloc 16 |
|
382 |
|
|
383 |
Pop $0 |
|
384 |
|
|
385 |
System::Call 'kernel32::GetLocalTime(i) i(r0)' |
|
386 |
|
|
387 |
System::Call '*$0(&i2, &i2, &i2, &i2, &i2, &i2, &i2, &i2)i (.r1, .r2, n, .r3, .r4, .r5, .r6, .r7)' |
|
388 |
|
|
389 |
System::Free $0 |
|
390 |
|
|
391 |
|
|
392 |
IntFmt $2 "%02i" $2 |
|
393 |
|
|
394 |
IntFmt $3 "%02i" $3 |
|
395 |
|
|
396 |
IntFmt $4 "%02i" $4 |
|
397 |
|
|
398 |
IntFmt $5 "%02i" $5 |
|
399 |
|
|
400 |
IntFmt $6 "%02i" $6 |
|
401 |
|
|
402 |
|
|
403 |
## Generate Timestamp |
|
404 |
|
|
405 |
;StrCpy $0 "YEAR=$1$\nMONTH=$2$\nDAY=$3$\nHOUR=$4$\nMINUITES=$5$\nSECONDS=$6$\nMS$7" |
|
406 |
|
|
407 |
StrCpy $0 "$1$2$3$4$5$6.$7" |
|
408 |
|
|
409 |
|
|
410 |
## Restore the Registers and add Timestamp to the Stack |
|
411 |
|
|
412 |
;Pop $8 ; Stack $7 $6 $5 $4 $3 $2 $1 $0 |
|
413 |
|
|
414 |
Pop $7 ; Stack $6 $5 $4 $3 $2 $1 $0 |
|
415 |
|
|
416 |
Pop $6 ; Stack $5 $4 $3 $2 $1 $0 |
|
417 |
|
|
418 |
Pop $5 ; Stack $4 $3 $2 $1 $0 |
|
419 |
|
|
420 |
Pop $4 ; Stack $3 $2 $1 $0 |
|
421 |
|
|
422 |
Pop $3 ; Stack $2 $1 $0 |
|
423 |
|
|
424 |
Pop $2 ; Stack $1 $0 |
|
425 |
|
|
426 |
Pop $1 ; Stack $0 |
|
427 |
|
|
428 |
Exch $0 ; Stack ${TimeStamp} |
|
429 |
|
|
430 |
|
|
431 |
FunctionEnd |
|
432 |
|
|
433 |
!macroend |
|
434 |
|
|
435 |
!insertmacro __TimeStamp "" |
|
436 |
|
|
437 |
!insertmacro __TimeStamp "un." |
|
438 |
|
|
439 |
!endif |
|
440 |
|
|
441 |
########### |
|
442 |
|
|
443 |
|
|
444 | 237 |
Section "WriteInstallStamp" secStamp |
445 | 238 |
|
446 | 239 |
${TimeStamp} $0 |
TXM/trunk/org.txm.setups/shared/win/txmfunctions.nsi (revision 3503) | ||
---|---|---|
1 |
|
|
2 |
Function WriteToFile |
|
3 |
|
|
4 |
Exch $0 ;file to write to |
|
5 |
|
|
6 |
Exch |
|
7 |
|
|
8 |
Exch $1 ;text to write |
|
9 |
|
|
10 |
FileOpen $0 $0 a #open file |
|
11 |
|
|
12 |
FileSeek $0 0 END #go to end |
|
13 |
|
|
14 |
FileWrite $0 $1 #write to file |
|
15 |
|
|
16 |
FileClose $0 |
|
17 |
|
|
18 |
Pop $1 |
|
19 |
|
|
20 |
Pop $0 |
|
21 |
|
|
22 |
FunctionEnd |
|
23 |
|
|
24 |
|
|
25 |
### TimeStamp |
|
26 |
|
|
27 |
!ifndef TimeStamp |
|
28 |
|
|
29 |
!define TimeStamp "!insertmacro _TimeStamp" |
|
30 |
|
|
31 |
!macro _TimeStamp FormatedString |
|
32 |
|
|
33 |
!ifdef __UNINSTALL__ |
|
34 |
|
|
35 |
Call un.__TimeStamp |
|
36 |
|
|
37 |
!else |
|
38 |
|
|
39 |
Call __TimeStamp |
|
40 |
|
|
41 |
!endif |
|
42 |
|
|
43 |
Pop ${FormatedString} |
|
44 |
|
|
45 |
!macroend |
|
46 |
|
|
47 |
|
|
48 |
!macro __TimeStamp UN |
|
49 |
|
|
50 |
|
|
51 |
Function ${UN}__TimeStamp |
|
52 |
|
|
53 |
ClearErrors |
|
54 |
|
|
55 |
## Store the needed Registers on the stack |
|
56 |
|
|
57 |
Push $0 ; Stack $0 |
|
58 |
|
|
59 |
Push $1 ; Stack $1 $0 |
|
60 |
|
|
61 |
Push $2 ; Stack $2 $1 $0 |
|
62 |
|
|
63 |
Push $3 ; Stack $3 $2 $1 $0 |
|
64 |
|
|
65 |
Push $4 ; Stack $4 $3 $2 $1 $0 |
|
66 |
|
|
67 |
Push $5 ; Stack $5 $4 $3 $2 $1 $0 |
|
68 |
|
|
69 |
Push $6 ; Stack $6 $5 $4 $3 $2 $1 $0 |
|
70 |
|
|
71 |
Push $7 ; Stack $7 $6 $5 $4 $3 $2 $1 $0 |
|
72 |
|
|
73 |
;Push $8 ; Stack $8 $7 $6 $5 $4 $3 $2 $1 $0 |
|
74 |
|
|
75 |
|
|
76 |
## Call System API to get the current system Time |
|
77 |
|
|
78 |
System::Alloc 16 |
|
79 |
|
|
80 |
Pop $0 |
|
81 |
|
|
82 |
System::Call 'kernel32::GetLocalTime(i) i(r0)' |
|
83 |
|
|
84 |
System::Call '*$0(&i2, &i2, &i2, &i2, &i2, &i2, &i2, &i2)i (.r1, .r2, n, .r3, .r4, .r5, .r6, .r7)' |
|
85 |
|
|
86 |
System::Free $0 |
|
87 |
|
|
88 |
|
|
89 |
IntFmt $2 "%02i" $2 |
|
90 |
|
|
91 |
IntFmt $3 "%02i" $3 |
|
92 |
|
|
93 |
IntFmt $4 "%02i" $4 |
|
94 |
|
|
95 |
IntFmt $5 "%02i" $5 |
|
96 |
|
|
97 |
IntFmt $6 "%02i" $6 |
|
98 |
|
|
99 |
|
|
100 |
## Generate Timestamp |
|
101 |
|
|
102 |
;StrCpy $0 "YEAR=$1$\nMONTH=$2$\nDAY=$3$\nHOUR=$4$\nMINUITES=$5$\nSECONDS=$6$\nMS$7" |
|
103 |
|
|
104 |
StrCpy $0 "$1$2$3$4$5$6.$7" |
|
105 |
|
|
106 |
|
|
107 |
## Restore the Registers and add Timestamp to the Stack |
|
108 |
|
|
109 |
;Pop $8 ; Stack $7 $6 $5 $4 $3 $2 $1 $0 |
|
110 |
|
|
111 |
Pop $7 ; Stack $6 $5 $4 $3 $2 $1 $0 |
|
112 |
|
|
113 |
Pop $6 ; Stack $5 $4 $3 $2 $1 $0 |
|
114 |
|
|
115 |
Pop $5 ; Stack $4 $3 $2 $1 $0 |
|
116 |
|
|
117 |
Pop $4 ; Stack $3 $2 $1 $0 |
|
118 |
|
|
119 |
Pop $3 ; Stack $2 $1 $0 |
|
120 |
|
|
121 |
Pop $2 ; Stack $1 $0 |
|
122 |
|
|
123 |
Pop $1 ; Stack $0 |
|
124 |
|
|
125 |
Exch $0 ; Stack ${TimeStamp} |
|
126 |
|
|
127 |
|
|
128 |
FunctionEnd |
|
129 |
|
|
130 |
!macroend |
|
131 |
|
|
132 |
!insertmacro __TimeStamp "" |
|
133 |
|
|
134 |
!insertmacro __TimeStamp "un." |
|
135 |
|
|
136 |
!endif |
|
137 |
|
|
138 |
########### |
Formats disponibles : Unified diff