![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to sample1.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 sample1.mst CVS log | Up to [WindowsNT SDKs] / mstools / mssetup |
1.1 root 1: '**************************************************************************
2: '* MSSetup Toolkit Sample 1
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 WELCOME = 100
12: CONST ASKQUIT = 200
13: CONST DESTPATH = 300
14: CONST EXITFAILURE = 400
15: CONST EXITQUIT = 600
16: CONST EXITSUCCESS = 700
17: CONST OPTIONS = 800
18: CONST APPHELP = 900
19: CONST BADPATH = 6400
20:
21: ''Bitmap ID
22: CONST LOGO = 1
23:
24: GLOBAL DEST$ ''Default destination directory.
25: GLOBAL OPTCUR$ ''Option selection from option dialog.
26:
27: DECLARE SUB Install
28: DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
29:
30:
31: INIT:
32: CUIDLL$ = "mscuistf.dll" ''Custom user interface dll
33: HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
34:
35: SetBitmap CUIDLL$, LOGO
36: SetTitle "MSSetup Toolkit Sample 1"
37:
38: szInf$ = GetSymbolValue("STF_SRCINFPATH")
39: IF szInf$ = "" THEN
40: szInf$ = GetSymbolValue("STF_CWDDIR") + "SAMPLE1.INF"
41: END IF
42: ReadInfFile szInf$
43:
44: OPTCUR$ = "1"
45: DEST$ = "C:\DEMO"
46:
47: '$IFDEF DEBUG
48: i% = SetSizeCheckMode(scmOnIgnore) '' could use scmOff; def = scmOnFatal
49: WinDrive$ = MID$(GetWindowsDir, 1, 1)
50: IF IsDriveValid(WinDrive$) = 0 THEN
51: i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
52: GOTO QUIT
53: END IF
54: '$ENDIF ''DEBUG
55:
56:
57: WELCOME:
58: sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", APPHELP, HELPPROC$)
59: IF sz$ = "CONTINUE" THEN
60: UIPop 1
61: ELSE
62: GOSUB ASKQUIT
63: GOTO WELCOME
64: END IF
65:
66:
67: OPTION:
68: SetSymbolValue "RadioDefault", OPTCUR$
69: OPTL1:
70: sz$ = UIStartDlg(CUIDLL$, OPTIONS, "FRadioDlgProc", APPHELP, HELPPROC$)
71: OPTCUR$ = GetSymbolValue("ButtonChecked")
72:
73: IF sz$ = "CONTINUE" THEN
74: UIPop(1)
75: ELSEIF sz$ = "REACTIVATE" THEN
76: GOTO OPTL1
77: ELSE
78: GOSUB ASKQUIT
79: GOTO OPTION
80: END IF
81:
82:
83: GETPATH:
84: SetSymbolValue "EditTextIn", DEST$
85: SetSymbolValue "EditFocus", "END"
86: GETPATHL1:
87: sz$ = UIStartDlg(CUIDLL$, DESTPATH, "FEditDlgProc", APPHELP, HELPPROC$)
88: DEST$ = GetSymbolValue("EditTextOut")
89:
90: IF sz$ = "CONTINUE" THEN
91: IF IsDirWritable(DEST$) = 0 THEN
92: GOSUB BADPATH
93: GOTO GETPATHL1
94: END IF
95: UIPop 1
96: ELSEIF sz$ = "REACTIVATE" THEN
97: GOTO GETPATHL1
98: ELSEIF sz$ = "BACK" THEN
99: UIPop 1
100: GOTO OPTION
101: ELSE
102: GOSUB ASKQUIT
103: GOTO GETPATH
104: END IF
105:
106:
107: Install
108:
109:
110: QUIT:
111: ON ERROR GOTO ERRQUIT
112:
113: IF ERR = 0 THEN
114: dlg% = EXITSUCCESS
115: ELSEIF ERR = STFQUIT THEN
116: dlg% = EXITQUIT
117: ELSE
118: dlg% = EXITFAILURE
119: END IF
120: QUITL1:
121: sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
122: IF sz$ = "REACTIVATE" THEN
123: GOTO QUITL1
124: END IF
125: UIPop 1
126:
127: END
128:
129: ERRQUIT:
130: i% = DoMsgBox("Setup sources were corrupted, call 555-1212!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
131: END
132:
133:
134:
135: BADPATH:
136: sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
137: IF sz$ = "REACTIVATE" THEN
138: GOTO BADPATH
139: END IF
140: UIPop 1
141: RETURN
142:
143:
144:
145: ASKQUIT:
146: sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
147:
148: IF sz$ = "EXIT" THEN
149: UIPopAll
150: ERROR STFQUIT
151: ELSEIF sz$ = "REACTIVATE" THEN
152: GOTO ASKQUIT
153: ELSE
154: UIPop 1
155: END IF
156: RETURN
157:
158:
159:
160: '**
161: '** Purpose:
162: '** Builds the copy list and performs all installation operations.
163: '** Arguments:
164: '** none.
165: '** Returns:
166: '** none.
167: '*************************************************************************
168: SUB Install STATIC
169:
170: SrcDir$ = GetSymbolValue("STF_SRCDIR")
171: CreateDir DEST$, cmoNone
172:
173: OpenLogFile MakePath(DEST$, "LOGFILE.OUT"), 0
174: WriteToLogFile ""
175: WriteToLogFile " User chose as destination directory: '" + DEST$ + "'"
176: WriteToLogFile " User chose option: '" + OPTCUR$ + "'"
177: WriteToLogFile ""
178: WriteToLogFile "May have had to create the directory: " + DEST$
179: WriteToLogFile ""
180:
181: AddSectionFilesToCopyList "Files", SrcDir$, DEST$
182: AddSectionKeyFileToCopyList "Options", OPTCUR$, SrcDir$, DEST$
183: CopyFilesInCopyList
184:
185: ini$ = MakePath(DEST$, "DEMO.INI")
186: CreateIniKeyValue "WIN.INI", "MSSetup Sample 1", "Option", OPTCUR$, cmoNone
187: CreateIniKeyValue ini$, "Section 1", "Key 1", "Value 1" , cmoNone
188: CreateIniKeyValue ini$, "Section 2", "Key 2", "Value 2" , cmoNone
189: CreateIniKeyValue ini$, "Section 3", "Key 3", "Value 3" , cmoNone
190:
191: CreateProgmanGroup "MSSetup Sample 1", "", cmoNone
192: ShowProgmanGroup "MSSetup Sample 1", 1, cmoNone
193: CreateProgmanItem "MSSetup Sample 1", "dialogs", "dlgedit.exe "+MakePath(DEST$,"dialogs.res"), "", cmoOverwrite
194: CreateProgmanItem "MSSetup Sample 1", "dlgprocs.c", "notepad.exe "+MakePath(DEST$,"dlgprocs.c"), "", cmoOverwrite
195:
196: AddDos5Help "YOURAPP", "A brief help text for your Windows application."+chr$(10)+"It can be continued on another line with chr$(10).", cmoNone
197:
198: CloseLogFile
199:
200: END SUB
201:
202:
203:
204: '**
205: '** Purpose:
206: '** Appends a file name to the end of a directory path,
207: '** inserting a backslash character as needed.
208: '** Arguments:
209: '** szDir$ - full directory path (with optional ending "\")
210: '** szFile$ - filename to append to directory
211: '** Returns:
212: '** Resulting fully qualified path name.
213: '*************************************************************************
214: FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
215: IF szDir$ = "" THEN
216: MakePath = szFile$
217: ELSEIF szFile$ = "" THEN
218: MakePath = szDir$
219: ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
220: MakePath = szDir$ + szFile$
221: ELSE
222: MakePath = szDir$ + "\" + szFile$
223: END IF
224: END FUNCTION
225:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.