手頭有個項目需要修改PATH變量
需要 !include "EnvVarUpdate.nsh"
?
以下是NSIS腳本代碼
; Script generated by the HM NIS Edit Script Wizard.
!include "StrFunc.nsh"
; HM NIS Edit Wizard helper defines
!define PRODUCT_NAME "Setup_Wintech"
!define PRODUCT_VERSION "2.0"
!define PRODUCT_PUBLISHER "Wintech Digital Systems Technology Corp."
!define PRODUCT_WEB_SITE "http://www.wintechdigital.com"
!define PRODUCT_DIR_REGKEY "Software\Microsoft\Windows\CurrentVersion\App Paths\makensis.exe"
!define PRODUCT_UNINST_KEY "Software\Microsoft\Windows\CurrentVersion\Uninstall\${PRODUCT_NAME}"
!define PRODUCT_UNINST_ROOT_KEY "HKLM"
!define INSTALL_DIR_FILENAME "Wintech"
; MUI 1.67 compatible ------
!include "MUI.nsh"
!include "LogicLib.nsh"
!include "x64.nsh"
!include "EnvVarUpdate.nsh"
; MUI Settings
!define MUI_ABORTWARNING
!define MUI_ICON "${NSISDIR}\Contrib\Graphics\Icons\Wintech.ico"
!define MUI_UNICON "${NSISDIR}\Contrib\Graphics\Icons\Wintech.ico"
; Welcome page
!insertmacro MUI_PAGE_WELCOME
; License page
;!insertmacro MUI_PAGE_LICENSE "${NSISDIR}\License.txt"
; Directory page
!insertmacro MUI_PAGE_DIRECTORY
; Instfiles page
!insertmacro MUI_PAGE_INSTFILES
; Finish page
!define MUI_FINISHPAGE_RUN "$INSTDIR\bin\wlp_exe_gui.exe"
!insertmacro MUI_PAGE_FINISH
; Uninstaller pages
!insertmacro MUI_UNPAGE_INSTFILES
; Language files
!insertmacro MUI_LANGUAGE "English"
!echo "Testing"
; MUI end ------
RequestExecutionLevel admin
Name "${PRODUCT_NAME} ${PRODUCT_VERSION}"
OutFile "dlf_setup.exe"
InstallDir "$PROGRAMFILES\${INSTALL_DIR_FILENAME}"
InstallDirRegKey HKLM "${PRODUCT_DIR_REGKEY}" ""
ShowInstDetails show
ShowUnInstDetails show
Section "MainSection" SEC01
${EnvVarUpdate} $0 "PATH" "A" "HKLM" "$INSTDIR\bin" ; appends to the system path
SetOutPath "$INSTDIR"
SetOverwrite ifnewer
File "${NSISDIR}\makensis.exe"
CreateDirectory "$INSTDIR"
CreateShortCut "$SMPROGRAMS\${INSTALL_DIR_FILENAME}\${INSTALL_DIR_FILENAME}.lnk" "$INSTDIR\makensis.exe"
CreateShortCut "$DESKTOP\${INSTALL_DIR_FILENAME}.lnk" "$INSTDIR\makensis.exe"
File "${NSISDIR}\License.txt"
File /r "setup\*"
;Detect windows is 32bit or 64bit
${If} ${RunningX64}
; 64bit bits go here
Exec '"$INSTDIR\bin\driver\win7\Psexec.exe" -i -d -s "$INSTDIR\bin\driver\win7\install_wdf_driver.exe"'
;-i -d -s "$INSTDIR\bin\Driver\win7install_wdf_driver.exe"'
;Exec "$INSTDIR\bin\notepad2.exe"
ExecWait "$INSTDIR\bin\vs2010sp1vcredist.exe"
${Else}
; 32bit bits go here
Exec '"$INSTDIR\bin\driver\win7\Psexec.exe" -i -d -s "$INSTDIR\bin\driver\win7\install_wdf_driver.exe"'
ExecWait '"$INSTDIR\bin\vs2010sp1vcredist.exe"'
${EndIf}
SectionEnd
Section -AdditionalIcons
WriteIniStr "$INSTDIR\${PRODUCT_NAME}.url" "InternetShortcut" "URL" "${PRODUCT_WEB_SITE}"
CreateShortCut "$SMPROGRAMS\MyScript\Website.lnk" "$INSTDIR\${PRODUCT_NAME}.url"
CreateShortCut "$SMPROGRAMS\MyScript\Uninstall.lnk" "$INSTDIR\uninst.exe"
SectionEnd
Section -Post
WriteUninstaller "$INSTDIR\uninst.exe"
WriteRegStr HKLM "${PRODUCT_DIR_REGKEY}" "" "$INSTDIR\makensis.exe"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayName" "$(^Name)"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "UninstallString" "$INSTDIR\uninst.exe"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayIcon" "$INSTDIR\makensis.exe"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "DisplayVersion" "${PRODUCT_VERSION}"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "URLInfoAbout" "${PRODUCT_WEB_SITE}"
WriteRegStr ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}" "Publisher" "${PRODUCT_PUBLISHER}"
SectionEnd
Function un.onUninstSuccess
HideWindow
MessageBox MB_ICONINFORMATION|MB_OK "$(^Name) 已成功地從你的計算機移除。"
FunctionEnd
Function un.onInit
MessageBox MB_ICONQUESTION|MB_YESNO|MB_DEFBUTTON2 "你確實要完全移除 $(^Name) ，其及所有的組件？" IDYES +2
Abort
FunctionEnd
Section Uninstall
Delete "$INSTDIR\${PRODUCT_NAME}.url"
Delete "$INSTDIR\uninst.exe"
Delete "$INSTDIR\setup"
Delete "$INSTDIR\License.txt"
Delete "$INSTDIR\makensis.exe"
Delete "$SMPROGRAMS\${INSTALL_DIR_FILENAME}\Uninstall.lnk"
Delete "$SMPROGRAMS\${INSTALL_DIR_FILENAME}\Website.lnk"
Delete "$DESKTOP\${INSTALL_DIR_FILENAME}.lnk"
Delete "$SMPROGRAMS\${INSTALL_DIR_FILENAME}\${INSTALL_DIR_FILENAME}.lnk"
RMDir "$SMPROGRAMS\${INSTALL_DIR_FILENAME}"
RMDir "$INSTDIR"
DeleteRegKey ${PRODUCT_UNINST_ROOT_KEY} "${PRODUCT_UNINST_KEY}"
DeleteRegKey HKLM "${PRODUCT_DIR_REGKEY}"
SetAutoClose true
SectionEnd
?
?以下時EnvVarUpdate.nsh的代碼，需要拷貝到NSIS的include路徑下面才能用：
1
/**
2
*
EnvVarUpdate.nsh
3
* : Environmental Variables: append, prepend,
and
remove entries
4
*
5
*
WARNING: If you use StrFunc.nsh header then include it before this file
6
* with all required definitions. This
is
to avoid conflicts
7
*
8
*
Usage:
9
* ${EnvVarUpdate}
"
ResultVar
"
"
EnvVarName
"
"
Action
"
"
RegLoc
"
"
PathString
"
10
*
11
*
Credits:
12
* Version 1.0
13
* *
Cal Turney (turnec2)
14
* * Amir Szekely (KiCHiK)
and
e-circ
for
developing the forerunners of this
15
*
function: AddToPath, un.RemoveFromPath, AddToEnvVar, un.RemoveFromEnvVar,
16
* WriteEnvStr,
and
un.DeleteEnvStr
17
* * Diego Pedroso (deguix)
for
StrTok
18
* * Kevin English (kenglish_hi)
for
StrContains
19
* * Hendri Adriaens (Smile2Me), Diego Pedroso (deguix),
and
Dan Fuhry
20
* (dandaman32)
for
StrReplace
21
*
22
* Version 1.1
(compatibility with StrFunc.nsh)
23
* *
techtonik
24
*
25
* http://nsis.sourceforge.net/Environmental_Variables:_append%2C_prepend%
2C_and_remove_entries
26
*
27
*/
28
29
30
!ifndef ENVVARUPDATE_FUNCTION
31
!define ENVVARUPDATE_FUNCTION
32
!verbose push
33
!verbose 3
34
!include
"
LogicLib.nsh
"
35
!include
"
WinMessages.NSH
"
36
!include
"
StrFunc.nsh
"
37
38
; ---- Fix
for
conflict
if
StrFunc.nsh
is
already includes
in
main file -----------------------
39
!macro _IncludeStrFunction StrFuncName
40
!ifndef ${StrFuncName}_INCLUDED
41
${${StrFuncName}}
42
!endif
43
!ifndef Un${StrFuncName}_INCLUDED
44
${Un${StrFuncName}}
45
!endif
46
!define un.${StrFuncName}
"
${Un${StrFuncName}}
"
47
!macroend
48
49
!insertmacro _IncludeStrFunction StrTok
50
!insertmacro _IncludeStrFunction StrStr
51
!insertmacro _IncludeStrFunction StrRep
52
53
; ---------------------------------- Macro Definitions ----------------------------------------
54
!macro _EnvVarUpdateConstructor ResultVar EnvVarName Action Regloc PathString
55
Push
"
${EnvVarName}
"
56
Push
"
${Action}
"
57
Push
"
${RegLoc}
"
58
Push
"
${PathString}
"
59
Call EnvVarUpdate
60
Pop
"
${ResultVar}
"
61
!macroend
62
!define EnvVarUpdate
'
!insertmacro "_EnvVarUpdateConstructor"
'
63
64
!macro _unEnvVarUpdateConstructor ResultVar EnvVarName Action Regloc PathString
65
Push
"
${EnvVarName}
"
66
Push
"
${Action}
"
67
Push
"
${RegLoc}
"
68
Push
"
${PathString}
"
69
Call un.EnvVarUpdate
70
Pop
"
${ResultVar}
"
71
!macroend
72
!define un.EnvVarUpdate
'
!insertmacro "_unEnvVarUpdateConstructor"
'
73
; ---------------------------------- Macro Definitions end-------------------------------------
74
75
;----------------------------------- EnvVarUpdate start----------------------------------------
76
!define hklm_all_users
'
HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"
'
77
!define hkcu_current_user
'
HKCU "Environment"
'
78
79
!macro EnvVarUpdate UN
80
81
Function ${UN}EnvVarUpdate
82
83
Push $0
84
Exch 4
85
Exch $1
86
Exch 3
87
Exch $2
88
Exch 2
89
Exch $3
90
Exch
91
Exch $4
92
Push $5
93
Push $6
94
Push $7
95
Push $8
96
Push $9
97
Push $R0
98
99
/*
After this point:
100
-------------------------
101
$0 =
ResultVar (returned)
102
$1 =
EnvVarName (input)
103
$2 =
Action (input)
104
$3 =
RegLoc (input)
105
$4 =
PathString (input)
106
$5 = Orig EnvVar (read
from
registry)
107
$6 =
Len of $0 (temp)
108
$7 =
tempstr1 (temp)
109
$8 =
Entry counter (temp)
110
$9 =
tempstr2 (temp)
111
$R0 = tempChar (temp) */
112
113
; Step 1: Read contents of EnvVarName
from
RegLoc
114
;
115
; Check
for
empty EnvVarName
116
${If} $1 ==
""
117
SetErrors
118
DetailPrint
"
ERROR: EnvVarName is blank
"
119
Goto EnvVarUpdate_Restore_Vars
120
${EndIf}
121
122
; Check
for
valid Action
123
${If} $2 !=
"
A
"
124
${AndIf} $2 !=
"
P
"
125
${AndIf} $2 !=
"
R
"
126
SetErrors
127
DetailPrint
"
ERROR: Invalid Action - must be A, P, or R
"
128
Goto EnvVarUpdate_Restore_Vars
129
${EndIf}
130
131
${If} $3 ==
HKLM
132
ReadRegStr $5 ${hklm_all_users} $1 ; Get EnvVarName
from
all users into $5
133
${ElseIf} $3 ==
HKCU
134
ReadRegStr $5 ${hkcu_current_user} $1 ; Read EnvVarName
from
current user into $5
135
${Else}
136
SetErrors
137
DetailPrint
'
ERROR: Action is [$3] but must be "HKLM" or HKCU"
'
138
Goto EnvVarUpdate_Restore_Vars
139
${EndIf}
140
141
; Check
for
empty PathString
142
${If} $4 ==
""
143
SetErrors
144
DetailPrint
"
ERROR: PathString is blank
"
145
Goto EnvVarUpdate_Restore_Vars
146
${EndIf}
147
148
; Make sure we
'
ve got some work to do
149
${If} $5 ==
""
150
${AndIf} $2 ==
"
R
"
151
SetErrors
152
DetailPrint
"
$1 is empty - Nothing to remove
"
153
Goto EnvVarUpdate_Restore_Vars
154
${EndIf}
155
156
; Step 2
: Scrub EnvVar
157
;
158
StrCpy $0 $5
; Copy the contents to $0
159
; Remove spaces around semicolons (NOTE: spaces before the 1st entry
or
160
; after the last one are
not
removed here but instead
in
Step 3
)
161
${If} $0 !=
""
; If EnvVar
is
not
empty ...
162
${Do}
163
${${UN}StrStr} $7 $0
"
;
"
164
${If} $7 ==
""
165
${ExitDo}
166
${EndIf}
167
${${UN}StrRep} $0 $0
"
;
"
"
;
"
; Remove
'
<space>;
'
168
${Loop}
169
${Do}
170
${${UN}StrStr} $7 $0
"
;
"
171
${If} $7 ==
""
172
${ExitDo}
173
${EndIf}
174
${${UN}StrRep} $0 $0
"
;
"
"
;
"
; Remove
'
;<space>
'
175
${Loop}
176
${Do}
177
${${UN}StrStr} $7 $0
"
;;
"
178
${If} $7 ==
""
179
${ExitDo}
180
${EndIf}
181
${${UN}StrRep} $0 $0
"
;;
"
"
;
"
182
${Loop}
183
184
; Remove a leading
or
trailing semicolon
from
EnvVar
185
StrCpy $7 $0 1
0
186
${If} $7 ==
"
;
"
187
StrCpy $0 $0
""
1 ; Change
'
;<EnvVar>
'
to
'
<EnvVar>
'
188
${EndIf}
189
StrLen $6
$0
190
IntOp $6 $6 - 1
191
StrCpy $7 $0 1 $6
192
${If} $7 ==
"
;
"
193
StrCpy $0 $0 $6 ; Change
'
;<EnvVar>
'
to
'
<EnvVar>
'
194
${EndIf}
195
; DetailPrint
"
Scrubbed $1: [$0]
"
; Uncomment to debug
196
${EndIf}
197
198
/* Step 3. Remove all instances of the target path/string (even
if
"
A
"
or
"
P
"
)
199
$6 = bool flag (1 = found
and
removed PathString)
200
$7 =
a string (e.g. path) delimited by semicolon(s)
201
$8 =
entry counter starting at 0
202
$9 =
copy of $0
203
$R0 = tempChar */
204
205
${If} $5 !=
""
; If EnvVar
is
not
empty ...
206
StrCpy $9
$0
207
StrCpy $0
""
208
StrCpy $8
0
209
StrCpy $6
0
210
211
${Do}
212
${${UN}StrTok} $7 $9
"
;
"
$8
"
0
"
; $7 = next entry, $8 =
entry counter
213
214
${If} $7 ==
""
; If we
'
ve run out of entries,
215
${ExitDo} ; were done
216
${EndIf} ;
217
218
; Remove leading
and
trailing spaces
from
this entry (critical step
for
Action=
Remove)
219
${Do}
220
StrCpy $R0 $7 1
221
${If} $R0 !=
"
"
222
${ExitDo}
223
${EndIf}
224
StrCpy $7 $7
""
1
; Remove leading space
225
${Loop}
226
${Do}
227
StrCpy $R0 $7 1 -1
228
${If} $R0 !=
"
"
229
${ExitDo}
230
${EndIf}
231
StrCpy $7 $7 -1
; Remove trailing space
232
${Loop}
233
${If} $7 == $4 ; If string matches, remove it by
not
appending it
234
StrCpy $6 1 ; Set
'
found
'
flag
235
${ElseIf} $7 != $4
; If string does NOT match
236
${AndIf} $0 ==
""
;
and
the 1st string being added to $0,
237
StrCpy $0 $7
; copy it to $0 without a prepended semicolon
238
${ElseIf} $7 != $4
; If string does NOT match
239
${AndIf} $0 !=
""
;
and
this
is
NOT the 1st string to be added to $0,
240
StrCpy $0 $0;$7
; append path to $0 with a prepended semicolon
241
${EndIf} ;
242
243
IntOp $8 $8 + 1
; Bump counter
244
${Loop} ; Check
for
duplicates until we run out of paths
245
${EndIf}
246
247
; Step 4
: Perform the requested Action
248
;
249
${If} $2 !=
"
R
"
; If Append
or
Prepend
250
${If} $6 == 1 ; And
if
we found the target
251
DetailPrint
"
Target is already present in $1. It will be removed and
"
252
${EndIf}
253
${If} $0 ==
""
; If EnvVar
is
(now) empty
254
StrCpy $0 $4
; just copy PathString to EnvVar
255
${If} $6 == 0 ; If found flag
is
either 0
256
${OrIf} $6 ==
""
;
or
blank (
if
EnvVarName
is
empty)
257
DetailPrint
"
$1 was empty and has been updated with the target
"
258
${EndIf}
259
${ElseIf} $2 ==
"
A
"
; If Append (
and
EnvVar
is
not
empty),
260
StrCpy $0 $0;$4
; append PathString
261
${If} $6 == 1
262
DetailPrint
"
appended to $1
"
263
${Else}
264
DetailPrint
"
Target was appended to $1
"
265
${EndIf}
266
${Else} ; If Prepend (
and
EnvVar
is
not
empty),
267
StrCpy $0 $4
;$0 ; prepend PathString
268
${If} $6 == 1
269
DetailPrint
"
prepended to $1
"
270
${Else}
271
DetailPrint
"
Target was prepended to $1
"
272
${EndIf}
273
${EndIf}
274
${Else} ; If Action =
Remove
275
${If} $6 == 1 ;
and
we found the target
276
DetailPrint
"
Target was found and removed from $1
"
277
${Else}
278
DetailPrint
"
Target was NOT found in $1 (nothing to remove)
"
279
${EndIf}
280
${If} $0 ==
""
281
DetailPrint
"
$1 is now empty
"
282
${EndIf}
283
${EndIf}
284
285
; Step 5: Update the registry at RegLoc with the updated EnvVar
and
announce the change
286
;
287
ClearErrors
288
${If} $3 ==
HKLM
289
WriteRegExpandStr ${hklm_all_users} $1 $0 ; Write it
in
all users section
290
${ElseIf} $3 ==
HKCU
291
WriteRegExpandStr ${hkcu_current_user} $1
$0 ; Write it to current user section
292
${EndIf}
293
294
IfErrors 0 +4
295
MessageBox MB_OK|MB_ICONEXCLAMATION
"
Could not write updated $1 to $3
"
296
DetailPrint
"
Could not write updated $1 to $3
"
297
Goto EnvVarUpdate_Restore_Vars
298
299
;
"
Export
"
our change
300
SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0
"
STR:Environment
"
/TIMEOUT=5000
301
302
EnvVarUpdate_Restore_Vars:
303
;
304
; Restore the user
'
s variables and return ResultVar
305
Pop $R0
306
Pop $9
307
Pop $8
308
Pop $7
309
Pop $6
310
Pop $5
311
Pop $4
312
Pop $3
313
Pop $2
314
Pop $1
315
Push $0 ; Push my $0 (ResultVar)
316
Exch
317
Pop $0 ; Restore his $0
318
319
FunctionEnd
320
321
!macroend ; EnvVarUpdate UN
322
!insertmacro EnvVarUpdate
""
323
!insertmacro EnvVarUpdate
"
un.
"
324
;----------------------------------- EnvVarUpdate end----------------------------------------
325
326
!verbose pop
327
!endif
?
?References：
http://stackoverflow.com/questions/11272066/nsis-how-to-set-an-environment-variable-in-system-variable
http://nsis.sourceforge.net/Path_Manipulation
更多文章、技術(shù)交流、商務(wù)合作、聯(lián)系博主
微信掃碼或搜索：z360901061
微信掃一掃加我為好友
QQ號聯(lián)系： 360901061
您的支持是博主寫作最大的動力，如果您喜歡我的文章，感覺我的文章對您有幫助，請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧，狠狠點擊下面給點支持吧，站長非常感激您！手機微信長按不能支付解決辦法：請將微信支付二維碼保存到相冊，切換到微信，然后點擊微信右上角掃一掃功能，選擇支付二維碼完成支付。
【本文對您有幫助就好】元
