![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to 32sinst.mst CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [WindowsNT SDKs] / mstools / win32s / setup|
Return to 32sinst.mst CVS log | Up to [WindowsNT SDKs] / mstools / win32s / setup |
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 BADPATH = 6400
19:
20: CONST HELPWELCOME = 1000
21: CONST VERPATH = 1100
22: CONST EXITFAILNOTWIN31 = 1200
23: CONST EXITFAILNOTENH = 1300
24: CONST FREECELLINST = 1400
25: CONST FREECELLPATH = 1500
26: CONST HELPFREECELL = 1600
27:
28:
29: ''Bitmap ID
30: CONST LOGO = 1
31:
32: GLOBAL DESTSYS$ ''Windows\System directory.
33: GLOBAL DEST32S$ ''Windows\System\Win32s directory
34: GLOBAL DESTFREE$ ''Freecell directory
35:
36: DECLARE SUB Install
37: DECLARE SUB UpdateSystemIni
38: DECLARE SUB RebootSystem
39: DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
40: DECLARE FUNCTION MakeSystemIni LIB "INIUPD.DLL" (arg1$, arg2$) AS INTEGER
41: DECLARE FUNCTION RestartWindows LIB "INIUPD.DLL" (arg1$) AS INTEGER
42:
43: INIT:
44: CUIDLL$ = "mscuistf.dll" ''Custom user interface dll
45: HELPPROC$ = "FHelpDlgProc" ''Help dialog procedure
46:
47: SetBitmap CUIDLL$, LOGO
48: SetTitle "Microsoft Win32s Setup Program"
49:
50: szInf$ = GetSymbolValue("STF_SRCINFPATH")
51: IF szInf$ = "" THEN
52: szInf$ = GetSymbolValue("STF_CWDDIR") + "32sinst.inf"
53: END IF
54: ReadInfFile szInf$
55:
56: DESTSYS$ = GetWindowsSysDir()
57: DEST32S$ = DESTSYS + "WIN32S\"
58:
59: '$IFDEF DEBUG
60: i% = SetSizeCheckMode(scmOnIgnore) '' could use scmOff; def = scmOnFatal
61: WinDrive$ = MID$(GetWindowsDir, 1, 1)
62: IF IsDriveValid(WinDrive$) = 0 THEN
63: i% = DoMsgBox("Windows drive ('"+WinDrive$+"') is not a valid drive.", "DEBUG", MB_TASKMODAL+MB_ICONHAND+MB_OK)
64: GOTO QUIT
65: END IF
66: '$ENDIF ''DEBUG
67:
68: CHECK:
69: IF GetWindowsMajorVersion < 3 THEN
70: ExitCode% = EXITFAILNOTWIN31
71: GOTO QUIT
72: END IF
73: IF GetWindowsMajorVersion = 3 AND GetWindowsMinorVersion < 1 THEN
74: ExitCode% = EXITFAILNOTWIN31
75: GOTO QUIT
76: END IF
77: IF GetWindowsMode < 2 THEN '' Not Enhanced or Windows NT
78: ExitCode% = EXITFAILNOTENH
79: GOTO QUIT
80: END IF
81: ExitCode% = EXITSUCCESS
82:
83:
84: WELCOME:
85: sz$ = UIStartDlg(CUIDLL$, WELCOME, "FInfoDlgProc", HELPWELCOME, HELPPROC$)
86: IF sz$ = "CONTINUE" THEN
87: UIPop 1
88: ELSE
89: GOSUB ASKQUIT
90: GOTO WELCOME
91: END IF
92:
93:
94: GETWIN32SPATH:
95: SetSymbolValue "EditTextIn", DESTSYS$
96: SetSymbolValue "EditFocus", "END"
97:
98: GETPATHL1:
99: sz$ = UIStartDlg(CUIDLL$, VERPATH, "FDispDlgProc", HELPWELCOME, HELPPROC$)
100:
101: IF sz$ = "CONTINUE" THEN
102: IF IsDirWritable(DESTSYS$) = 0 THEN
103: GOSUB BADPATH
104: GOTO GETPATHL1
105: END IF
106: UIPop 1
107: ELSEIF sz$ = "REACTIVATE" THEN
108: GOTO GETPATHL1
109: ELSEIF sz$ = "BACK" THEN
110: UIPop 1
111: GOTO WELCOME
112: ELSE
113: GOSUB ASKQUIT
114: GOTO GETPATHL1
115: END IF
116:
117: COPYFILES:
118:
119: CreateDir DEST32S$, cmoNone
120: OpenLogFile MakePath(DEST32S$, "W32SSET.LOG"), 0
121:
122: Install
123: UpdateSystemIni
124:
125: CloseLogFile
126:
127: FREECELL:
128: sz$ = UIStartDlg(CUIDLL$, FREECELLINST, "FInfoDlgProc",0, "")
129: IF sz$ = "CONTINUE" THEN
130: UIPop 1
131: ELSE
132: GOTO QUIT
133: END IF
134:
135: GETFREEPATH:
136: DESTFREE$ = MID$(DESTSYS$,1,3) + "WIN32APP\FREECELL\"
137: SetSymbolValue "EditTextIn", DESTFREE$
138: SetSymbolValue "EditFocus", "END"
139:
140: GETFREEPATHL1:
141: sz$ = UIStartDlg(CUIDLL$, FREECELLPATH, "FEditDlgProc", HELPFREECELL, HELPPROC$)
142:
143: IF sz$ = "CONTINUE" THEN
144: DESTFREE$ = GetSymbolValue("EditTextOut")
145:
146: ''Validate new path.
147: IF IsDirWritable(DESTFREE$) = 0 THEN
148: GOSUB BADPATH
149: GOTO GETFREEPATHL1
150: END IF
151: UIPop 1
152:
153: GOTO COPYFREECELL
154: ELSEIF sz$ = "REACTIVATE" THEN
155: GOTO GETFREEPATHL1
156: ELSEIF sz$ = "EXIT" THEN
157: UIPop 1
158: GOTO QUIT
159: END IF
160:
161: COPYFREECELL:
162: ClearCopyList
163: CreateDir DESTFREE$, cmoNone
164:
165: OpenLogFile MakePath(DEST32S$, "SETUP.LOG"), 0
166:
167: SrcDir$ = GetSymbolValue("STF_SRCDIR")
168: WriteToLogFile ""
169: WriteToLogFile " User chose as destination directory: '" + DESTFREE$ + "'"
170: WriteToLogFile ""
171: WriteToLogFile "May have had to create the directory: " + DESTFREE$
172: WriteToLogFile ""
173:
174: AddSectionFilesToCopyList "Win32appFreecell", SrcDir$, DESTFREE$
175: CopyFilesInCopyList
176:
177: CreateProgmanGroup "Win32 Applications", "", cmoNone
178: ShowProgmanGroup "Win32 Applications", 1, cmoNone
179: CreateProgmanItem "Win32 Applications", "Freecell", DESTFREE$ + "FREECELL.EXE", "", cmoOverwrite
180:
181: CloseLogFile
182:
183:
184:
185: QUIT:
186: ON ERROR GOTO ERRQUIT
187: IF ERR = 0 THEN
188: dlg% = ExitCode%
189: ELSEIF ERR = STFQUIT THEN
190: dlg% = EXITQUIT
191: ELSE
192: dlg% = EXITFAILURE
193: END IF
194:
195: QUITL1:
196: sz$ = UIStartDlg(CUIDLL$, dlg%, "FInfo0DlgProc", 0, "")
197: IF sz$ = "REACTIVATE" THEN
198: GOTO QUITL1
199: END IF
200: UIPop 1
201:
202: RebootSystem
203:
204: END
205:
206: ERRQUIT:
207: i% = DoMsgBox("Setup sources were corrupted!", "Setup Message", MB_OK+MB_TASKMODAL+MB_ICONHAND)
208: END
209:
210:
211:
212: BADPATH:
213: sz$ = UIStartDlg(CUIDLL$, BADPATH, "FInfo0DlgProc", 0, "")
214: IF sz$ = "REACTIVATE" THEN
215: GOTO BADPATH
216: END IF
217: UIPop 1
218: RETURN
219:
220:
221:
222: ASKQUIT:
223: sz$ = UIStartDlg(CUIDLL$, ASKQUIT, "FQuitDlgProc", 0, "")
224:
225: IF sz$ = "EXIT" THEN
226: UIPopAll
227: ERROR STFQUIT
228: ELSEIF sz$ = "REACTIVATE" THEN
229: GOTO ASKQUIT
230: ELSE
231: UIPop 1
232: END IF
233: RETURN
234:
235:
236:
237: '**
238: '** Purpose:
239: '** Builds the copy list and performs all installation operations.
240: '** Arguments:
241: '** none.
242: '** Returns:
243: '** none.
244: '*************************************************************************
245: SUB Install STATIC
246:
247: SrcDir$ = GetSymbolValue("STF_SRCDIR")
248:
249: WriteToLogFile ""
250: WriteToLogFile " User chose as destination directory: '" + DESTSYS$ + "'"
251: WriteToLogFile ""
252: WriteToLogFile "May have had to create the directory: " + DESTSYS$
253: WriteToLogFile ""
254:
255: AddSectionFilesToCopyList "WindowsSystem", SrcDir$, DESTSYS$
256: AddSectionFilesToCopyList "WindowsSystemWin32s", SrcDir$, DESTSYS$ + "WIN32S\"
257:
258: t% = RestartWindows( GetWindowsSysDir() + "OLECLI.DLL" )
259: SetRestartDir GetWindowsDir()
260: CopyFilesInCopyList
261:
262: END SUB
263:
264: SUB UpdateSystemIni STATIC
265:
266: VxDPath$ = DEST32S$ + "W32S.386"
267: SystemIniPath$ = GetWindowsDir()
268:
269: t% = MakeSystemIni(SystemIniPath$, VxdPath$)
270:
271: END SUB
272:
273: SUB RebootSystem STATIC
274:
275: i% = RestartListEmpty()
276: i% = ExitExecRestart()
277:
278: END SUB
279:
280:
281: '**
282: '** Purpose:
283: '** Appends a file name to the end of a directory path,
284: '** inserting a backslash character as needed.
285: '** Arguments:
286: '** szDir$ - full directory path (with optional ending "\")
287: '** szFile$ - filename to append to directory
288: '** Returns:
289: '** Resulting fully qualified path name.
290: '*************************************************************************
291: FUNCTION MakePath (szDir$, szFile$) STATIC AS STRING
292: IF szDir$ = "" THEN
293: MakePath = szFile$
294: ELSEIF szFile$ = "" THEN
295: MakePath = szDir$
296: ELSEIF MID$(szDir$, LEN(szDir$), 1) = "\" THEN
297: MakePath = szDir$ + szFile$
298: ELSE
299: MakePath = szDir$ + "\" + szFile$
300: END IF
301: END FUNCTION
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.