![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sample2.mst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / mssetup|
Return to sample2.mst CVS log | Up to [WindowsNT SDKs] / mstools / mssetup |
1.1 root 1: '**************************************************************************
2: '* MSSetup Toolkit Sample 2
3: '**************************************************************************
4:
5: '$DEFINE DEBUG ''Define for script development/debugging
6:
7: '$INCLUDE 'setupapi.inc'
8: '$INCLUDE 'msdetect.inc'
9:
10: ''Dialog ID's
11: CONST ASKQUIT = 200
12: CONST DESTPATH = 300
13: CONST EXITFAILURE = 400
14: CONST EXITQUIT = 600
15: CONST EXITSUCCESS = 700
16: CONST OPTIONS = 800
17: CONST APPHELP = 900
18: CONST CUSTINST = 6200
19: CONST TOOBIG = 6300
20: CONST BADPATH = 6400
21:
22: ''Bitmap ID
23: CONST LOGO = 1
24:
25: ''File Types
26: CONST APPFILES = 1
27: CONST OPTFILES1 = 2
28: CONST OPTFILES2 = 3
29:
30:
31: GLOBAL DEST$ ''Default destination directory.
32: GLOBAL WINDRIVE$ ''Windows drive letter.
33: GLOBAL OPT1OPT$ ''Option selection from OptFiles1 option dialog.
34: GLOBAL OPT2OPT$ ''Option selection from OptFiles2 option dialog.
35:
36: ''CustInst list symbol names
37: GLOBAL APPNEEDS$ ''Option list costs per drive
38: GLOBAL OPT1NEEDS$
39: GLOBAL OPT2NEEDS$
40: GLOBAL EXTRACOSTS$ ''List of extra costs to add per drive
41: GLOBAL BIGLIST$ ''List of option files cost calc results (boolean)
42:
43: ''Dialog list symbol names
44: GLOBAL CHECKSTATES$
45: GLOBAL STATUSTEXT$
46: GLOBAL DRIVETEXT$
47:
48:
49: DECLARE SUB AddOptFilesToCopyList (ftype%)
50: DECLARE SUB RecalcOptFiles (ftype%)
51: DECLARE SUB RecalcPath
52: DECLARE SUB SetDriveStatus
53: DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
54:
55:
56:
57: INIT:
58: CUIDLL$ = "mscuistf.dll" ''custom user interface dll
59: HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
60:
61: SetBitmap CUIDLL$, LOGO
62: SetTitle "MSSetup Toolkit Sample 2"
63:
64: szInf$ = GetSymbolValue("STF_SRCINFPATH")
65: IF szInf$ = "" THEN
66: szInf$ = GetSymbolValue("STF_CWDDIR") + "SAMPLE2.INF"
67: END IF
68: ReadInfFile szInf$
69:
70: WINDRIVE$ = MID$(GetWindowsDir, 1, 1)
71: DEST$ = WINDRIVE$ + ":\DEMO"
72:
73: ''CustInst list symbols
74: CHECKSTATES$ = "CheckItemsState"
75: STATUSTEXT$ = "StatusItemsText"
76: DRIVETEXT$ = "DriveStatusText"
77: FOR i% = 1 TO 3 STEP 1
78: AddListItem CHECKSTATES$, "ON"
79: NEXT i%
80: FOR i% = 1 TO 3 STEP 1
81: AddListItem STATUSTEXT$, ""
82: NEXT i%
83: FOR i% = 1 TO 7 STEP 1
84: AddListItem DRIVETEXT$, ""
85: NEXT i%
86: ReplaceListItem DRIVETEXT$, 7, DEST$
87:
88: ''Disk cost list symbols
89: APPNEEDS$ = "AppNeeds"
90: OPT1NEEDS$ = "Opt1Needs"
91: OPT2NEEDS$ = "Opt2Needs"
92: EXTRACOSTS$ = "ExtraCosts"
93: BIGLIST$ = "BigList"
94: FOR i% = 1 TO 3 STEP 1
95: AddListItem BIGLIST$, ""
96: NEXT i%
97: FOR i% = 1 TO 26 STEP 1
98: AddListItem EXTRACOSTS$, "0"
99: NEXT i%
100:
101: ''File Option Variables
102: OPT1OPT$ = "1"
103: OPT2OPT$ = "1"
104:
105: RecalcPath
106: SetDriveStatus
107:
108: '$IFDEF DEBUG
109: i% = SetSizeCheckMode(scmOnIgnore) '' could use scmOff; def = scmOnFatal
110: '$ENDIF ''DEBUG
111:
112:
113:
114: CUSTINST:
115: sz$ = UIStartDlg(CUIDLL$, CUSTINST, "FCustInstDlgProc", APPHELP, HELPPROC$)
116:
117: IF sz$ = "CONTINUE" THEN
118: ''Install only if it will fit.
119: FOR i% = 1 TO 3 STEP 1
120: IF GetListItem(BIGLIST$, i%) <> "" THEN
121: GOSUB TOOBIG
122: GOTO CUSTINST
123: END IF
124: NEXT i%
125: UIPop 1
126: GOTO INSTALL
127: ELSEIF sz$ = "PATH" THEN
128: GOTO GETPATH
129: ELSEIF sz$ = "CHK1" THEN
130: RecalcOptFiles APPFILES
131: SetDriveStatus
132: GOTO CUSTINST
133: ELSEIF sz$ = "CHK2" THEN
134: RecalcOptFiles OPTFILES1
135: SetDriveStatus
136: GOTO CUSTINST
137: ELSEIF sz$ = "CHK3" THEN
138: RecalcOptFiles OPTFILES2
139: SetDriveStatus
140: GOTO CUSTINST
141: ELSEIF sz$ = "BTN2" THEN
142: GOTO OPTFILES1
143: ELSEIF sz$ = "BTN3" THEN
144: GOTO OPTFILES2
145: ELSEIF sz$ = "REACTIVATE" THEN
146: RecalcPath
147: SetDriveStatus
148: GOTO CUSTINST
149: ELSE
150: GOSUB ASKQUIT
151: GOTO CUSTINST
152: END IF
153:
154:
155:
156: INSTALL:
157: ClearCopyList
158: AddOptFilesToCopyList APPFILES
159: AddOptFilesToCopyList OPTFILES1
160: AddOptFilesToCopyList OPTFILES2
161: CreateDir DEST$, cmoNone
162: CopyFilesInCopyList
163:
164: IF GetListItem(CHECKSTATES$, OPTFILES1) = "ON" THEN
165: ini$ = MakePath(DEST$, "DEMO.INI")
166: CreateIniKeyValue "WIN.INI", "MSSetup Sample 2", "Option1", OPT1OPT$, cmoNone
167: CreateIniKeyValue ini$, "Section 1", "Key 1", "Value 1" , cmoNone
168: CreateIniKeyValue ini$, "Section 2", "Key 2", "Value 2" , cmoNone
169: CreateIniKeyValue ini$, "Section 3", "Key 3", "Value 3" , cmoNone
170: ini$ = ""
171: END IF
172:
173: IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
174: CreateProgmanGroup "MSSetup Sample 2", "", cmoNone
175: ShowProgmanGroup "MSSetup Sample 2", 1, cmoNone
176: CreateProgmanItem "MSSetup Sample 2", "dialogs", "dlgedit.exe "+MakePath(DEST$,"dialogs.res"), "", cmoOverwrite
177: CreateProgmanItem "MSSetup Sample 2", "dlgprocs.c", "notepad.exe "+MakePath(DEST$,"dlgprocs.c"), "", cmoOverwrite
178: END IF
179:
180:
181: QUIT:
182: ON ERROR GOTO ERRQUIT
183:
184: IF ERR = 0 THEN
185: dlg% = EXITSUCCESS
186: ELSEIF ERR = STFQUIT THEN
187: dlg% = EXITQUIT
188: ELSE
189: dlg% = EXITFAILURE
190: END IF
191: QUITL1:
192: sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
193: IF sz$ = "REACTIVATE" THEN
194: GOTO QUITL1
195: END IF
196: UIPop 1
197:
198: END
199:
200: ERRQUIT:
201: i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
202: END
203:
204:
205:
206: GETPATH:
207: SetSymbolValue "EditTextIn", DEST$
208: SetSymbolValue "EditFocus", "END"
209: GETPATHL1:
210: sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
211:
212: IF sz$ = "CONTINUE" THEN
213: olddest$ = DEST$
214: DEST$ = GetSymbolValue("EditTextOut")
215:
216: ''Validate new path.
217: IF IsDirWritable(DEST$) = 0 THEN
218: GOSUB BADPATH
219: GOTO GETPATHL1
220: END IF
221: UIPop 1
222:
223: ''Truncate display if too long.
224: IF LEN(DEST$) > 23 THEN
225: ReplaceListItem DRIVETEXT$, 7, MID$(DEST$, 1, 23)+"..."
226: ELSE
227: ReplaceListItem DRIVETEXT$, 7, DEST$
228: END IF
229:
230: ''Recalc if path changed.
231: IF (olddest$ <> DEST$) AND (olddest$ <> DEST$+"\") AND (olddest$+"\" <> DEST$) THEN
232: RecalcPath
233: SetDriveStatus
234: END IF
235:
236: olddest$ = ""
237: GOTO CUSTINST
238: ELSEIF sz$ = "REACTIVATE" THEN
239: RecalcPath
240: SetDriveStatus
241: GOTO GETPATHL1
242: ELSEIF sz$ = "EXIT" THEN
243: GOSUB ASKQUIT
244: GOTO GETPATHL1
245: ELSE
246: UIPop 1
247: GOTO CUSTINST
248: END IF
249:
250:
251:
252: OPTFILES1:
253: SetSymbolValue "RadioDefault", OPT1OPT$
254: OPT1L1:
255: sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
256: newopt$ = GetSymbolValue("ButtonChecked")
257:
258: IF sz$ = "CONTINUE" THEN
259: UIPop 1
260: IF newopt$ <> OPT1OPT$ THEN
261: OPT1OPT$ = newopt$
262: RecalcOptFiles OPTFILES1
263: SetDriveStatus
264: END IF
265: newopt$ = ""
266: GOTO CUSTINST
267: ELSEIF sz$ = "REACTIVATE" THEN
268: RecalcPath
269: SetDriveStatus
270: GOTO OPT1L1
271: ELSEIF sz$ = "EXIT" THEN
272: GOSUB ASKQUIT
273: GOTO OPT1L1
274: ELSE
275: UIPop 1
276: newopt$ = ""
277: GOTO CUSTINST
278: END IF
279:
280:
281:
282: OPTFILES2:
283: SetSymbolValue "RadioDefault", OPT2OPT$
284: OPT2L1:
285: sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
286: newopt$ = GetSymbolValue("ButtonChecked")
287:
288: IF sz$ = "CONTINUE" THEN
289: UIPop 1
290: IF newopt$ <> OPT2OPT$ THEN
291: OPT2OPT$ = newopt$
292: RecalcOptFiles OPTFILES2
293: SetDriveStatus
294: END IF
295: newopt$ = ""
296: GOTO CUSTINST
297: ELSEIF sz$ = "REACTIVATE" THEN
298: RecalcPath
299: SetDriveStatus
300: GOTO OPT2L1
301: ELSEIF sz$ = "EXIT" THEN
302: GOSUB ASKQUIT
303: GOTO OPT2L1
304: ELSE
305: UIPop 1
306: newopt$ = ""
307: GOTO CUSTINST
308: END IF
309:
310:
311:
312: TOOBIG:
313: sz$ = UIStartDlg(CUIDLL$, TOOBIG, "FInfo0DlgProc", 0, "")
314: IF sz$ = "REACTIVATE" THEN
315: RecalcPath
316: SetDriveStatus
317: GOTO TOOBIG
318: END IF
319: UIPop 1
320: RETURN
321:
322:
323:
324: BADPATH:
325: sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
326: IF sz$ = "REACTIVATE" THEN
327: RecalcPath
328: SetDriveStatus
329: GOTO BADPATH
330: END IF
331: UIPop 1
332: RETURN
333:
334:
335:
336: ASKQUIT:
337: sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
338:
339: IF sz$ = "EXIT" THEN
340: UIPopAll
341: ERROR STFQUIT
342: ELSEIF sz$ = "REACTIVATE" THEN
343: GOTO ASKQUIT
344: ELSE
345: UIPop 1
346: END IF
347: RETURN
348:
349:
350:
351: '**
352: '** Purpose:
353: '** Adds the specified option files to the copy list.
354: '** Arguments:
355: '** ftype% - type of files to add, one of the following:
356: '** APPFILES, OPTFILES1, OPTFILES2
357: '** Returns:
358: '** none.
359: '*************************************************************************
360: SUB AddOptFilesToCopyList (ftype%) STATIC
361:
362: IF GetListItem(CHECKSTATES$, ftype%) = "ON" THEN
363: SrcDir$ = GetSymbolValue("STF_SRCDIR")
364: IF ftype% = APPFILES THEN
365: AddSectionFilesToCopyList "AppFiles", SrcDir$, DEST$
366: ELSEIF ftype% = OPTFILES1 THEN
367: AddSectionKeyFileToCopyList "OptFiles1", OPT1OPT$, SrcDir$, DEST$
368: ELSEIF ftype% = OPTFILES2 THEN
369: AddSectionKeyFileToCopyList "OptFiles2", OPT2OPT$, SrcDir$, DEST$
370: END IF
371: SrcDir$ = ""
372: END IF
373: END SUB
374:
375:
376: '**
377: '** Purpose:
378: '** Recalculates disk space for the given option files and sets
379: '** the status info symbol "StatusItemsText".
380: '** Arguments:
381: '** ftype% - type of files to add, one of the following:
382: '** APPFILES, OPTFILES1, OPTFILES2
383: '** Returns:
384: '** none.
385: '*************************************************************************
386: SUB RecalcOptFiles (ftype%) STATIC
387: CursorSave% = ShowWaitCursor()
388: ClearCopyList
389: AddOptFilesToCopyList ftype%
390:
391: fExtra% = 0
392: IF ftype% = APPFILES THEN
393: ListSym$ = APPNEEDS$
394: IF GetListItem(CHECKSTATES$, APPFILES) = "ON" THEN
395: ''Add extra cost to Windows drive for ini/progman, etc.
396: ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
397: ReplaceListItem EXTRACOSTS$, ndrive%, "10240"
398: fExtra% = 1
399: END IF
400: ELSEIF ftype% = OPTFILES1 THEN
401: ListSym$ = OPT1NEEDS$
402: ELSEIF ftype% = OPTFILES2 THEN
403: ListSym$ = OPT2NEEDS$
404: END IF
405:
406: StillNeed& = GetCopyListCost(EXTRACOSTS$, ListSym$, "")
407:
408: cost& = 0
409: FOR i% = 1 TO 26 STEP 1
410: cost& = cost& + VAL(GetListItem(ListSym$, i%))
411: NEXT i%
412: ReplaceListItem STATUSTEXT$, ftype%, STR$(cost& / 1024) + " K"
413:
414: IF StillNeed& > 0 THEN
415: ReplaceListItem BIGLIST$, ftype%, "YES"
416: ELSE
417: ReplaceListItem BIGLIST$, ftype%, ""
418: END IF
419:
420: IF fExtra% THEN
421: ReplaceListItem EXTRACOSTS$, ndrive%, "0"
422: END IF
423: RestoreCursor CursorSave%
424: ListSym$ = ""
425: END SUB
426:
427:
428: '**
429: '** Purpose:
430: '** Recalculates disk space and sets option status info according
431: '** to the current destination path.
432: '** Arguments:
433: '** none.
434: '** Returns:
435: '** none.
436: '*************************************************************************
437: SUB RecalcPath STATIC
438:
439: CursorSave% = ShowWaitCursor()
440:
441: RecalcOptFiles APPFILES
442: RecalcOptFiles OPTFILES1
443: RecalcOptFiles OPTFILES2
444:
445: RestoreCursor CursorSave%
446: END SUB
447:
448:
449: '**
450: '** Purpose:
451: '** Sets drive status info according to latest disk space calcs.
452: '** Arguments:
453: '** none.
454: '** Returns:
455: '** none.
456: '*************************************************************************
457: SUB SetDriveStatus STATIC
458:
459: drive$ = MID$(DEST$, 1, 1)
460: ndrive% = ASC(ucase$(drive$)) - ASC("A") + 1
461: cost& = VAL(GetListItem(APPNEEDS$, ndrive%)) + VAL(GetListItem(OPT1NEEDS$, ndrive%)) + VAL(GetListItem(OPT2NEEDS$, ndrive%))
462: free& = GetFreeSpaceForDrive(drive$)
463: ReplaceListItem DRIVETEXT$, 1, drive$ + ":"
464: ReplaceListItem DRIVETEXT$, 2, STR$(cost& / 1024) + " K"
465: ReplaceListItem DRIVETEXT$, 3, STR$(free& / 1024) + " K"
466:
467: IF drive$ = WINDRIVE$ THEN
468: ReplaceListItem DRIVETEXT$, 4, ""
469: ReplaceListItem DRIVETEXT$, 5, ""
470: ReplaceListItem DRIVETEXT$, 6, ""
471: ELSE
472: ndrive% = ASC(ucase$(WINDRIVE$)) - ASC("A") + 1
473: cost& = VAL(GetListItem(APPNEEDS$, ndrive%)) + VAL(GetListItem(OPT1NEEDS$, ndrive%)) + VAL(GetListItem(OPT2NEEDS$, ndrive%))
474: IF cost& = 0 THEN
475: ReplaceListItem DRIVETEXT$, 4, ""
476: ReplaceListItem DRIVETEXT$, 5, ""
477: ReplaceListItem DRIVETEXT$, 6, ""
478: ELSE
479: free& = GetFreeSpaceForDrive(WINDRIVE$)
480: ReplaceListItem DRIVETEXT$, 4, WINDRIVE$ + ":"
481: ReplaceListItem DRIVETEXT$, 5, STR$(cost& / 1024) + " K"
482: ReplaceListItem DRIVETEXT$, 6, STR$(free& / 1024) + " K"
483: END IF
484: END IF
485: END SUB
486:
487:
488: '**
489: '** Purpose:
490: '** Appends a file name to the end of a directory path,
491: '** inserting a backslash character as needed.
492: '** Arguments:
493: '** szDir$ - full directory path (with optional ending "\")
494: '** szFile$ - filename to append to directory
495: '** Returns:
496: '** Resulting fully qualified path name.
497: '*************************************************************************
498: FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
499: IF szDir$ = "" THEN
500: MakePath = szFile$
501: ELSEIF szFile$ = "" THEN
502: MakePath = szDir$
503: ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
504: MakePath = szDir$ + szFile$
505: ELSE
506: MakePath = szDir$ + "\" + szFile$
507: END IF
508: END FUNCTION
509:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.