home *** CD-ROM | disk | FTP | other *** search
/ What the Doctor Required - The Freshest December / December.iso / drivers / ingame / sidewndr / setupapi.in_ / setupapi.in
Encoding:
Text File  |  1996-02-12  |  34.6 KB  |  1,079 lines
  1. '**************************************************************************
  2. '*******************************  Windows API's  **************************
  3. '**************************************************************************
  4. GLOBAL hSetup AS INTEGER
  5. GLOBAL fFrameInit AS INTEGER
  6. GLOBAL fInstallInit AS INTEGER
  7.  
  8. CONST SM_CXSCREEN = 0
  9. CONST SM_CYSCREEN = 1
  10.  
  11. CONST WF_80x87    = 1024
  12. CONST WF_CPU186   =  128
  13. CONST WF_CPU286   =    2
  14. CONST WF_CPU386   =    4
  15. CONST WF_CPU486   =    8
  16. CONST WF_STANDARD =   16
  17. CONST WF_ENHANCED =   32
  18.  
  19.  
  20. '' DoMsgBox Flags
  21.  
  22. CONST MB_OK          = 0
  23. CONST MB_ICONHAND    = 16
  24. CONST MB_TASKMODAL   = 8192
  25.  
  26.  
  27. DECLARE FUNCTION DoMsgBox LIB "mscomstf.dll" (lpText$,lpCaption$,wType%) As INTEGER
  28. DECLARE FUNCTION GetWindowsDirectory LIB "kernel" (szBuf$, cbBuf%) AS INTEGER
  29. DECLARE FUNCTION GetSystemDirectory LIB "kernel" (szBuf$, cbBuf%) AS INTEGER
  30. DECLARE FUNCTION GetProfileString LIB "kernel" (szSect$, szKey$, szDefault$, szBuf$, cbBuf%) AS INTEGER
  31. DECLARE FUNCTION GetVersion LIB "kernel" AS INTEGER
  32. DECLARE FUNCTION GetSystemMetrics LIB "user" (nIndex%) AS INTEGER
  33. DECLARE FUNCTION GetWinFlags LIB "kernel" AS LONG
  34.  
  35.  
  36.  
  37.  
  38. '**************************************************************************
  39. '****************************** Setup Constants ***************************
  40. '**************************************************************************
  41.  
  42.  
  43. ''Command Option Flags
  44.  
  45. CONST cmoVital       = 1
  46. CONST cmoCopy        = 2
  47. CONST cmoUndo        = 4
  48. CONST cmoRoot        = 8
  49. CONST cmoDecompress  = 16
  50. CONST cmoTimeStamp   = 32
  51. CONST cmoReadOnly    = 64
  52. CONST cmoBackup      = 128
  53. CONST cmoForce       = 256
  54. CONST cmoRemove      = 512
  55. CONST cmoOverwrite   = 1024
  56. CONST cmoAppend      = 2048
  57. CONST cmoPrepend     = 4096
  58. CONST cmoNone        = 0
  59. CONST cmoAll         = 65535
  60.  
  61.  
  62. ''File Exist Modes
  63.  
  64. CONST femExists     = 0
  65. CONST femRead       = 1
  66. CONST femWrite      = 2
  67. CONST femReadWrite  = 3
  68.  
  69.  
  70. ''Read-Only Return Code
  71.  
  72. CONST ynrcNo         = 0
  73. CONST ynrcYes        = 1
  74. CONST ynrcErr1       = 2
  75. CONST ynrcErr2       = 3
  76. CONST ynrcErr3       = 4
  77. CONST ynrcErr4       = 5
  78. CONST ynrcErr5       = 6
  79. CONST ynrcErr6       = 7
  80. CONST ynrcErr7       = 8
  81. CONST ynrcErr8       = 9
  82. CONST ynrcErr9       = 10
  83.  
  84.  
  85. ''General Return Codes
  86.  
  87. CONST grcOkay       = 0
  88. CONST grcNotOkay    = 1
  89. CONST grcUserQuit   = 48
  90.  
  91.  
  92. ''Ranges
  93.  
  94. ''CONST cbSymValMax = 8192
  95. CONST cbSymValMax = 512
  96.     ''REVIEW: symbol table will allow strings up to 8192 bytes
  97.     '' but we get Out of String Space wattdrvr error if we alloc
  98.     '' STRING$() that big. (See GetSymbolValue and GetListItem)
  99.     '' We should look into using dynamic far alloc instead of
  100.     '' STRING$ for large buffers.
  101.     '' NOTE: 8192 works okay with runtime wattdrvr, however.
  102.  
  103.  
  104. ''ON ERROR Error Codes
  105. CONST STFERR      = 1024   ''setup system error
  106. CONST STFQUIT     = 1025   ''user quit
  107.  
  108. CONST scmOff      = 0
  109. CONST scmOnIgnore = 1
  110. CONST scmOnFatal  = 2
  111.  
  112.  
  113. '**************************************************************************
  114. '********************************  Setup API's  ***************************
  115. '**************************************************************************
  116.  
  117. '' common
  118.  
  119. DECLARE FUNCTION FParseFATPathIntoPieces LIB "mscomstf.dll" (szPath$, szVol$, cbVol%, szDir$, cbDir%, szFile$, cbFile%) AS INTEGER
  120. DECLARE FUNCTION FOpenInf LIB "mscomstf.dll" (szFile$, fCheck%, fCheckSyms%) AS INTEGER
  121. DECLARE FUNCTION FSetSilent LIB "mscomstf.dll" (mode%) AS INTEGER
  122. DECLARE FUNCTION FSetBeepingMode LIB "mscomstf.dll" (mode%) AS INTEGER
  123. DECLARE FUNCTION HShowWaitCursor LIB "msshlstf.dll" AS INTEGER
  124. DECLARE FUNCTION FRestoreCursor  LIB "msshlstf.dll" (hPrev%) AS INTEGER
  125. DECLARE FUNCTION FOpenLogFile    LIB "mscomstf.dll" (szFile$, fAppend%) AS INTEGER
  126. DECLARE FUNCTION FCloseLogFile   LIB "mscomstf.dll" AS INTEGER
  127. DECLARE FUNCTION FWriteToLogFile LIB "mscomstf.dll" (sz$, fRequire%) AS INTEGER
  128. DECLARE FUNCTION CbGetInfSectionKeyField LIB "mscomstf.dll" (szSect$, szKey$, iField%, szBuf$, cbBuf%) AS INTEGER
  129. DECLARE FUNCTION FMakeListInfSectionField LIB "mscomstf.dll" (szSym$, szSect$, iField%) AS INTEGER
  130.  
  131.  
  132. ''shell
  133.  
  134. DECLARE FUNCTION FSetBitmap LIB "msshlstf.dll" (szDll$, Bitmap%) AS INTEGER
  135. DECLARE FUNCTION FSetAbout LIB "msshlstf.dll" (szAbout1$, szAbout2$) AS INTEGER
  136. DECLARE FUNCTION FDoDialog LIB "msuilstf.dll" (hwnd%, szDll$, Dlg%, szDlgProc$, HelpDlg%, szHelpProc$) AS INTEGER
  137. DECLARE FUNCTION FKillNDialogs LIB "msuilstf.dll" (n%) AS INTEGER
  138. DECLARE SUB SetWindowText LIB "User" (hwnd%, lpString$)
  139. DECLARE FUNCTION FSetSymbolValue LIB "msshlstf.dll" (szSymbol$, szValue$) AS INTEGER
  140. DECLARE FUNCTION FRemoveSymbol LIB "mscomstf.dll" (szSym$) AS INTEGER
  141. DECLARE FUNCTION CbGetSymbolValue LIB "mscomstf.dll" (szSymbol$, szValue$, Length%) AS INTEGER
  142. DECLARE FUNCTION UsGetListLength LIB "mscomstf.dll" (szSymbol$) AS INTEGER
  143. DECLARE FUNCTION CbGetListItem LIB "mscomstf.dll" (szListSymbol$, n%, szListItem$, cbMax%) AS INTEGER
  144. DECLARE FUNCTION FAddListItem LIB "mscomstf.dll" (szListSymbol$, szListItem$) AS INTEGER
  145. DECLARE FUNCTION FReplaceListItem LIB "mscomstf.dll" (szListSymbol$, n%, szListItem$) AS INTEGER
  146. DECLARE FUNCTION FSetSymbolToListOfInfKeys LIB "mscomstf.dll" (szSym$, szSect$, fNulls%) AS INTEGER
  147.  
  148.  
  149. ''shell
  150.  
  151. DECLARE FUNCTION InitializeFrame LIB "msshlstf.dll" (szCmdLine$) AS INTEGER
  152. DECLARE FUNCTION HwndFrame LIB "msshlstf.dll" AS INTEGER
  153. DECLARE FUNCTION HinstFrame LIB "msshlstf.dll" AS INTEGER
  154.  
  155.  
  156.  
  157. ''install
  158.  
  159. DECLARE SUB      ProSetPos LIB "msinsstf.dll" (x%, y%)
  160. DECLARE FUNCTION FCreateDir LIB "msinsstf.dll" (szDir$, cmo%) AS INTEGER
  161. DECLARE FUNCTION FRemoveDir LIB "msinsstf.dll" (szDir$, cmo%) AS INTEGER
  162. DECLARE FUNCTION FAddSectionFilesToCopyList LIB "mscomstf.dll" (szSect$, szSrc$, szDest$) AS INTEGER
  163. DECLARE FUNCTION FAddSectionKeyFileToCopyList LIB "mscomstf.dll" (szSect$, szKey$, szSrc$, szDest$) AS INTEGER
  164. DECLARE FUNCTION FAddSpecialFileToCopyList LIB "mscomstf.dll" (szSect$, szKey$, szSrc$, szDest$) AS INTEGER
  165. DECLARE FUNCTION GrcCopyFilesInCopyList LIB "msinsstf.dll" (hInstance%) AS INTEGER
  166. DECLARE FUNCTION FRemoveIniSection LIB "msinsstf.dll" (szFile$, szSect$, cmo%) AS INTEGER
  167. DECLARE FUNCTION FCreateIniKeyValue LIB "msinsstf.dll" (szFile$, szSect$, szKey$, szValue$, cmo%) AS INTEGER
  168. DECLARE FUNCTION FRemoveIniKey LIB "msinsstf.dll" (szFile$, szSect$, szKey$, cmo%) AS INTEGER
  169. DECLARE FUNCTION FCreateSysIniKeyValue LIB "msinsstf.dll" (szFile$, szSect$, szKey$, szValue$, cmo%) AS INTEGER
  170. DECLARE FUNCTION FCreateProgManGroup LIB "msinsstf.dll" (szGroup$, szPath$, cmo%) AS INTEGER
  171. DECLARE FUNCTION FCreateProgManItem LIB "msinsstf.dll" (szGroup$, szItem$, szCmd$, cmo%) AS INTEGER
  172. DECLARE FUNCTION FShowProgManGroup LIB "msinsstf.dll" (szGroup$, szCmd$, cmo%) AS INTEGER
  173. DECLARE FUNCTION FStampResource LIB "msinsstf.dll" (szSect$, szKey$, szDst$, wResType%, wResId%, szData$, cbData%) AS INTEGER
  174. DECLARE FUNCTION FDumpCopyListToFile LIB "msinsstf.dll" (szFile$) AS INTEGER
  175. DECLARE SUB      ResetCopyList LIB "msinsstf.dll"
  176. DECLARE FUNCTION LcbGetCopyListCost LIB "msinsstf.dll" (szExtraList$, szCostList$, szNeedList$) AS LONG
  177. DECLARE FUNCTION FAddDos5Help LIB "msinsstf.dll" (szProgName$, szProgHelp$, cmo%) AS INTEGER
  178. DECLARE FUNCTION FCopyOneFile LIB "msinsstf.dll" (szSrc$, szDest$, cmo%, fAppend%) AS INTEGER
  179. DECLARE FUNCTION YnrcRemoveFile LIB "msinsstf.dll" (szFullPathSrc$, cmo%) AS INTEGER
  180. DECLARE FUNCTION YnrcBackupFile LIB "msinsstf.dll" (szFullPath$, szBackup$, cmo%) AS INTEGER
  181. DECLARE FUNCTION FInitializeInstall LIB "msinsstf.dll" (hinst%, hwndFrame%) AS INTEGER
  182. DECLARE FUNCTION WFindFileUsingFileOpen LIB "msinsstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  183. DECLARE FUNCTION FIsDirWritable LIB "msinsstf.dll" (szDir$) AS INTEGER
  184. DECLARE FUNCTION FIsFileWritable LIB "msinsstf.dll" (szFile$) AS INTEGER
  185. DECLARE FUNCTION FAddToBillboardList LIB "msinsstf.dll" (szDll$, idDlg%, szProc$, lTicks&) AS INTEGER
  186. DECLARE FUNCTION FClearBillboardList LIB "msinsstf.dll" AS INTEGER
  187. DECLARE FUNCTION FSetRestartDir LIB "msinsstf.dll" (szDir$) AS INTEGER
  188. DECLARE FUNCTION FRestartListEmpty LIB "msinsstf.dll" AS INTEGER
  189. DECLARE FUNCTION FExitExecRestart LIB "msinsstf.dll" AS INTEGER
  190. DECLARE FUNCTION SetCopyMode LIB "msinsstf.dll" (fMode%) AS INTEGER
  191. DECLARE FUNCTION GetCopyMode LIB "msinsstf.dll" AS INTEGER
  192. DECLARE FUNCTION SetDecompMode LIB "msinsstf.dll" (fMode%) AS INTEGER
  193. DECLARE FUNCTION GetDecompMode LIB "msinsstf.dll" AS INTEGER
  194. DECLARE FUNCTION SetSizeCheckMode LIB "msinsstf.dll" (scmMode%) AS INTEGER
  195. DECLARE FUNCTION FPrependToPath LIB "msinsstf.dll" (szSrc$, szDst$, szDir$, cmo%) AS INTEGER
  196.  
  197. DECLARE FUNCTION SetTimeValue LIB "msinsstf.dll" (usHours%, usMinutes%, usSeconds%) AS INTEGER
  198.  
  199.  
  200.  
  201. '*************************************************************************
  202. '****************  Setup Basic Wrapper Declarations  *********************
  203. '*************************************************************************
  204.  
  205.  
  206. ''shell
  207.  
  208. DECLARE SUB SetBitmap(szDll$, Bitmap%)
  209. DECLARE SUB SetAbout(szAbout1$, szAbout2$)
  210. DECLARE FUNCTION UIStartDlg(szDll$, Dlg%, szDlgProc$, HelpDlg%, szHelpProc$) AS STRING
  211. DECLARE SUB UIPop (n%)
  212. DECLARE SUB UIPopAll
  213. DECLARE SUB SetTitle (sz$)
  214. DECLARE SUB ReadInfFile (szFile$)
  215. DECLARE SUB SetSymbolValue (szSymbol$, szValue$)
  216. DECLARE SUB RemoveSymbol (szSym$)
  217. DECLARE FUNCTION GetSymbolValue (szSymbol$) AS STRING
  218. DECLARE FUNCTION GetListLength(szSymbol$) AS INTEGER
  219. DECLARE SUB MakeListFromSectionKeys (szSymbol$, szSect$)
  220. DECLARE FUNCTION GetListItem(szSymbol$, n%) AS STRING
  221. DECLARE SUB AddListItem(szSymbol$, szItem$)
  222. DECLARE SUB ReplaceListItem(szSymbol$, n%, szItem$)
  223.  
  224. DECLARE FUNCTION InitFrame (szCmdLine$) AS INTEGER
  225. DECLARE FUNCTION InitSetup (szCmdLine$) AS INTEGER
  226.  
  227. DECLARE FUNCTION ShowWaitCursor AS INTEGER
  228. DECLARE SUB RestoreCursor (hPrev%)
  229.  
  230. DECLARE FUNCTION SetBeepingMode (mode%) AS INTEGER
  231. DECLARE FUNCTION SetSilentMode (mode%) AS INTEGER
  232.  
  233. DECLARE FUNCTION GetSectionKeyDate (szSect$, szKey$) AS STRING
  234. DECLARE FUNCTION GetSectionKeyFilename (szSect$, szKey$) AS STRING
  235. DECLARE FUNCTION GetSectionKeySize (szSect$, szKey$) AS LONG
  236. DECLARE FUNCTION GetSectionKeyVersion (szSect$, szKey$) AS STRING
  237.  
  238. DECLARE SUB MakeListFromSectionDate (szSym$, szSect$)
  239. DECLARE SUB MakeListFromSectionFilename (szSym$, szSect$)
  240. DECLARE SUB MakeListFromSectionSize (szSym$, szSect$)
  241. DECLARE SUB MakeListFromSectionVersion (szSym$, szSect$)
  242.  
  243.  
  244. ''install
  245.  
  246.  
  247. DECLARE SUB CreateDir (szDir$, cmo%)
  248. DECLARE SUB RemoveDir (szDir$, cmo%)
  249. DECLARE SUB AddSectionFilesToCopyList (szSect$, szSrc$, szDest$)
  250. DECLARE SUB AddSectionKeyFileToCopyList (szSect$, szKey$, szSrc$, szDest$)
  251. DECLARE SUB AddSpecialFileToCopyList (szSect$, szKey$, szSrc$, szDest$)
  252. DECLARE SUB CopyFilesInCopyList
  253. DECLARE SUB RemoveIniSection (szFile$, szSect$, cmo%)
  254. DECLARE SUB CreateIniKeyValue (szFile$, szSect$, szKey$, szValue$, cmo%)
  255. DECLARE SUB RemoveIniKey (szFile$, szSect$, szKey$, cmo%)
  256. DECLARE SUB CreateSysIniKeyValue (szFile$, szSect$, szKey$, szValue$, cmo%)
  257. DECLARE SUB CreateProgmanGroup (szGroup$, szPath$, cmo%)
  258. DECLARE SUB CreateProgmanItem (szGroup$, szItem$, szCmd$, szOther$, cmo%)
  259. DECLARE SUB ShowProgmanGroup (szGroup$, Cmd%, cmo%)
  260. DECLARE SUB StampResource (szSect$, szKey$, szDst$, wResType%, wResId%, szData$, cbData%)
  261. DECLARE SUB DumpCopyList (szFile$)
  262. DECLARE SUB ClearCopyList
  263. DECLARE FUNCTION GetCopyListCost (szExtraList$, szCostList$, szNeedList$) AS LONG
  264. DECLARE SUB AddDos5Help (szProgName$, szProgHelp$, cmo%)
  265. DECLARE SUB CopyFile (szFullPathSrc$, szFullPathDst$, cmo%, fAppend%)
  266. DECLARE SUB RemoveFile (szFullPathSrc$, cmo%)
  267. DECLARE SUB BackupFile (szFullPath$, szBackup$)
  268. DECLARE SUB RenameFile (szFullPath$, szBackup$)
  269. DECLARE SUB InitInstall
  270. DECLARE SUB AddToBillboardList (szDll$, idDlg%, szProc$, lTicks&)
  271. DECLARE SUB AddBlankToBillboardList (lTicks&)
  272. DECLARE SUB ClearBillboardList
  273. DECLARE SUB OpenLogFile (szFile$, fAppend%)
  274. DECLARE SUB CloseLogFile
  275. DECLARE SUB WriteToLogFile (szStr$)
  276. DECLARE SUB SetCopyGaugePosition (x%, y%)
  277. DECLARE SUB SetRestartDir(szDir$)
  278. DECLARE FUNCTION RestartListEmpty AS INTEGER
  279. DECLARE FUNCTION ExitExecRestart AS INTEGER
  280. DECLARE FUNCTION FindFileUsingFileOpen (szFile$) AS STRING
  281. DECLARE FUNCTION IsDirWritable (szDir$) AS INTEGER
  282. DECLARE FUNCTION IsFileWritable (szFile$) AS INTEGER
  283. DECLARE FUNCTION GetNthFieldFromIniString (szLine$, iField%) AS STRING
  284. DECLARE SUB PrependToPath (szSrc$, szDst$, szDir$, cmo%)
  285.  
  286.  
  287. '' Error Handling
  288.  
  289. '' Windows system detect
  290.  
  291. DECLARE FUNCTION GetWindowsMajorVersion AS INTEGER
  292. DECLARE FUNCTION GetWindowsMinorVersion AS INTEGER
  293. DECLARE FUNCTION GetWindowsMode AS INTEGER
  294. DECLARE FUNCTION GetWindowsDir  AS STRING
  295. DECLARE FUNCTION GetWindowsSysDir AS STRING
  296. DECLARE FUNCTION IsWindowsShared AS INTEGER
  297. DECLARE FUNCTION GetScreenWidth AS INTEGER
  298. DECLARE FUNCTION GetScreenHeight AS INTEGER
  299.  
  300.  
  301. '*************************************************************************
  302. '*****************  Setup Basic Wrapper Definitions  *********************
  303. '*************************************************************************
  304. FUNCTION InitSetup(szCmdLine$) STATIC AS INTEGER
  305.     fFrameInit = 0
  306.     fInstallInit = 0
  307.  
  308.     i% = InitFrame(szCmdLine$)
  309.     fFrameInit = 1
  310.  
  311.     InitInstall
  312.     fInstallInit = 1
  313.  
  314.     InitSetup = i%
  315. END FUNCTION
  316.  
  317.  
  318.  
  319. '**************************************************************************
  320. FUNCTION InitFrame(szCmdLine$) STATIC AS INTEGER
  321.     IF hSetup > 0 THEN
  322.         'Debug
  323.     ELSE
  324.         i% = InitializeFrame(szCmdLine$)
  325.         IF i% = -1 THEN
  326.             END   '' NOT an error - Usage (/?) or Command line copy operation
  327.         ELSEIF i% = 0 THEN
  328.             END
  329.         ELSE
  330.             InitFrame = i%
  331.         END IF
  332.     END IF
  333. END FUNCTION
  334.  
  335.  
  336. '**************************************************************************
  337. SUB SetBitmap(szDll$, Bitmap%) STATIC
  338.     IF FSetBitmap(szDll$, Bitmap%) = 0 THEN
  339.         ERROR STFERR
  340.     END IF
  341. END SUB
  342.  
  343.  
  344. '**************************************************************************
  345. SUB SetAbout(szAbout1$, szAbout2$) STATIC
  346.     IF FSetAbout(szAbout1$, szAbout2$) = 0 THEN
  347.         ERROR STFERR
  348.     END IF
  349. END SUB
  350.  
  351.  
  352. '*************************************************************************
  353. SUB SetTitle(sz$) STATIC
  354.     SetWindowText HwndFrame(), sz$
  355. END SUB
  356.  
  357.  
  358. '*************************************************************************
  359. SUB ReadInfFile (szFile$) STATIC
  360.     IF FOpenInf(szFile$, 1, 0) = 0 THEN
  361.         ERROR STFERR
  362.     END IF
  363. END SUB
  364.  
  365.  
  366. '*************************************************************************
  367. FUNCTION UIStartDlg(szDll$, Dlg%, szDlgProc$, HelpDlg%, szHelpProc$) STATIC AS STRING
  368.     IF FDoDialog(HwndFrame(), szDll$, Dlg%, szDlgProc$, HelpDlg%, szHelpProc$) = 0 THEN
  369.         ERROR STFERR
  370.     ELSE
  371.         UIStartDlg = GetSymbolValue("DLGEVENT")
  372.     END IF
  373. END FUNCTION
  374.  
  375.  
  376. '*************************************************************************
  377. SUB UIPop (n%) STATIC
  378.     IF FKillNDialogs(n%) = 0 THEN
  379.         ERROR STFERR
  380.     END IF
  381. END SUB
  382.  
  383.  
  384. '*************************************************************************
  385. SUB UIPopAll STATIC
  386.     IF FKillNDialogs(65535) = 0 THEN
  387.         ERROR STFERR
  388.     END IF
  389. END SUB
  390.  
  391.  
  392. '*************************************************************************
  393. FUNCTION GetSymbolValue(szSymbol$) STATIC AS STRING
  394.     szValue$ = string$(cbSymValMax,32)
  395.     Length% = CbGetSymbolValue(szSymbol$, szValue$, cbSymValMax)
  396.     GetSymbolValue = szValue$
  397.     IF Length% >= cbSymValMax THEN
  398.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  399.         ERROR STFERR
  400.     END IF
  401.     IF szSymbol$ = "" THEN
  402.         ERROR STFERR
  403.     END IF
  404.     szValue$ = ""
  405. END FUNCTION
  406.  
  407.  
  408. '*************************************************************************
  409. FUNCTION GetListLength(szSymbol$) STATIC AS INTEGER
  410.     GetListLength = UsGetListLength(szSymbol$)
  411.     IF szSymbol$ = "" THEN
  412.         ERROR STFERR
  413.     END IF
  414. END FUNCTION
  415.  
  416.  
  417. '*************************************************************************
  418. FUNCTION GetListItem(szListSymbol$, nItem%) STATIC AS STRING
  419.     szListItem$ = string$(cbSymValMax,32)
  420.     Length% = CbGetListItem(szListSymbol$, nItem%, szListItem$, cbSymValMax)
  421.     GetListItem = szListItem$
  422.     IF Length% >= cbSymValMax THEN
  423.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  424.         ERROR STFERR
  425.     END IF
  426.     IF szListSymbol$ = "" THEN
  427.         ERROR STFERR
  428.     END IF
  429.     if nItem% <= 0 or nItem% > GetListLength(szListSymbol$) then
  430.         ERROR STFERR
  431.     end if
  432.     szListItem$ = ""
  433. END FUNCTION
  434.  
  435.  
  436. '*************************************************************************
  437. SUB AddListItem(szSymbol$, szItem$) STATIC
  438.     IF FAddListItem(szSymbol$, szItem$) = 0 THEN
  439.         ERROR STFERR
  440.     END IF
  441. END SUB
  442.  
  443.  
  444. '*************************************************************************
  445. SUB ReplaceListItem(szSymbol$, n%, szItem$) STATIC
  446.     IF FReplaceListItem(szSymbol$, n%, szItem$) = 0 THEN
  447.         ERROR STFERR
  448.     END IF
  449. END SUB
  450.  
  451.  
  452. '**************************************************************************
  453. SUB MakeListFromSectionKeys(szSymbol$, szSect$) STATIC
  454.     IF FSetSymbolToListOfInfKeys(szSymbol$, szSect$, 1) = 0 THEN
  455.         ERROR STFERR
  456.     END IF
  457. END SUB
  458.  
  459.  
  460. '*************************************************************************
  461. SUB SetSymbolValue(szSymbol$, szValue$) STATIC
  462.     IF FSetSymbolValue(szSymbol$, szValue$) = 0 THEN
  463.         ERROR STFERR
  464.     END IF
  465. END SUB
  466.  
  467.  
  468. '*************************************************************************
  469. SUB RemoveSymbol(szSym$) STATIC
  470.     IF FRemoveSymbol(szSym$) = 0 THEN
  471.         ERROR STFERR
  472.     END IF
  473. END SUB
  474.  
  475.  
  476. '*************************************************************************
  477. FUNCTION ShowWaitCursor STATIC AS INTEGER
  478.     ShowWaitCursor = HShowWaitCursor
  479. END FUNCTION
  480.  
  481.  
  482. '*************************************************************************
  483. SUB RestoreCursor (hPrev%) STATIC
  484.     i% = FRestoreCursor(hPrev%)
  485.     IF i% = 0 THEN
  486.         ERROR STFERR
  487.     END IF
  488. END SUB
  489.  
  490.  
  491. '*************************************************************************
  492. FUNCTION SetBeepingMode (mode%) STATIC AS INTEGER
  493.     SetBeepingMode = FSetBeepingMode(mode%)
  494. END FUNCTION
  495.  
  496.  
  497. '*************************************************************************
  498. FUNCTION SetSilentMode (mode%) STATIC AS INTEGER
  499.     SetSilentMode = FSetSilent(mode%)
  500. END FUNCTION
  501.  
  502.  
  503. '*************************************************************************
  504. FUNCTION GetSectionKeyDate (szSect$, szKey$) STATIC AS STRING
  505.     szBuf$ = string$(128, 32)
  506.     Length% = CbGetInfSectionKeyField(szSect$, szKey$, 5, szBuf$, 128)
  507.     IF Length% >= 128 THEN
  508.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  509.         ERROR STFERR
  510.     END IF
  511.  
  512.     IF Length% = -1 THEN
  513.         ERROR STFERR
  514.     END IF
  515.  
  516.     GetSectionKeyDate = szBuf$
  517.     szBuf$ = ""
  518. END FUNCTION
  519.  
  520.  
  521. '*************************************************************************
  522. FUNCTION GetSectionKeyFilename (szSect$, szKey$) STATIC AS STRING
  523.     szBuf$ = string$(128, 32)
  524.     Length% = CbGetInfSectionKeyField(szSect$, szKey$, 1, szBuf$, 128)
  525.     IF Length% >= 128 THEN
  526.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  527.         ERROR STFERR
  528.     END IF
  529.  
  530.     IF Length% = -1 THEN
  531.         ERROR STFERR
  532.     END IF
  533.  
  534.     GetSectionKeyFilename = szBuf$
  535.     szBuf$ = ""
  536. END FUNCTION
  537.  
  538.  
  539. '*************************************************************************
  540. FUNCTION GetSectionKeySize (szSect$, szKey$) STATIC AS LONG
  541.     szBuf$ = string$(128, 32)
  542.     Length% = CbGetInfSectionKeyField(szSect$, szKey$, 15, szBuf$, 128)
  543.     IF Length% >= 128 THEN
  544.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  545.         ERROR STFERR
  546.     END IF
  547.  
  548.     IF Length% = -1 THEN
  549.         ERROR STFERR
  550.     END IF
  551.  
  552.     GetSectionKeySize = VAL(szBuf$)
  553.     szBuf$ = ""
  554. END FUNCTION
  555.  
  556.  
  557. '*************************************************************************
  558. FUNCTION GetSectionKeyVersion (szSect$, szKey$) STATIC AS STRING
  559.     szBuf$ = string$(128, 32)
  560.     Length% = CbGetInfSectionKeyField(szSect$, szKey$, 19, szBuf$, 128)
  561.     IF Length% >= 128 THEN
  562.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  563.         ERROR STFERR
  564.     END IF
  565.  
  566.     IF Length% = -1 THEN
  567.         ERROR STFERR
  568.     END IF
  569.  
  570.     GetSectionKeyVersion = szBuf$
  571.     szBuf$ = ""
  572. END FUNCTION
  573.  
  574.  
  575. '*************************************************************************
  576. SUB MakeListFromSectionDate (szSym$, szSect$) STATIC
  577.     IF FMakeListInfSectionField(szSym$, szSect$, 5) = 0 THEN
  578.         ERROR STFERR
  579.     END IF
  580. END SUB
  581.  
  582.  
  583. '*************************************************************************
  584. SUB MakeListFromSectionFilename (szSym$, szSect$) STATIC
  585.     IF FMakeListInfSectionField(szSym$, szSect$, 1) = 0 THEN
  586.         ERROR STFERR
  587.     END IF
  588. END SUB
  589.  
  590.  
  591. '*************************************************************************
  592. SUB MakeListFromSectionSize (szSym$, szSect$) STATIC
  593.     IF FMakeListInfSectionField(szSym$, szSect$, 15) = 0 THEN
  594.         ERROR STFERR
  595.     END IF
  596. END SUB
  597.  
  598.  
  599. '*************************************************************************
  600. SUB MakeListFromSectionVersion (szSym$, szSect$) STATIC
  601.     IF FMakeListInfSectionField(szSym$, szSect$, 19) = 0 THEN
  602.         ERROR STFERR
  603.     END IF
  604. END SUB
  605.  
  606.  
  607. '*************************************************************************
  608. SUB InitInstall STATIC
  609.     IF hSetup > 0 THEN
  610.         'Debug out
  611.     ELSEIF FInitializeInstall(HinstFrame(), HwndFrame()) = 0 THEN
  612.         END
  613.     END IF
  614. END SUB
  615.  
  616.  
  617. '*************************************************************************
  618. SUB CreateDir (szDir$, cmo%) STATIC
  619.     IF FCreateDir(szDir$, cmo%) = 0 THEN
  620.         ERROR STFERR
  621.     END IF
  622. END SUB
  623.  
  624.  
  625. '*************************************************************************
  626. SUB RemoveDir (szDir$, cmo%) STATIC
  627.     IF FRemoveDir(szDir$, cmo%) = 0 THEN
  628.         ERROR STFERR
  629.     END IF
  630. END SUB
  631.  
  632.  
  633.  
  634. '*************************************************************************
  635. SUB RemoveIniSection (szFile$, szSect$, cmo%) STATIC
  636.     IF FRemoveIniSection(szFile$, szSect$, cmo%) = 0 THEN
  637.         ERROR STFERR
  638.     END IF
  639. END SUB
  640.  
  641.  
  642. '*************************************************************************
  643. SUB CreateIniKeyValue (szFile$, szSect$, szKey$, szValue$, cmo%) STATIC
  644.     IF FCreateIniKeyValue(szFile$, szSect$, szKey$, szValue$, cmo%) = 0 THEN
  645.         ERROR STFERR
  646.     END IF
  647. END SUB
  648.  
  649.  
  650. '*************************************************************************
  651. SUB RemoveIniKey (szFile$, szSect$, szKey$, cmo%) STATIC
  652.     IF FRemoveIniKey(szFile$, szSect$, szKey$, cmo%) = 0 THEN
  653.         ERROR STFERR
  654.     END IF
  655. END SUB
  656.  
  657.  
  658. '*************************************************************************
  659. SUB CreateSysIniKeyValue (szFile$, szSect$, szKey$, szValue$, cmo%) STATIC
  660.     IF FCreateSysIniKeyValue(szFile$, szSect$, szKey$, szValue$, cmo%) = 0 THEN
  661.         ERROR STFERR
  662.     END IF
  663. END SUB
  664.  
  665.  
  666. '*************************************************************************
  667. SUB CreateProgmanGroup (szGroup$, szPath$, cmo%) STATIC
  668.     IF FCreateProgManGroup(szGroup$, szPath$, cmo%) = 0 THEN
  669.         ERROR STFERR
  670.     END IF
  671. END SUB
  672.  
  673.  
  674. '*************************************************************************
  675. SUB ShowProgmanGroup (szGroup$, Cmd%, cmo%) STATIC
  676.     IF FShowProgManGroup(szGroup$, STR$(Cmd%), cmo%) = 0 THEN
  677.         ERROR STFERR
  678.     END IF
  679. END SUB
  680.  
  681.  
  682. '*************************************************************************
  683. SUB StampResource (szSect$, szKey$, szDst$, wResType%, wResId%, szData$, cbData%) STATIC
  684.     IF FStampResource (szSect$, szKey$, szDst$, wResType%, wResId%, szData$, cbData%) = 0 THEN
  685.         ERROR STFERR
  686.     END IF
  687. END SUB
  688.  
  689.  
  690. '*************************************************************************
  691. SUB DumpCopyList (szFile$) STATIC
  692.     IF FDumpCopyListToFile (szFile$) = 0 THEN
  693.         ERROR STFERR
  694.     END IF
  695. END SUB
  696.  
  697.  
  698. '*************************************************************************
  699. SUB ClearCopyList STATIC
  700.     ResetCopyList
  701. END SUB
  702.  
  703.  
  704. '*************************************************************************
  705. FUNCTION GetCopyListCost (szExtraList$, szCostList$, szNeedList$) STATIC AS LONG
  706.     lNeed& = LcbGetCopyListCost (szExtraList$, szCostList$, szNeedList$)
  707.     IF lNeed& < 0 THEN
  708.         ERROR STFERR
  709.     END IF
  710.     GetCopyListCost = lNeed&
  711. END FUNCTION
  712.  
  713.  
  714. '*************************************************************************
  715. SUB CreateProgmanItem (szGroup$, szItem$, szCmd$, szOther$, cmo%) STATIC
  716.     szItemNew$ = szItem$
  717.     IF szOther$ <> "" THEN
  718.         szItemNew$ = szItem$ + "," + szOther$
  719.     END IF
  720.  
  721.     IF FCreateProgManItem(szGroup$, szItemNew$, szCmd$, cmo%) = 0 THEN
  722.         ERROR STFERR
  723.     END IF
  724.     szItemNew$ = ""
  725. END SUB
  726.  
  727.  
  728. '*************************************************************************
  729. SUB AddDos5Help (szProgName$, szProgHelp$, cmo%) STATIC
  730.     IF FAddDos5Help (szProgName$, szProgHelp$, cmo%) = 0 THEN
  731.         ERROR STFERR
  732.     END IF
  733. END SUB
  734.  
  735.  
  736. '*************************************************************************
  737. SUB CopyFilesInCopyList STATIC
  738.     grc% = GrcCopyFilesInCopyList (HinstFrame())
  739.  
  740.     IF grc% = grcUserQuit THEN
  741.         ERROR STFQUIT
  742.     ELSEIF grc% > 0 THEN
  743.         ERROR STFERR
  744.     END IF
  745. END SUB
  746.  
  747.  
  748. '*************************************************************************
  749. SUB CopyFile (szFullPathSrc$, szFullPathDst$, cmo%, fAppend%) STATIC
  750.     IF  FCopyOneFile(szFullPathSrc$, szFullPathDst$, (cmo OR cmoCopy), fAppend%) = 0 THEN
  751.         ERROR STFERR
  752.     END IF
  753. END SUB
  754.  
  755.  
  756.  
  757. '*************************************************************************
  758. SUB RemoveFile (szFullPathSrc$, cmo%) STATIC
  759.     IF  YnrcRemoveFile(szFullPathSrc$, cmo%) = ynrcNo THEN
  760.         ERROR STFERR
  761.     END IF
  762. END SUB
  763.  
  764.  
  765. '*************************************************************************
  766. SUB BackupFile (szFullPath$, szBackup$) STATIC
  767.     IF YnrcBackupFile(szFullPath$, szBackup$, cmoNone) = ynrcNo THEN
  768.         ERROR STFERR
  769.     END IF
  770. END SUB
  771.  
  772.  
  773. '*************************************************************************
  774. SUB RenameFile (szFullPath$, szBackup$) STATIC
  775.     IF YnrcBackupFile(szFullPath$, szBackup$, cmoNone) = ynrcNo THEN
  776.         ERROR STFERR
  777.     END IF
  778. END SUB
  779.  
  780.  
  781. '*************************************************************************
  782. SUB AddSectionFilesToCopyList (szSect$, szSrc$, szDest$) STATIC
  783.     IF FAddSectionFilesToCopyList (szSect$, szSrc$, szDest$) = 0 THEN
  784.         ERROR STFERR
  785.     END IF
  786. END SUB
  787.  
  788.  
  789. '*************************************************************************
  790. SUB AddSectionKeyFileToCopyList (szSect$, szKey$, szSrc$, szDest$) STATIC
  791.     IF FAddSectionKeyFileToCopyList (szSect$, szKey$, szSrc$, szDest$) = 0 THEN
  792.         ERROR STFERR
  793.     END IF
  794. END SUB
  795.  
  796.  
  797. '*************************************************************************
  798. SUB AddSpecialFileToCopyList (szSect$, szKey$, szSrc$, szDest$) STATIC
  799.     IF FAddSpecialFileToCopyList (szSect$, szKey$, szSrc$, szDest$) = 0 THEN
  800.         ERROR STFERR
  801.     END IF
  802. END SUB
  803.  
  804.  
  805. '*************************************************************************
  806. SUB AddToBillboardList (szDll$, idDlg%, szProc$, lTicks&) STATIC
  807.     IF FAddToBillboardList(szDll$, idDlg%, szProc$, lTicks&) = 0 THEN
  808.         ERROR STFERR
  809.     END IF
  810. END SUB
  811.  
  812.  
  813. '*************************************************************************
  814. SUB AddBlankToBillboardList (lTicks&) STATIC
  815.     IF FAddToBillboardList(NULL, 0, NULL, lTicks&) = 0 THEN
  816.         ERROR STFERR
  817.     END IF
  818. END SUB
  819.  
  820.  
  821. '*************************************************************************
  822. SUB ClearBillboardList STATIC
  823.     IF FClearBillboardList = 0 THEN
  824.         ERROR STFERR
  825.     END IF
  826. END SUB
  827.  
  828.  
  829. '*************************************************************************
  830. SUB OpenLogFile (szFile$, fAppend%) STATIC
  831.     IF FOpenLogFile(szFile$, fAppend%) = 0 THEN
  832.         ERROR STFERR
  833.     END IF
  834. END SUB
  835.  
  836.  
  837. '*************************************************************************
  838. SUB CloseLogFile STATIC
  839.     IF FCloseLogFile() = 0 THEN
  840.         ERROR STFERR
  841.     END IF
  842. END SUB
  843.  
  844.  
  845. '*************************************************************************
  846. SUB WriteToLogFile (szStr$) STATIC
  847.     IF FWriteToLogFile(szStr$, 1) = 0 THEN
  848.         ERROR STFERR
  849.     END IF
  850. END SUB
  851.  
  852.  
  853. ''' -1 in either parameter will mean 'center in frame client area'
  854. '*************************************************************************
  855. SUB SetCopyGaugePosition (x%, y%) STATIC
  856.     ProSetPos x%, y%
  857. END SUB
  858.  
  859.  
  860. '*************************************************************************
  861. FUNCTION FindFileUsingFileOpen (szFile$) STATIC AS STRING
  862.     szBuf$ = STRING$(512, 32)
  863.  
  864.     wRet% = WFindFileUsingFileOpen(szFile$, szBuf$, len(szBuf$))
  865.     IF wRet% = 0 THEN
  866.         FindFileUsingFileOpen = szBuf$
  867.     ELSEIF wRet% = 1 THEN
  868.         FindFileUsingFileOpen = ""
  869.     ELSE
  870.         ERROR STFERR
  871.     END IF
  872.  
  873.     szBuf$ = ""
  874. END FUNCTION
  875.  
  876.  
  877. '*************************************************************************
  878. FUNCTION IsDirWritable (szDir$) STATIC AS INTEGER
  879.     IsDirWritable = FIsDirWritable(szDir$)
  880. END FUNCTION
  881.  
  882.  
  883. '*************************************************************************
  884. FUNCTION IsFileWritable (szFile$) STATIC AS INTEGER
  885.     IsFileWritable = FIsFileWritable(szFile$)
  886. END FUNCTION
  887.  
  888.  
  889. '*************************************************************************
  890. FUNCTION GetNthFieldFromIniString (szLine$, iField%) STATIC AS STRING
  891.     IF iField% < 1 THEN
  892.         ERROR STFERR
  893.     END IF
  894.     szStart$ = szLine$
  895.     IF iField% <> 1 THEN
  896.         FOR i% = 2 TO iField% STEP 1
  897.             iNew% = INSTR(szStart$, ",")
  898.             IF iNew% = 0 THEN
  899.                 GetNthFieldFromIniString = ""
  900.                 GOTO _GNFFIS_END
  901.             END IF
  902.             szStart$ = MID$(szStart$, (iNew% + 1))
  903.         NEXT
  904.     END IF
  905.  
  906.     iNew% = INSTR(szStart$, ",")
  907.     IF iNew% <> 0 THEN
  908.         szStart$ = MID$(szStart$, 1, (iNew% - 1))
  909.     END IF
  910.  
  911.     GetNthFieldFromIniString = LTRIM$(RTRIM$(szStart$))
  912.  
  913. _GNFFIS_END:
  914.  
  915. END FUNCTION
  916.  
  917.  
  918. '*************************************************************************
  919. FUNCTION GetWindowsMajorVersion STATIC AS INTEGER
  920.     GetWindowsMajorVersion = GetVersion() MOD 256
  921. END FUNCTION
  922.  
  923.  
  924. '*************************************************************************
  925. FUNCTION GetWindowsMinorVersion STATIC AS INTEGER
  926.     GetWindowsMinorVersion = GetVersion() / 256
  927. END FUNCTION
  928.  
  929.  
  930. '*************************************************************************
  931. FUNCTION GetWindowsMode STATIC AS INTEGER
  932.     GetWindowsMode = 0
  933.     longTmp& = GetWinFlags()
  934.     IF longTmp& AND WF_STANDARD THEN
  935.         GetWindowsMode = 1
  936.     ELSEIF longTmp& AND WF_ENHANCED THEN
  937.         GetWindowsMode = 2
  938.     END IF
  939. END FUNCTION
  940.  
  941.  
  942. '*************************************************************************
  943. FUNCTION GetWindowsDir STATIC AS STRING
  944.     szBuf$ = string$(256, 32)
  945.     cbBuf% = GetWindowsDirectory(szBuf$, 256)
  946.  
  947.     IF cbBuf% = 0 THEN
  948.         GetWindowsDir = ""
  949.         ERROR STFERR
  950.     ELSE
  951.         IF cbBuf% > 255 THEN
  952.             res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  953.             ERROR STFERR
  954.         END IF
  955.         szBuf$ = RTRIM$(szBuf$)
  956.         IF MID$(szBuf$, 1, 1) = "\" THEN
  957.             'szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  958.             szBuf$ = MID$(GetWindowsSysDir, 1, 2) + szBuf$
  959.         ELSEIF MID$(szBuf$, 2, 1) <> ":" THEN
  960.             szBuf$ = MID$(GetWindowsSysDir, 1, 3) + szBuf$
  961.         END IF
  962.         IF MID$(szBuf$, LEN(szBuf$), 1) <> "\" THEN
  963.             szBuf$ = szBuf$ + "\"
  964.         END IF
  965.         GetWindowsDir = szBuf$
  966.     END IF
  967.  
  968.     szBuf$ = ""
  969. END FUNCTION
  970.  
  971.  
  972. '*************************************************************************
  973. FUNCTION GetWindowsSysDir STATIC AS STRING
  974.     szBuf$ = string$(256, 32)
  975.     cbBuf% = GetSystemDirectory(szBuf$, 256)
  976.  
  977.     IF cbBuf% = 0 THEN
  978.         ERROR STFERR
  979.     ELSE
  980.         IF cbBuf% > 255 THEN
  981.             res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  982.             ERROR STFERR
  983.         END IF
  984.         szBuf$ = RTRIM$(szBuf$)
  985.         IF MID$(szBuf$, 1, 1) = "\" THEN
  986.             szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  987.         ELSEIF MID$(szBuf$, 2, 1) <> ":" THEN
  988.             szBuf$ = MID$(CURDIR$, 1, 3) + szBuf$
  989.         END IF
  990.         IF MID$(szBuf$, LEN(szBuf$), 1) <> "\" THEN
  991.             szBuf$ = szBuf$ + "\"
  992.         END IF
  993.         GetWindowsSysDir = szBuf$
  994.     END IF
  995.  
  996.     szBuf$ = ""
  997. END FUNCTION
  998.  
  999.  
  1000. '*************************************************************************
  1001. FUNCTION IsWindowsShared STATIC AS INTEGER
  1002.     szWin$ = UCASE$(GetWindowsDir())
  1003.     szSys$ = UCASE$(GetWindowsSysDir())
  1004.  
  1005.     IF len(szWin$) = 0 THEN
  1006.         ERROR STFERR
  1007.     END IF
  1008.  
  1009.     IF len(szSys$) <= len(szWin$) THEN
  1010.         IsWindowsShared = 1
  1011.     ELSE
  1012.         szSys$ = MID$(szSys$, 1, len(szWin$))
  1013.         IF szWin$ = szSys$ THEN
  1014.             IsWindowsShared = 0
  1015.         ELSE
  1016.             IsWindowsShared = 1
  1017.         END IF
  1018.     END IF
  1019. END FUNCTION
  1020.  
  1021.  
  1022. '*************************************************************************
  1023. FUNCTION GetScreenWidth STATIC AS INTEGER
  1024.     GetScreenWidth = GetSystemMetrics(SM_CXSCREEN)
  1025. END FUNCTION
  1026.  
  1027.  
  1028. '*************************************************************************
  1029. FUNCTION GetScreenHeight STATIC AS INTEGER
  1030.     GetScreenHeight = GetSystemMetrics(SM_CYSCREEN)
  1031. END FUNCTION
  1032.  
  1033.  
  1034. '*************************************************************************
  1035. SUB SetRestartDir (szDir$) STATIC
  1036.     IF FSetRestartDir(szDir$) = 0 THEN
  1037.         ERROR STFERR
  1038.     END IF
  1039. END SUB
  1040.  
  1041.  
  1042. '*************************************************************************
  1043. FUNCTION RestartListEmpty STATIC AS INTEGER
  1044.     IF FRestartListEmpty() = 0 THEN
  1045.         RestartListEmpty = 0
  1046.     ELSE
  1047.         RestartListEmpty = 1
  1048.     END IF
  1049. END FUNCTION
  1050.  
  1051.  
  1052. '*************************************************************************
  1053. FUNCTION ExitExecRestart STATIC AS INTEGER
  1054.     ExitExecRestart = FExitExecRestart
  1055. END FUNCTION
  1056.  
  1057.  
  1058. '*************************************************************************
  1059. SUB PrependToPath (szSrc$, szDst$, szDir$, cmo%) STATIC
  1060.     IF FPrependToPath (szSrc$, szDst$, szDir$, cmo%) = 0 THEN
  1061.         ERROR STFERR
  1062.     END IF
  1063. END SUB
  1064.  
  1065.  
  1066.  
  1067. '**************************************************************************
  1068. '***************************  Error Handlers  *****************************
  1069. '**************************************************************************
  1070.  
  1071. TRAP CleanupTrap From "MSSHLSTF.DLL"
  1072.  
  1073. End Trap
  1074.  
  1075. hSetup = InitSetup(COMMAND$)
  1076.  
  1077. ON ERROR GOTO QUIT
  1078.  
  1079.