root / tmp / org.txm.setups / nsis-2.5 / Examples / FileFunc.nsi @ 3122
Historique | Voir | Annoter | Télécharger (18,93 ko)
1 | 2961 | mdecorde | ;_____________________________________________________________________________ |
---|---|---|---|
2 | 2961 | mdecorde | ; |
3 | 2961 | mdecorde | ; File Functions |
4 | 2961 | mdecorde | ;_____________________________________________________________________________ |
5 | 2961 | mdecorde | ; |
6 | 2961 | mdecorde | ; 2006 Shengalts Aleksander aka Instructor (Shengalts@mail.ru) |
7 | 2961 | mdecorde | |
8 | 2961 | mdecorde | Name "File Functions" |
9 | 2961 | mdecorde | OutFile "FileFunc.exe" |
10 | 2961 | mdecorde | Caption "$(^Name)" |
11 | 2961 | mdecorde | XPStyle on |
12 | 2961 | mdecorde | RequestExecutionLevel user |
13 | 2961 | mdecorde | |
14 | 2961 | mdecorde | !include "WinMessages.nsh" |
15 | 2961 | mdecorde | !include "FileFunc.nsh" |
16 | 2961 | mdecorde | |
17 | 2961 | mdecorde | Var INI |
18 | 2961 | mdecorde | Var HWND |
19 | 2961 | mdecorde | Var STATE |
20 | 2961 | mdecorde | Var FUNCTION |
21 | 2961 | mdecorde | Var LOCATE1 |
22 | 2961 | mdecorde | Var LOCATE2 |
23 | 2961 | mdecorde | Var GETSIZE1 |
24 | 2961 | mdecorde | Var GETSIZE2 |
25 | 2961 | mdecorde | Var GETSIZE3 |
26 | 2961 | mdecorde | Var GETSIZE4 |
27 | 2961 | mdecorde | Var GETSIZE5 |
28 | 2961 | mdecorde | Var GETSIZE6 |
29 | 2961 | mdecorde | Var DRIVESPACE1 |
30 | 2961 | mdecorde | Var DRIVESPACE2 |
31 | 2961 | mdecorde | Var GETDRIVES1 |
32 | 2961 | mdecorde | Var GETTIME1 |
33 | 2961 | mdecorde | Var GETTIME2 |
34 | 2961 | mdecorde | Var GETFILEATTRIBUTES1 |
35 | 2961 | mdecorde | Var GETFILEATTRIBUTES2 |
36 | 2961 | mdecorde | Var GETFILEVERSION1 |
37 | 2961 | mdecorde | Var GETOPTIONS1 |
38 | 2961 | mdecorde | Var GETOPTIONS2 |
39 | 2961 | mdecorde | Var GETROOT1 |
40 | 2961 | mdecorde | Var GETPARENT1 |
41 | 2961 | mdecorde | Var GETFILENAME1 |
42 | 2961 | mdecorde | Var GETBASENAME1 |
43 | 2961 | mdecorde | Var GETFILEEXT1 |
44 | 2961 | mdecorde | Var BANNERTRIMPATH1 |
45 | 2961 | mdecorde | Var BANNERTRIMPATH2 |
46 | 2961 | mdecorde | Var DIRSTATE1 |
47 | 2961 | mdecorde | |
48 | 2961 | mdecorde | Page Custom ShowCustom LeaveCustom |
49 | 2961 | mdecorde | |
50 | 2961 | mdecorde | Function ShowCustom |
51 | 2961 | mdecorde | InstallOptions::initDialog "$INI" |
52 | 2961 | mdecorde | Pop $hwnd |
53 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
54 | 2961 | mdecorde | ShowWindow $1 0 |
55 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
56 | 2961 | mdecorde | ShowWindow $1 0 |
57 | 2961 | mdecorde | GetDlgItem $1 $HWND 1206 |
58 | 2961 | mdecorde | EnableWindow $1 0 |
59 | 2961 | mdecorde | SendMessage $1 ${WM_ENABLE} 1 0 |
60 | 2961 | mdecorde | StrCpy $LOCATE1 $DOCUMENTS |
61 | 2961 | mdecorde | StrCpy $LOCATE2 '/L=FD /M=*.* /S=0B /G=1 /B=0' |
62 | 2961 | mdecorde | StrCpy $GETSIZE1 '$WINDIR' |
63 | 2961 | mdecorde | StrCpy $GETSIZE2 '/M=Explorer.exe /S=0K /G=0' |
64 | 2961 | mdecorde | StrCpy $GETSIZE3 '$PROGRAMFILES\Common Files' |
65 | 2961 | mdecorde | StrCpy $GETSIZE4 '/S=0M' |
66 | 2961 | mdecorde | StrCpy $GETSIZE5 '$WINDIR' |
67 | 2961 | mdecorde | StrCpy $GETSIZE6 '/G=0' |
68 | 2961 | mdecorde | StrCpy $DRIVESPACE1 'C:\' |
69 | 2961 | mdecorde | StrCpy $DRIVESPACE2 '/D=F /S=M' |
70 | 2961 | mdecorde | StrCpy $GETDRIVES1 'FDD+CDROM' |
71 | 2961 | mdecorde | StrCpy $GETTIME1 '$WINDIR\Explorer.exe' |
72 | 2961 | mdecorde | StrCpy $GETTIME2 'C' |
73 | 2961 | mdecorde | StrCpy $GETFILEATTRIBUTES1 'C:\IO.SYS' |
74 | 2961 | mdecorde | StrCpy $GETFILEATTRIBUTES2 'ALL' |
75 | 2961 | mdecorde | StrCpy $GETFILEVERSION1 '$WINDIR\Explorer.exe' |
76 | 2961 | mdecorde | StrCpy $GETOPTIONS1 '/SILENT=yes /INSTDIR="$PROGRAMFILES\Common Files"' |
77 | 2961 | mdecorde | StrCpy $GETOPTIONS2 '/INSTDIR=' |
78 | 2961 | mdecorde | StrCpy $GETROOT1 'C:\path\file.dll' |
79 | 2961 | mdecorde | StrCpy $GETPARENT1 'C:\path\file.dll' |
80 | 2961 | mdecorde | StrCpy $GETFILENAME1 'C:\path\file.dll' |
81 | 2961 | mdecorde | StrCpy $GETBASENAME1 'C:\path\file.dll' |
82 | 2961 | mdecorde | StrCpy $GETFILEEXT1 'C:\path\file.dll' |
83 | 2961 | mdecorde | StrCpy $BANNERTRIMPATH1 'C:\Server\Documents\Terminal\license.htm' |
84 | 2961 | mdecorde | StrCpy $BANNERTRIMPATH2 '34A' |
85 | 2961 | mdecorde | StrCpy $DIRSTATE1 '$TEMP' |
86 | 2961 | mdecorde | |
87 | 2961 | mdecorde | GetDlgItem $1 $HWND 1203 |
88 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$LOCATE1" |
89 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
90 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$LOCATE2" |
91 | 2961 | mdecorde | InstallOptions::show |
92 | 2961 | mdecorde | Pop $0 |
93 | 2961 | mdecorde | FunctionEnd |
94 | 2961 | mdecorde | |
95 | 2961 | mdecorde | Function LeaveCustom |
96 | 2961 | mdecorde | ReadINIStr $STATE $INI "Field 1" "State" |
97 | 2961 | mdecorde | ReadINIStr $R1 $INI "Field 2" "State" |
98 | 2961 | mdecorde | ReadINIStr $R2 $INI "Field 3" "State" |
99 | 2961 | mdecorde | ReadINIStr $R3 $INI "Field 4" "State" |
100 | 2961 | mdecorde | ReadINIStr $R4 $INI "Field 5" "State" |
101 | 2961 | mdecorde | ReadINIStr $0 $INI "Settings" "State" |
102 | 2961 | mdecorde | StrCmp $0 6 view |
103 | 2961 | mdecorde | StrCmp $0 0 Enter |
104 | 2961 | mdecorde | goto main |
105 | 2961 | mdecorde | |
106 | 2961 | mdecorde | view: |
107 | 2961 | mdecorde | StrCpy $0 '$$' |
108 | 2961 | mdecorde | StrCpy $1 'n' |
109 | 2961 | mdecorde | StrCpy $2 'r' |
110 | 2961 | mdecorde | StrCmp $R4 "LocateCallback" 0 +3 |
111 | 2961 | mdecorde | StrCpy $R0 `Function LocateCallback$\r$\n MessageBox MB_OKCANCEL '$0$$R9 "path\name"=[$$R9]$0\$1$0$$R8 "path" =[$$R8]$0\$1$0$$R7 "name" =[$$R7]$0\$1$0$$R6 "size" =[$$R6]' IDOK +2$\r$\n StrCpy $$R0 StopLocate$\r$\n$\r$\n Push $$R0$\r$\nFunctionEnd` |
112 | 2961 | mdecorde | goto send |
113 | 2961 | mdecorde | StrCmp $R4 "GetDrivesCallback" 0 error |
114 | 2961 | mdecorde | StrCpy $R0 `Function GetDrivesCallback$\r$\n MessageBox MB_OKCANCEL '$0$$9 "drive letter"=[$$9]$0\$1$0$$8 "drive type" =[$$8]' IDOK +2$\r$\n StrCpy $$R0 StopGetDrives$\r$\n StrCpy $$R5 '$$R5$$9 [$$8 Drive]$$\$2$$\$1'$\r$\n$\r$\n Push $$R0$\r$\nFunctionEnd` |
115 | 2961 | mdecorde | goto send |
116 | 2961 | mdecorde | |
117 | 2961 | mdecorde | main: |
118 | 2961 | mdecorde | StrCmp $FUNCTION '' DefaultSend |
119 | 2961 | mdecorde | StrCmp $FUNCTION Locate 0 +4 |
120 | 2961 | mdecorde | StrCpy $LOCATE1 $R2 |
121 | 2961 | mdecorde | StrCpy $LOCATE2 $R3 |
122 | 2961 | mdecorde | goto DefaultSend |
123 | 2961 | mdecorde | StrCmp $FUNCTION GetSize1 0 +4 |
124 | 2961 | mdecorde | StrCpy $GETSIZE1 $R2 |
125 | 2961 | mdecorde | StrCpy $GETSIZE2 $R3 |
126 | 2961 | mdecorde | goto DefaultSend |
127 | 2961 | mdecorde | StrCmp $FUNCTION GetSize2 0 +4 |
128 | 2961 | mdecorde | StrCpy $GETSIZE3 $R2 |
129 | 2961 | mdecorde | StrCpy $GETSIZE4 $R3 |
130 | 2961 | mdecorde | goto DefaultSend |
131 | 2961 | mdecorde | StrCmp $FUNCTION GetSize3 0 +4 |
132 | 2961 | mdecorde | StrCpy $GETSIZE5 $R2 |
133 | 2961 | mdecorde | StrCpy $GETSIZE6 $R3 |
134 | 2961 | mdecorde | goto DefaultSend |
135 | 2961 | mdecorde | StrCmp $FUNCTION DriveSpace 0 +4 |
136 | 2961 | mdecorde | StrCpy $DRIVESPACE1 $R1 |
137 | 2961 | mdecorde | StrCpy $DRIVESPACE2 $R3 |
138 | 2961 | mdecorde | goto DefaultSend |
139 | 2961 | mdecorde | StrCmp $FUNCTION GetDrives 0 +3 |
140 | 2961 | mdecorde | StrCpy $GETDRIVES1 $R1 |
141 | 2961 | mdecorde | goto DefaultSend |
142 | 2961 | mdecorde | StrCmp $FUNCTION GetTime 0 +4 |
143 | 2961 | mdecorde | StrCpy $GETTIME1 $R1 |
144 | 2961 | mdecorde | StrCpy $GETTIME2 $R3 |
145 | 2961 | mdecorde | goto DefaultSend |
146 | 2961 | mdecorde | StrCmp $FUNCTION GetFileAttributes 0 +4 |
147 | 2961 | mdecorde | StrCpy $GETFILEATTRIBUTES1 $R1 |
148 | 2961 | mdecorde | StrCpy $GETFILEATTRIBUTES2 $R3 |
149 | 2961 | mdecorde | goto DefaultSend |
150 | 2961 | mdecorde | StrCmp $FUNCTION GetFileVersion 0 +3 |
151 | 2961 | mdecorde | StrCpy $GETFILEVERSION1 $R1 |
152 | 2961 | mdecorde | goto DefaultSend |
153 | 2961 | mdecorde | StrCmp $FUNCTION GetOptions 0 +4 |
154 | 2961 | mdecorde | StrCpy $GETOPTIONS1 $R1 |
155 | 2961 | mdecorde | StrCpy $GETOPTIONS2 $R3 |
156 | 2961 | mdecorde | goto DefaultSend |
157 | 2961 | mdecorde | StrCmp $FUNCTION GetRoot 0 +3 |
158 | 2961 | mdecorde | StrCpy $GETROOT1 $R1 |
159 | 2961 | mdecorde | goto DefaultSend |
160 | 2961 | mdecorde | StrCmp $FUNCTION GetParent 0 +3 |
161 | 2961 | mdecorde | StrCpy $GETPARENT1 $R1 |
162 | 2961 | mdecorde | goto DefaultSend |
163 | 2961 | mdecorde | StrCmp $FUNCTION GetFileName 0 +3 |
164 | 2961 | mdecorde | StrCpy $GETFILENAME1 $R1 |
165 | 2961 | mdecorde | goto DefaultSend |
166 | 2961 | mdecorde | StrCmp $FUNCTION GetBaseName 0 +3 |
167 | 2961 | mdecorde | StrCpy $GETBASENAME1 $R1 |
168 | 2961 | mdecorde | goto DefaultSend |
169 | 2961 | mdecorde | StrCmp $FUNCTION GetFileExt 0 +3 |
170 | 2961 | mdecorde | StrCpy $GETFILEEXT1 $R1 |
171 | 2961 | mdecorde | goto DefaultSend |
172 | 2961 | mdecorde | StrCmp $FUNCTION BannerTrimPath 0 +4 |
173 | 2961 | mdecorde | StrCpy $BANNERTRIMPATH1 $R1 |
174 | 2961 | mdecorde | StrCpy $BANNERTRIMPATH2 $R3 |
175 | 2961 | mdecorde | goto DefaultSend |
176 | 2961 | mdecorde | StrCmp $FUNCTION DirState 0 +2 |
177 | 2961 | mdecorde | StrCpy $DIRSTATE1 $R2 |
178 | 2961 | mdecorde | |
179 | 2961 | mdecorde | DefaultSend: |
180 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
181 | 2961 | mdecorde | EnableWindow $1 1 |
182 | 2961 | mdecorde | ShowWindow $1 0 |
183 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:" |
184 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
185 | 2961 | mdecorde | EnableWindow $1 1 |
186 | 2961 | mdecorde | ShowWindow $1 0 |
187 | 2961 | mdecorde | GetDlgItem $1 $HWND 1203 |
188 | 2961 | mdecorde | EnableWindow $1 1 |
189 | 2961 | mdecorde | ShowWindow $1 0 |
190 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:" |
191 | 2961 | mdecorde | GetDlgItem $1 $HWND 1204 |
192 | 2961 | mdecorde | EnableWindow $1 1 |
193 | 2961 | mdecorde | ShowWindow $1 0 |
194 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
195 | 2961 | mdecorde | EnableWindow $1 1 |
196 | 2961 | mdecorde | GetDlgItem $1 $HWND 1206 |
197 | 2961 | mdecorde | ShowWindow $1 0 |
198 | 2961 | mdecorde | EnableWindow $1 0 |
199 | 2961 | mdecorde | GetDlgItem $1 $HWND 1207 |
200 | 2961 | mdecorde | ShowWindow $1 0 |
201 | 2961 | mdecorde | GetDlgItem $1 $HWND 1208 |
202 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:" |
203 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
204 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:" |
205 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
206 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:" |
207 | 2961 | mdecorde | GetDlgItem $1 $HWND 1211 |
208 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:" |
209 | 2961 | mdecorde | |
210 | 2961 | mdecorde | ReadINIStr $0 $INI "Field 1" "State" |
211 | 2961 | mdecorde | StrCmp $0 " 1. Locate" 0 GetSize1Send |
212 | 2961 | mdecorde | StrCpy $FUNCTION Locate |
213 | 2961 | mdecorde | GetDlgItem $1 $HWND 1203 |
214 | 2961 | mdecorde | ShowWindow $1 1 |
215 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$LOCATE1" |
216 | 2961 | mdecorde | GetDlgItem $1 $HWND 1204 |
217 | 2961 | mdecorde | ShowWindow $1 1 |
218 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
219 | 2961 | mdecorde | ShowWindow $1 1 |
220 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$LOCATE2" |
221 | 2961 | mdecorde | GetDlgItem $1 $HWND 1206 |
222 | 2961 | mdecorde | ShowWindow $1 1 |
223 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:LocateCallback" |
224 | 2961 | mdecorde | GetDlgItem $1 $HWND 1207 |
225 | 2961 | mdecorde | ShowWindow $1 1 |
226 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
227 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Path" |
228 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
229 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Options" |
230 | 2961 | mdecorde | GetDlgItem $1 $HWND 1211 |
231 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Function" |
232 | 2961 | mdecorde | abort |
233 | 2961 | mdecorde | |
234 | 2961 | mdecorde | GetSize1Send: |
235 | 2961 | mdecorde | StrCmp $0 " 2. GetSize (file)" 0 GetSize2Send |
236 | 2961 | mdecorde | StrCpy $FUNCTION 'GetSize1' |
237 | 2961 | mdecorde | GetDlgItem $1 $HWND 1203 |
238 | 2961 | mdecorde | ShowWindow $1 1 |
239 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE1" |
240 | 2961 | mdecorde | GetDlgItem $1 $HWND 1204 |
241 | 2961 | mdecorde | ShowWindow $1 1 |
242 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
243 | 2961 | mdecorde | ShowWindow $1 1 |
244 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE2" |
245 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
246 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:File" |
247 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
248 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Options" |
249 | 2961 | mdecorde | Abort |
250 | 2961 | mdecorde | |
251 | 2961 | mdecorde | GetSize2Send: |
252 | 2961 | mdecorde | StrCmp $0 " (directory)" 0 GetSize3Send |
253 | 2961 | mdecorde | StrCpy $FUNCTION 'GetSize2' |
254 | 2961 | mdecorde | GetDlgItem $1 $HWND 1203 |
255 | 2961 | mdecorde | ShowWindow $1 1 |
256 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE3" |
257 | 2961 | mdecorde | GetDlgItem $1 $HWND 1204 |
258 | 2961 | mdecorde | ShowWindow $1 1 |
259 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
260 | 2961 | mdecorde | ShowWindow $1 1 |
261 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE4" |
262 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
263 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Directory" |
264 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
265 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Options" |
266 | 2961 | mdecorde | Abort |
267 | 2961 | mdecorde | |
268 | 2961 | mdecorde | GetSize3Send: |
269 | 2961 | mdecorde | StrCmp $0 " (no size, no subdir)" 0 DriveSpaceSend |
270 | 2961 | mdecorde | StrCpy $FUNCTION 'GetSize3' |
271 | 2961 | mdecorde | GetDlgItem $1 $HWND 1203 |
272 | 2961 | mdecorde | ShowWindow $1 1 |
273 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE5" |
274 | 2961 | mdecorde | GetDlgItem $1 $HWND 1204 |
275 | 2961 | mdecorde | ShowWindow $1 1 |
276 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
277 | 2961 | mdecorde | ShowWindow $1 1 |
278 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETSIZE6" |
279 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
280 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Directory" |
281 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
282 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Options" |
283 | 2961 | mdecorde | Abort |
284 | 2961 | mdecorde | |
285 | 2961 | mdecorde | DriveSpaceSend: |
286 | 2961 | mdecorde | StrCmp $0 " 3. DriveSpace" 0 GetDrivesSend |
287 | 2961 | mdecorde | StrCpy $FUNCTION DriveSpace |
288 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
289 | 2961 | mdecorde | ShowWindow $1 1 |
290 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$DRIVESPACE1" |
291 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
292 | 2961 | mdecorde | ShowWindow $1 1 |
293 | 2961 | mdecorde | EnableWindow $1 0 |
294 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
295 | 2961 | mdecorde | ShowWindow $1 1 |
296 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$DRIVESPACE2" |
297 | 2961 | mdecorde | GetDlgItem $1 $HWND 1206 |
298 | 2961 | mdecorde | ShowWindow $1 0 |
299 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:" |
300 | 2961 | mdecorde | GetDlgItem $1 $HWND 1207 |
301 | 2961 | mdecorde | ShowWindow $1 0 |
302 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
303 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Drive" |
304 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
305 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Options" |
306 | 2961 | mdecorde | abort |
307 | 2961 | mdecorde | |
308 | 2961 | mdecorde | GetDrivesSend: |
309 | 2961 | mdecorde | StrCmp $0 " 4. GetDrives (by type)" 0 GetDrives2Send |
310 | 2961 | mdecorde | StrCpy $FUNCTION GetDrives |
311 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
312 | 2961 | mdecorde | ShowWindow $1 1 |
313 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETDRIVES1" |
314 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
315 | 2961 | mdecorde | ShowWindow $1 1 |
316 | 2961 | mdecorde | EnableWindow $1 0 |
317 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
318 | 2961 | mdecorde | ShowWindow $1 0 |
319 | 2961 | mdecorde | GetDlgItem $1 $HWND 1206 |
320 | 2961 | mdecorde | ShowWindow $1 1 |
321 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:GetDrivesCallback" |
322 | 2961 | mdecorde | GetDlgItem $1 $HWND 1207 |
323 | 2961 | mdecorde | ShowWindow $1 1 |
324 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
325 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Option" |
326 | 2961 | mdecorde | GetDlgItem $1 $HWND 1211 |
327 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Function" |
328 | 2961 | mdecorde | abort |
329 | 2961 | mdecorde | |
330 | 2961 | mdecorde | GetDrives2Send: |
331 | 2961 | mdecorde | StrCmp $0 " (all by letter)" 0 GetTime1Send |
332 | 2961 | mdecorde | StrCpy $FUNCTION '' |
333 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
334 | 2961 | mdecorde | ShowWindow $1 1 |
335 | 2961 | mdecorde | EnableWindow $1 0 |
336 | 2961 | mdecorde | SendMessage $1 ${WM_ENABLE} 1 0 |
337 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:ALL" |
338 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
339 | 2961 | mdecorde | ShowWindow $1 1 |
340 | 2961 | mdecorde | EnableWindow $1 0 |
341 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
342 | 2961 | mdecorde | ShowWindow $1 0 |
343 | 2961 | mdecorde | GetDlgItem $1 $HWND 1206 |
344 | 2961 | mdecorde | ShowWindow $1 1 |
345 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:GetDrivesCallback" |
346 | 2961 | mdecorde | GetDlgItem $1 $HWND 1207 |
347 | 2961 | mdecorde | ShowWindow $1 1 |
348 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
349 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Option" |
350 | 2961 | mdecorde | GetDlgItem $1 $HWND 1211 |
351 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Function" |
352 | 2961 | mdecorde | abort |
353 | 2961 | mdecorde | |
354 | 2961 | mdecorde | GetTime1Send: |
355 | 2961 | mdecorde | StrCmp $0 " 5. GetTime (local time)" 0 GetTime2Send |
356 | 2961 | mdecorde | StrCpy $FUNCTION '' |
357 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
358 | 2961 | mdecorde | ShowWindow $1 1 |
359 | 2961 | mdecorde | EnableWindow $1 0 |
360 | 2961 | mdecorde | SendMessage $1 ${WM_ENABLE} 1 0 |
361 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
362 | 2961 | mdecorde | ShowWindow $1 1 |
363 | 2961 | mdecorde | EnableWindow $1 0 |
364 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
365 | 2961 | mdecorde | ShowWindow $1 1 |
366 | 2961 | mdecorde | EnableWindow $1 1 |
367 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:L" |
368 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
369 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Option" |
370 | 2961 | mdecorde | Abort |
371 | 2961 | mdecorde | |
372 | 2961 | mdecorde | GetTime2Send: |
373 | 2961 | mdecorde | StrCmp $0 " (file time)" 0 GetFileAttributesSend |
374 | 2961 | mdecorde | StrCpy $FUNCTION GetTime |
375 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
376 | 2961 | mdecorde | ShowWindow $1 1 |
377 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETTIME1" |
378 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
379 | 2961 | mdecorde | ShowWindow $1 1 |
380 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
381 | 2961 | mdecorde | ShowWindow $1 1 |
382 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETTIME2" |
383 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
384 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:File" |
385 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
386 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Option" |
387 | 2961 | mdecorde | Abort |
388 | 2961 | mdecorde | |
389 | 2961 | mdecorde | GetFileAttributesSend: |
390 | 2961 | mdecorde | StrCmp $0 " 6. GetFileAttributes" 0 GetFileVersionSend |
391 | 2961 | mdecorde | StrCpy $FUNCTION GetFileAttributes |
392 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
393 | 2961 | mdecorde | ShowWindow $1 1 |
394 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILEATTRIBUTES1" |
395 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
396 | 2961 | mdecorde | ShowWindow $1 1 |
397 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
398 | 2961 | mdecorde | ShowWindow $1 1 |
399 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILEATTRIBUTES2" |
400 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
401 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Path" |
402 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
403 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Attrib" |
404 | 2961 | mdecorde | Abort |
405 | 2961 | mdecorde | |
406 | 2961 | mdecorde | GetFileVersionSend: |
407 | 2961 | mdecorde | StrCmp $0 " 7. GetFileVersion" 0 GetCmdSend |
408 | 2961 | mdecorde | StrCpy $FUNCTION GetFileVersion |
409 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
410 | 2961 | mdecorde | ShowWindow $1 1 |
411 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILEVERSION1" |
412 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
413 | 2961 | mdecorde | ShowWindow $1 1 |
414 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
415 | 2961 | mdecorde | ShowWindow $1 0 |
416 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
417 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:File" |
418 | 2961 | mdecorde | Abort |
419 | 2961 | mdecorde | |
420 | 2961 | mdecorde | GetCmdSend: |
421 | 2961 | mdecorde | StrCmp $0 " 8. GetExeName" +3 |
422 | 2961 | mdecorde | StrCmp $0 " 9. GetExePath" +2 |
423 | 2961 | mdecorde | StrCmp $0 "10. GetParameters" 0 GetOptionsSend |
424 | 2961 | mdecorde | StrCpy $FUNCTION '' |
425 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
426 | 2961 | mdecorde | ShowWindow $1 0 |
427 | 2961 | mdecorde | Abort |
428 | 2961 | mdecorde | |
429 | 2961 | mdecorde | GetOptionsSend: |
430 | 2961 | mdecorde | StrCmp $0 "11. GetOptions" 0 GetRootSend |
431 | 2961 | mdecorde | StrCpy $FUNCTION GetOptions |
432 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
433 | 2961 | mdecorde | ShowWindow $1 1 |
434 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETOPTIONS1" |
435 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
436 | 2961 | mdecorde | ShowWindow $1 1 |
437 | 2961 | mdecorde | EnableWindow $1 0 |
438 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
439 | 2961 | mdecorde | ShowWindow $1 1 |
440 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETOPTIONS2" |
441 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
442 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Parameters" |
443 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
444 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Option" |
445 | 2961 | mdecorde | Abort |
446 | 2961 | mdecorde | |
447 | 2961 | mdecorde | GetRootSend: |
448 | 2961 | mdecorde | StrCmp $0 "12. GetRoot" 0 GetParentSend |
449 | 2961 | mdecorde | StrCpy $FUNCTION GetRoot |
450 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
451 | 2961 | mdecorde | ShowWindow $1 1 |
452 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETROOT1" |
453 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
454 | 2961 | mdecorde | ShowWindow $1 1 |
455 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
456 | 2961 | mdecorde | ShowWindow $1 0 |
457 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
458 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:FullPath" |
459 | 2961 | mdecorde | Abort |
460 | 2961 | mdecorde | |
461 | 2961 | mdecorde | GetParentSend: |
462 | 2961 | mdecorde | StrCmp $0 "13. GetParent" 0 GetFileNameSend |
463 | 2961 | mdecorde | StrCpy $FUNCTION GetParent |
464 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
465 | 2961 | mdecorde | ShowWindow $1 1 |
466 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETPARENT1" |
467 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
468 | 2961 | mdecorde | ShowWindow $1 1 |
469 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
470 | 2961 | mdecorde | ShowWindow $1 0 |
471 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
472 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:PathString" |
473 | 2961 | mdecorde | Abort |
474 | 2961 | mdecorde | |
475 | 2961 | mdecorde | GetFileNameSend: |
476 | 2961 | mdecorde | StrCmp $0 "14. GetFileName" 0 GetBaseNameSend |
477 | 2961 | mdecorde | StrCpy $FUNCTION GetFileName |
478 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
479 | 2961 | mdecorde | ShowWindow $1 1 |
480 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILENAME1" |
481 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
482 | 2961 | mdecorde | ShowWindow $1 1 |
483 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
484 | 2961 | mdecorde | ShowWindow $1 0 |
485 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
486 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:PathString" |
487 | 2961 | mdecorde | Abort |
488 | 2961 | mdecorde | |
489 | 2961 | mdecorde | GetBaseNameSend: |
490 | 2961 | mdecorde | StrCmp $0 "15. GetBaseName" 0 GetFileExtSend |
491 | 2961 | mdecorde | StrCpy $FUNCTION GetBaseName |
492 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
493 | 2961 | mdecorde | ShowWindow $1 1 |
494 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETBASENAME1" |
495 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
496 | 2961 | mdecorde | ShowWindow $1 1 |
497 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
498 | 2961 | mdecorde | ShowWindow $1 0 |
499 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
500 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:FileString" |
501 | 2961 | mdecorde | Abort |
502 | 2961 | mdecorde | |
503 | 2961 | mdecorde | GetFileExtSend: |
504 | 2961 | mdecorde | StrCmp $0 "16. GetFileExt" 0 BannerTrimPathSend |
505 | 2961 | mdecorde | StrCpy $FUNCTION GetFileExt |
506 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
507 | 2961 | mdecorde | ShowWindow $1 1 |
508 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$GETFILEEXT1" |
509 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
510 | 2961 | mdecorde | ShowWindow $1 1 |
511 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
512 | 2961 | mdecorde | ShowWindow $1 0 |
513 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
514 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:FileString" |
515 | 2961 | mdecorde | Abort |
516 | 2961 | mdecorde | |
517 | 2961 | mdecorde | BannerTrimPathSend: |
518 | 2961 | mdecorde | StrCmp $0 "17. BannerTrimPath" 0 DirStateSend |
519 | 2961 | mdecorde | StrCpy $FUNCTION BannerTrimPath |
520 | 2961 | mdecorde | GetDlgItem $1 $HWND 1201 |
521 | 2961 | mdecorde | ShowWindow $1 1 |
522 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$BANNERTRIMPATH1" |
523 | 2961 | mdecorde | GetDlgItem $1 $HWND 1202 |
524 | 2961 | mdecorde | ShowWindow $1 1 |
525 | 2961 | mdecorde | EnableWindow $1 0 |
526 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
527 | 2961 | mdecorde | ShowWindow $1 1 |
528 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$BANNERTRIMPATH2" |
529 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
530 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:PathString" |
531 | 2961 | mdecorde | GetDlgItem $1 $HWND 1210 |
532 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Option" |
533 | 2961 | mdecorde | Abort |
534 | 2961 | mdecorde | |
535 | 2961 | mdecorde | DirStateSend: |
536 | 2961 | mdecorde | StrCmp $0 "18. DirState" 0 RefreshShellIconsSend |
537 | 2961 | mdecorde | StrCpy $FUNCTION DirState |
538 | 2961 | mdecorde | GetDlgItem $1 $HWND 1203 |
539 | 2961 | mdecorde | ShowWindow $1 1 |
540 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$DIRSTATE1" |
541 | 2961 | mdecorde | GetDlgItem $1 $HWND 1204 |
542 | 2961 | mdecorde | ShowWindow $1 1 |
543 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
544 | 2961 | mdecorde | ShowWindow $1 0 |
545 | 2961 | mdecorde | GetDlgItem $1 $HWND 1209 |
546 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:Directory" |
547 | 2961 | mdecorde | Abort |
548 | 2961 | mdecorde | |
549 | 2961 | mdecorde | RefreshShellIconsSend: |
550 | 2961 | mdecorde | StrCmp $0 "19. RefreshShellIcons" 0 Abort |
551 | 2961 | mdecorde | StrCpy $FUNCTION '' |
552 | 2961 | mdecorde | GetDlgItem $1 $HWND 1205 |
553 | 2961 | mdecorde | ShowWindow $1 0 |
554 | 2961 | mdecorde | |
555 | 2961 | mdecorde | Abort: |
556 | 2961 | mdecorde | Abort |
557 | 2961 | mdecorde | |
558 | 2961 | mdecorde | ;=Enter= |
559 | 2961 | mdecorde | Enter: |
560 | 2961 | mdecorde | StrCpy $R0 '' |
561 | 2961 | mdecorde | StrCpy $R5 '' |
562 | 2961 | mdecorde | |
563 | 2961 | mdecorde | StrCmp $STATE " 1. Locate" Locate |
564 | 2961 | mdecorde | StrCmp $STATE " 2. GetSize (file)" GetSize |
565 | 2961 | mdecorde | StrCmp $STATE " (directory)" GetSize |
566 | 2961 | mdecorde | StrCmp $STATE " (no size, no subdir)" GetSize |
567 | 2961 | mdecorde | StrCmp $STATE " 3. DriveSpace" DriveSpace |
568 | 2961 | mdecorde | StrCmp $STATE " 4. GetDrives (by type)" GetDrives |
569 | 2961 | mdecorde | StrCmp $STATE " (all by letter)" GetDrives |
570 | 2961 | mdecorde | StrCmp $STATE " 5. GetTime (local time)" GetTime |
571 | 2961 | mdecorde | StrCmp $STATE " (file time)" GetTime |
572 | 2961 | mdecorde | StrCmp $STATE " 6. GetFileAttributes" GetFileAttributes |
573 | 2961 | mdecorde | StrCmp $STATE " 7. GetFileVersion" GetFileVersion |
574 | 2961 | mdecorde | StrCmp $STATE " 8. GetExeName" GetExeName |
575 | 2961 | mdecorde | StrCmp $STATE " 9. GetExePath" GetExePath |
576 | 2961 | mdecorde | StrCmp $STATE "10. GetParameters" GetParameters |
577 | 2961 | mdecorde | StrCmp $STATE "11. GetOptions" GetOptions |
578 | 2961 | mdecorde | StrCmp $STATE "12. GetRoot" GetRoot |
579 | 2961 | mdecorde | StrCmp $STATE "13. GetParent" GetParent |
580 | 2961 | mdecorde | StrCmp $STATE "14. GetFileName" GetFileName |
581 | 2961 | mdecorde | StrCmp $STATE "15. GetBaseName" GetBaseName |
582 | 2961 | mdecorde | StrCmp $STATE "16. GetFileExt" GetFileExt |
583 | 2961 | mdecorde | StrCmp $STATE "17. BannerTrimPath" BannerTrimPath |
584 | 2961 | mdecorde | StrCmp $STATE "18. DirState" DirState |
585 | 2961 | mdecorde | StrCmp $STATE "19. RefreshShellIcons" RefreshShellIcons |
586 | 2961 | mdecorde | Abort |
587 | 2961 | mdecorde | |
588 | 2961 | mdecorde | Locate: |
589 | 2961 | mdecorde | ${Locate} "$R2" "$R3" "LocateCallback" |
590 | 2961 | mdecorde | IfErrors error |
591 | 2961 | mdecorde | StrCmp $R0 StopLocate 0 +3 |
592 | 2961 | mdecorde | StrCpy $R0 'stopped' |
593 | 2961 | mdecorde | goto send |
594 | 2961 | mdecorde | StrCpy $R0 'done' |
595 | 2961 | mdecorde | goto send |
596 | 2961 | mdecorde | |
597 | 2961 | mdecorde | GetSize: |
598 | 2961 | mdecorde | ${GetSize} "$R2" "$R3" $0 $1 $2 |
599 | 2961 | mdecorde | IfErrors error |
600 | 2961 | mdecorde | StrCpy $R0 "Size=$0$\r$\nFiles=$1$\r$\nFolders=$2" |
601 | 2961 | mdecorde | goto send |
602 | 2961 | mdecorde | |
603 | 2961 | mdecorde | DriveSpace: |
604 | 2961 | mdecorde | ${DriveSpace} "$R1" "$R3" $0 |
605 | 2961 | mdecorde | IfErrors error |
606 | 2961 | mdecorde | StrCpy $R0 "$0" |
607 | 2961 | mdecorde | goto send |
608 | 2961 | mdecorde | |
609 | 2961 | mdecorde | GetDrives: |
610 | 2961 | mdecorde | ${GetDrives} "$R1" "GetDrivesCallback" |
611 | 2961 | mdecorde | StrCmp $R0 StopGetDrives 0 +3 |
612 | 2961 | mdecorde | StrCpy $R0 '$R5stopped' |
613 | 2961 | mdecorde | goto send |
614 | 2961 | mdecorde | StrCpy $R0 '$R5done' |
615 | 2961 | mdecorde | goto send |
616 | 2961 | mdecorde | |
617 | 2961 | mdecorde | GetTime: |
618 | 2961 | mdecorde | ${GetTime} "$R1" "$R3" $0 $1 $2 $3 $4 $5 $6 |
619 | 2961 | mdecorde | IfErrors error |
620 | 2961 | mdecorde | StrCpy $R0 'Date=$0/$1/$2 ($3)$\r$\nTime=$4:$5:$6' |
621 | 2961 | mdecorde | goto send |
622 | 2961 | mdecorde | |
623 | 2961 | mdecorde | GetFileAttributes: |
624 | 2961 | mdecorde | ${GetFileAttributes} "$R1" "$R3" $0 |
625 | 2961 | mdecorde | IfErrors error |
626 | 2961 | mdecorde | StrCpy $R0 '$0' |
627 | 2961 | mdecorde | goto send |
628 | 2961 | mdecorde | |
629 | 2961 | mdecorde | GetFileVersion: |
630 | 2961 | mdecorde | ${GetFileVersion} "$R1" $0 |
631 | 2961 | mdecorde | IfErrors error |
632 | 2961 | mdecorde | StrCpy $R0 '$0' |
633 | 2961 | mdecorde | goto send |
634 | 2961 | mdecorde | |
635 | 2961 | mdecorde | GetExeName: |
636 | 2961 | mdecorde | ${GetExeName} $0 |
637 | 2961 | mdecorde | StrCpy $R0 '$0' |
638 | 2961 | mdecorde | goto send |
639 | 2961 | mdecorde | |
640 | 2961 | mdecorde | GetExePath: |
641 | 2961 | mdecorde | ${GetExePath} $0 |
642 | 2961 | mdecorde | StrCpy $R0 '$0' |
643 | 2961 | mdecorde | goto send |
644 | 2961 | mdecorde | |
645 | 2961 | mdecorde | GetParameters: |
646 | 2961 | mdecorde | ${GetParameters} $0 |
647 | 2961 | mdecorde | StrCpy $R0 '$0' |
648 | 2961 | mdecorde | StrCmp $R0 '' 0 send |
649 | 2961 | mdecorde | StrCpy $R0 'no parameters' |
650 | 2961 | mdecorde | goto send |
651 | 2961 | mdecorde | |
652 | 2961 | mdecorde | GetOptions: |
653 | 2961 | mdecorde | ${GetOptions} "$R1" "$R3" $0 |
654 | 2961 | mdecorde | IfErrors error |
655 | 2961 | mdecorde | StrCpy $R0 '$0' |
656 | 2961 | mdecorde | goto send |
657 | 2961 | mdecorde | |
658 | 2961 | mdecorde | GetRoot: |
659 | 2961 | mdecorde | ${GetRoot} "$R1" $0 |
660 | 2961 | mdecorde | StrCpy $R0 '$0' |
661 | 2961 | mdecorde | goto send |
662 | 2961 | mdecorde | |
663 | 2961 | mdecorde | GetParent: |
664 | 2961 | mdecorde | ${GetParent} "$R1" $0 |
665 | 2961 | mdecorde | StrCpy $R0 '$0' |
666 | 2961 | mdecorde | goto send |
667 | 2961 | mdecorde | |
668 | 2961 | mdecorde | GetFileName: |
669 | 2961 | mdecorde | ${GetFileName} "$R1" $0 |
670 | 2961 | mdecorde | StrCpy $R0 '$0' |
671 | 2961 | mdecorde | goto send |
672 | 2961 | mdecorde | |
673 | 2961 | mdecorde | GetBaseName: |
674 | 2961 | mdecorde | ${GetBaseName} "$R1" $0 |
675 | 2961 | mdecorde | StrCpy $R0 '$0' |
676 | 2961 | mdecorde | goto send |
677 | 2961 | mdecorde | |
678 | 2961 | mdecorde | GetFileExt: |
679 | 2961 | mdecorde | ${GetFileExt} "$R1" $0 |
680 | 2961 | mdecorde | StrCpy $R0 '$0' |
681 | 2961 | mdecorde | goto send |
682 | 2961 | mdecorde | |
683 | 2961 | mdecorde | BannerTrimPath: |
684 | 2961 | mdecorde | ${BannerTrimPath} "$R1" "$R3" $0 |
685 | 2961 | mdecorde | StrCpy $R0 '$0' |
686 | 2961 | mdecorde | goto send |
687 | 2961 | mdecorde | |
688 | 2961 | mdecorde | DirState: |
689 | 2961 | mdecorde | ${DirState} "$R2" $0 |
690 | 2961 | mdecorde | StrCpy $R0 '$0' |
691 | 2961 | mdecorde | goto send |
692 | 2961 | mdecorde | |
693 | 2961 | mdecorde | RefreshShellIcons: |
694 | 2961 | mdecorde | ${RefreshShellIcons} |
695 | 2961 | mdecorde | StrCpy $R0 'done' |
696 | 2961 | mdecorde | goto send |
697 | 2961 | mdecorde | |
698 | 2961 | mdecorde | error: |
699 | 2961 | mdecorde | StrCpy $R0 'error' |
700 | 2961 | mdecorde | |
701 | 2961 | mdecorde | send: |
702 | 2961 | mdecorde | GetDlgItem $1 $HWND 1208 |
703 | 2961 | mdecorde | SendMessage $1 ${WM_SETTEXT} 1 "STR:$R0" |
704 | 2961 | mdecorde | |
705 | 2961 | mdecorde | abort |
706 | 2961 | mdecorde | FunctionEnd |
707 | 2961 | mdecorde | |
708 | 2961 | mdecorde | Function LocateCallback |
709 | 2961 | mdecorde | MessageBox MB_OKCANCEL '$$R9 "path\name"=[$R9]$\n$$R8 "path" =[$R8]$\n$$R7 "name" =[$R7]$\n$$R6 "size" =[$R6]' IDOK +2 |
710 | 2961 | mdecorde | StrCpy $R0 StopLocate |
711 | 2961 | mdecorde | |
712 | 2961 | mdecorde | Push $R0 |
713 | 2961 | mdecorde | FunctionEnd |
714 | 2961 | mdecorde | |
715 | 2961 | mdecorde | Function GetDrivesCallback |
716 | 2961 | mdecorde | MessageBox MB_OKCANCEL '$$9 "drive letter"=[$9]$\n$$8 "drive type" =[$8]' IDOK +2 |
717 | 2961 | mdecorde | StrCpy $R0 StopGetDrives |
718 | 2961 | mdecorde | StrCpy $R5 '$R5$9 [$8 Drive]$\r$\n' |
719 | 2961 | mdecorde | |
720 | 2961 | mdecorde | Push $R0 |
721 | 2961 | mdecorde | FunctionEnd |
722 | 2961 | mdecorde | |
723 | 2961 | mdecorde | Function .onInit |
724 | 2961 | mdecorde | InitPluginsDir |
725 | 2961 | mdecorde | GetTempFileName $INI $PLUGINSDIR |
726 | 2961 | mdecorde | File /oname=$INI "FileFunc.ini" |
727 | 2961 | mdecorde | FunctionEnd |
728 | 2961 | mdecorde | |
729 | 2961 | mdecorde | Page instfiles |
730 | 2961 | mdecorde | |
731 | 2961 | mdecorde | Section "Empty" |
732 | 2961 | mdecorde | SectionEnd |