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