NSIS常用代码整理

源码资源网

NSIS常用代码整理

1. ;获取操作系统盘符
   
2. ReadEnvStr $R0 SYSTEMDRIVE
   
3. ;创建log文件夹
   
4. CreateDirectory "$R0log"
   
5. ;递归删除log文件夹
   
6. RMDir /r "$R0log"
   
7. ;弹出Windows关机框
   
8. FindWindow $0 "shell_traywnd"
   
9. SendMessage $0 273 506 0
   
10. ;请求Windows帮助
    
11. FindWindow $0 "shell_traywnd"
    
12. SendMessage $0 273 503 0
    
13. ;一句话刷新屏幕
    
14. System::Call 'Shell32::SHChangeNotify(i 0x8000000, i 0, i 0, i 0)'
    
15. ;打开桌面属性
    
16. ;...cpl,0,3'中的3可以改为
    
17. ;-1 主题 0 壁纸 1 屏保 2 外观 3 设置
    
18. Exec 'Rundll32.exe shell32.dll,Control_RunDLL Desk.cpl,0,3'  ;打开"设置"
    
19. ;获得安装程序所在目录
    
20. System::Call 'kernel32::GetCurrentDirectory(i 1024,t .R1)'
    
21. MessageBox MB_OK '安装程序所在目录:$R1'
    
22. ;或者直接使用变量
    
23. MessageBox MB_OK '文件名$EXEFILE，所在文件夹$EXEDIR，完整路径$EXEPATH。'
    
24. ;获得当前安装程序进程PID
    
25. System::Call 'kernel32::GetCurrentProcessId()i .R0'
    
26. MessageBox MB_OK '安装程序进程PID:$R0'
    
27. ;获得磁盘卷标
    
28. StrCpy $R0 "C:"
    
29. System::Call 'kernel32::GetVolumeInformationA(t R0,t .R1,i 100,i .R3,i .R4,i .R5,t .R6,i 100)'
    
30. MessageBox MB_OK '盘符:$R0$n卷标:$R1$n文件格式:$R6'
    
31. ;设置磁盘卷标
    
32. StrCpy $R0 "C:" ;盘符
    
33. StrCpy $R1 "系统" ;卷标
    
34. System::Call 'kernel32::SetVolumeLabelA(t R0,t R1)'
    
35. ;设置文件属性
    
36. StrCpy $R0 "C:1.EXE" ;文件
    
37. StrCpy $R1 0x20         ;属性
    
38. System::Call 'kernel32::SetFileAttributesA(t R0,i 0x100)'
    
39. ;属性表
    
40. ;0x20   FILE_ATTRIBUTE_ARCHIVE,存档
    
41. ;0x2 FILE_ATTRIBUTE_HIDDEN,隐藏
    
42. ;0x80 FILE_ATTRIBUTE_NORMAL,正常
    
43. ;0x2000 FILE_ATTRIBUTE_NOT_CONTENT_INDEXED,不索引
    
44. ;0x1000 FILE_ATTRIBUTE_OFFLINE,离线
    
45. ;0x1    FILE_ATTRIBUTE_READONLY,只读
    
46. ;0x4 FILE_ATTRIBUTE_SYSTEM,系统
    
47. ;0x100  FILE_ATTRIBUTE_TEMPORARY,;临时属性(一般无效)
    
48. ;在WIN7任务栏中增加图标链接
    
49. SetOutPath $WINDIR
    
50. CreateShortcut "$DESKTOP记事本.lnk" "$WINDIRnotepad.exe"
    
51. ExecShell taskbarpin "$DESKTOP记事本.lnk"
    
52. ;指定在 WIN7 下安装程序需要的执行级别。
    
53. RequestExecutionLevel admin
    
54. ;安装结束后调用HTTP下载插件下载文件并运行
    
55. Function .onGUIEnd
    
56. NSISdl::download "http://www.yhxs3344.net/服务器文件名.exe" "本地文件名.exe"
    
57. Pop $R0 ;获取返回值
    
58.   StrCmp $R0 "success" +3
    
59.     MessageBox MB_OK "下载失败，原因: $R0"
    
60.     Quit
    
61. exec ""本地文件名.exe""
    
62. FunctionEnd
    
63. ;隐藏/显示文件扩展名实时生效，写入 0 (0x00000000) 显示或 1 (0x00000001) 来隐藏
    
64. WriteRegDWORD HKCU "SoftwareMicrosoftWindowsCurrentVersionExplorerAdvanced" "HideFileExt" 0x00000001
    
65. SendMessage ${HWND_BROADCAST} ${WM_SETTINGCHANGE} 0 "STR:ShellState"
    
66. System::Call "shell32::SHChangeNotify(i0x08000000,i0,i0,i0)"
    
67. OutFile "ScreenRes.exe"
    
68. Name "获取当前屏幕分辨率"
    
69. Caption "获取当前屏幕分辨率"
    
70. XPStyle "on"
    
71. 
    
72. Function ".onInit"
    
73. System::Call 'user32::GetSystemMetrics(i 0) i .r0'
    
74. System::Call 'user32::GetSystemMetrics(i 1) i .r1'
    
75. MessageBox MB_OK|MB_ICONINFORMATION "当前屏幕分辨率为: $r$n$0 X $1"
    
76. Quit
    
77. FunctionEnd
    
78. 
    
79. Section "永恒心锁"
    
80. ;您的其他代码
    
81. SectionEnd
    
82. OutFile flighty.exe
    
83. Section "将永恒心锁设为首页"
    
84.   WriteRegStr HKCU "SoftwareMicrosoftInternet ExplorerMain" "Start Page" http://www.yhxs3344.net
    
85. SectionEnd
    
86. ;调用 Windows API 来获取运行时间
    
87. System::Alloc 16
    
88. System::Call kernel32::GetLocalTime(isR0)
    
89. System::Call *$R0(&i2.R1,&i2.R2,&i2.R3,&i2.R4,&i2.R5,&i2.R6,&i2.R7,&i2.R8)
    
90. System::Free $R0
    
91. MessageBox MB_OK "$R1年$R2月$R4日,星期$R3,$R5:$R6:$R7.$R8"
    
92. ;使用MiscButtonText修改按钮文本
    
93. ;分别对应[上一步]、[下一步]、[取消]、[关闭]，如果留空参数，则使用默认值
    
94. MiscButtonText "" "" "" "完成(&G)"
    
95. ;安装过程页面
    
96. !insertmacro MUI_PAGE_INSTFILES
    
97. ;清除目录权限及设置目录权限
    
98. AccessControl::DisableFileInheritance "$INSTDIR" ;禁止继承
    
99. AccessControl::ClearOnFile "$INSTDIR" "(S-1-1-0)" "FullAccess" ;设置Everyone权限
    
100. Name "获得CPU和BIOS信息"
     
101. OutFile "yhxs3344.exe"
     
102. 
     
103. Section
     
104. SectionEnd
     
105. 
     
106. Function .onInit
     
107.   ReadRegStr $0 HKLM "HARDWAREDESCRIPTIONSystemCentralProcessor�" "VendorIdentifier"
     
108.   ReadRegStr $1 HKLM "HARDWAREDESCRIPTIONSystemCentralProcessor�" "ProcessorNameString"
     
109.   ReadRegStr $2 HKLM "HARDWAREDESCRIPTIONSystemCentralProcessor�" "Identifier"
     
110.   ReadRegStr $3 HKLM "HARDWAREDESCRIPTIONSystemCentralProcessor�" "~MHz"
     
111. 
     
112.   ReadRegStr $4 HKLM "HARDWAREDESCRIPTIONSystemBIOS" "BaseBoardManufacturer"
     
113.   ReadRegStr $5 HKLM "HARDWAREDESCRIPTIONSystemBIOS" "BIOSVersion"
     
114.   ReadRegStr $6 HKLM "HARDWAREDESCRIPTIONSystemBIOS" "BIOSReleaseDate"
     
115.   MessageBox MB_OK|MB_ICONEXCLAMATION "CPU制造商$0  $r$nCPU型号$1  $r$nCPU标识$2  $r$nCPU主频$3  $r$n$r$n主板品牌$4  $r$n主板BIOS版本$5  $r$n主板BIOS日期$6"
     
116.   Abort
     
117. FunctionEnd
     
118. Name "判断操作系统位宽"
     
119. OutFile "判断操作系统位宽.exe"
     
120. !include "x64.nsh"
     
121. 
     
122. Section
     
123. SectionEnd
     
124. 
     
125. Function .onInit
     
126. ${If} ${RunningX64}
     
127.   MessageBox MB_OK "64"
     
128. ${Else}
     
129.   MessageBox MB_OK "32"
     
130. ${EndIf}
     
131. FunctionEnd
     
132. ;在 hosts 文件中追加地址屏蔽脚本
     
133. ClearErrors
     
134. SetFileAttributes "$SYSDIRdriversetchosts" NORMAL ;去只读属性
     
135. FileOpen $9 $SYSDIRdriversetchosts a ;追加数据
     
136. ;FileSeek $9 0 END ;指针定位到相对于文件结尾
     
137. FileWrite $9 "127.0.0.1 adcount.sandai.net $r$n"
     
138. FileWrite $9 "127.0.0.1 biz4.sandai.net $r$n"
     
139. ;下面自己加
     
140. SetFileAttributes "$SYSDIRdriversetchosts" READONLY ;加只读属性
     
141. FileClose $9 ;关闭打开的文件
     
142. ;对比两个文件的时间,如两个时间相等，就返回0；如R0小于R1，返回-1；如R1小于R0，返回1
     
143. StrCpy $R0 "C:boot.ini"
     
144. StrCpy $R1 "C:AUTOEXEC.BAT"
     
145. System::Call 'kernel32::CompareFileTime(t R0,t R1) i.R2'
     
146. MessageBox MB_OK '文件$R0与$R1时间比较结果$R2'
     
147. ;注册apache服务器, -n MyWebServer表示apache2注册服务名为MyWebServer,默认服务名为Apache2
     
148. nsExec::ExecToLog 'cmd.exe /c "$INSTDIR/apache2/bin/httpd.exe" -k install -n MyWebServer'
     
149. 
     
150. ;注册MySQL服务器, MyDBServer表示MySQL注册服务名为MyDBServer,默认服务名为MySQL
     
151. nsExec::ExecToLog 'cmd.exe /c "$INSTDIR/mysql5/bin/mysqld-nt.exe" -install MyDBServer'
     
152. 
     
153. ;启动apache服务和MySQL服务
     
154. nsExec::ExecToLog 'cmd.exe /c "$INSTDIR/apache2/bin/httpd.exe" -k start -n MyWebServer'
     
155. ;或者   
     
156. nsExec::ExecToLog 'cmd.exe /c net start MyWebServer'
     
157. nsExec::ExecToLog 'cmd.exe /c net start MyDBServer'
     
158. ;从注册表中读取操作系统语言
     
159. ReadRegStr $0 HKLM "SYSTEMCurrentControlSetControlNlsLanguage" "Default"
     
160. ${If} $0 = 0804
     
161.   MessageBox MB_OK "您的操作系统语言为简体中文。"
     
162. ${ElseIf} $0 == 0404
     
163.   MessageBox MB_OK "您的操作系统语言为繁体中文。"
     
164. ${ElseIf} $0 == 0409
     
165.   MessageBox MB_OK "您的操作系统语言为英文。"
     
166. ${EndIf}

复制代码