home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a045 / 1.img / SETUPAPI.INC < prev    next >
Encoding:
Text File  |  1992-11-05  |  54.3 KB  |  1,805 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. '$ifdef DEBUG
  290.  
  291. '' Setup API Errors
  292. CONST saeFail   = 0
  293. CONST saeInit   = 1
  294. CONST saeNYI    = 3
  295. CONST saeArg    = 4    ''must be max sae value
  296.  
  297. DECLARE SUB StfApiErr (nMsg%, szApi$, szArgs$)
  298. DECLARE SUB BadArgErr (nArg%, szApi$, szArgs$)
  299.  
  300. '' chk arg
  301. DECLARE FUNCTION FValidFATDir LIB "mscomstf.dll" (szDir$) AS INTEGER
  302. DECLARE FUNCTION CchlValidFATSubPath LIB "mscomstf.dll" (szPath$) AS INTEGER
  303. DECLARE FUNCTION FValidFATPath LIB "mscomstf.dll" (szPath$) AS INTEGER
  304. DECLARE FUNCTION FValidDrive (szDrive$) AS INTEGER
  305.  
  306. DECLARE FUNCTION FValidInfSect (szSect$) AS INTEGER
  307. DECLARE FUNCTION FValidIniFile (szFile$) AS INTEGER
  308.  
  309. '$endif ''DEBUG
  310.  
  311.  
  312.  
  313. '' Windows system detect
  314.  
  315. DECLARE FUNCTION GetWindowsMajorVersion AS INTEGER
  316. DECLARE FUNCTION GetWindowsMinorVersion AS INTEGER
  317. DECLARE FUNCTION GetWindowsMode AS INTEGER
  318. DECLARE FUNCTION GetWindowsDir  AS STRING
  319. DECLARE FUNCTION GetWindowsSysDir AS STRING
  320. DECLARE FUNCTION IsWindowsShared AS INTEGER
  321. DECLARE FUNCTION GetScreenWidth AS INTEGER
  322. DECLARE FUNCTION GetScreenHeight AS INTEGER
  323.  
  324.  
  325. '*************************************************************************
  326. '*****************  Setup Basic Wrapper Definitions  *********************
  327. '*************************************************************************
  328. FUNCTION InitSetup(szCmdLine$) STATIC AS INTEGER
  329.     fFrameInit = 0
  330.     fInstallInit = 0
  331.  
  332.     IF hSetup > 0 THEN
  333. '$ifdef DEBUG
  334.         StfApiErr saeInit, "InitSetup", szCmdLine$
  335. '$endif ''DEBUG
  336.     END IF
  337.  
  338.     i% = InitFrame(szCmdLine$)
  339.     fFrameInit = 1
  340.  
  341.     InitInstall
  342.     fInstallInit = 1
  343.  
  344.     InitSetup = i%
  345. END FUNCTION
  346.  
  347.  
  348.  
  349. '**************************************************************************
  350. FUNCTION InitFrame(szCmdLine$) STATIC AS INTEGER
  351.     IF hSetup > 0 THEN
  352. '$ifdef DEBUG
  353.         StfApiErr saeInit, "InitFrame", szCmdLine$
  354. '$endif ''DEBUG
  355.     ELSE
  356.         i% = InitializeFrame(szCmdLine$)
  357.         IF i% = -1 THEN
  358.             END   '' NOT an error - Usage (/?) or Command line copy operation
  359.         ELSEIF i% = 0 THEN
  360. '$ifdef DEBUG
  361.             StfApiErr saeFail, "InitFrame", szCmdLine$
  362. '$endif ''DEBUG
  363.             END
  364.         ELSE
  365.             InitFrame = i%
  366.         END IF
  367.     END IF
  368. END FUNCTION
  369.  
  370.  
  371. '**************************************************************************
  372. SUB SetBitmap(szDll$, Bitmap%) STATIC
  373.     IF FSetBitmap(szDll$, Bitmap%) = 0 THEN
  374. '$ifdef DEBUG
  375.         StfApiErr saeFail, "SetBitmap", szDll$+","+STR$(Bitmap%)
  376. '$endif ''DEBUG
  377.         ERROR STFERR
  378.     END IF
  379. END SUB
  380.  
  381.  
  382. '**************************************************************************
  383. SUB SetAbout(szAbout1$, szAbout2$) STATIC
  384.     IF FSetAbout(szAbout1$, szAbout2$) = 0 THEN
  385. '$ifdef DEBUG
  386.         StfApiErr saeFail, "SetAbout", szAbout1$ + "," + szAbout2$
  387. '$endif ''DEBUG
  388.         ERROR STFERR
  389.     END IF
  390. END SUB
  391.  
  392.  
  393. '*************************************************************************
  394. SUB SetTitle(sz$) STATIC
  395.     SetWindowText HwndFrame(), sz$
  396. END SUB
  397.  
  398.  
  399. '*************************************************************************
  400. SUB ReadInfFile (szFile$) STATIC
  401. '$ifdef DEBUG
  402.     if FValidFATPath(szFile$) = 0 then
  403.         BadArgErr 1, "ReadInfFile", szFile$
  404.     end if
  405.     IF FOpenInf(szFile$, 1, 1) = 0 THEN
  406.         StfApiErr saeFail, "ReadInfFile", szFile$
  407. '$else  ''!DEBUG
  408.     IF FOpenInf(szFile$, 1, 0) = 0 THEN
  409. '$endif ''!DEBUG
  410.         ERROR STFERR
  411.     END IF
  412. END SUB
  413.  
  414.  
  415. '*************************************************************************
  416. FUNCTION UIStartDlg(szDll$, Dlg%, szDlgProc$, HelpDlg%, szHelpProc$) STATIC AS STRING
  417. '$ifdef DEBUG
  418.     if szDll$ = "" then
  419.         n% = 1
  420.     elseif szDlgProc$ = "" then
  421.         n% = 3
  422.     else
  423.         n% = 0
  424.     end if
  425.     if n% > 0 then
  426.         BadArgErr n%, "UIStartDlg", szDll$+", "+STR$(Dlg%)+", "+szDlgProc$+", "+STR$(HelpDlg%)+", "+szHelpProc$
  427.     end if
  428. '$endif ''DEBUG
  429.  
  430.     IF FDoDialog(HwndFrame(), szDll$, Dlg%, szDlgProc$, HelpDlg%, szHelpProc$) = 0 THEN
  431. '$ifdef DEBUG
  432.         StfApiErr saeFail, "UIStartDlg", szDll$+", "+STR$(Dlg%)+", "+szDlgProc$+", "+STR$(HelpDlg%)+", "+szHelpProc$
  433. '$endif ''DEBUG
  434.         ERROR STFERR
  435.     ELSE
  436.         UIStartDlg = GetSymbolValue("DLGEVENT")
  437.     END IF
  438. END FUNCTION
  439.  
  440.  
  441. '*************************************************************************
  442. SUB UIPop (n%) STATIC
  443.     IF FKillNDialogs(n%) = 0 THEN
  444. '$ifdef DEBUG
  445.         StfApiErr saeFail, "UIPop", STR$(n%)
  446. '$endif ''DEBUG
  447.         ERROR STFERR
  448.     END IF
  449. END SUB
  450.  
  451.  
  452. '*************************************************************************
  453. SUB UIPopAll STATIC
  454.     IF FKillNDialogs(65535) = 0 THEN
  455. '$ifdef DEBUG
  456.         StfApiErr saeFail, "UIPopAll", ""
  457. '$endif ''DEBUG
  458.         ERROR STFERR
  459.     END IF
  460. END SUB
  461.  
  462.  
  463. '*************************************************************************
  464. FUNCTION GetSymbolValue(szSymbol$) STATIC AS STRING
  465. '$ifdef DEBUG
  466.     if szSymbol$ = "" then
  467.         BadArgErr 1, "GetSymbolValue", szSymbol$
  468.     end if
  469. '$endif ''DEBUG
  470.     szValue$ = string$(cbSymValMax,32)
  471.     Length% = CbGetSymbolValue(szSymbol$, szValue$, cbSymValMax)
  472.     GetSymbolValue = szValue$
  473.     IF Length% >= cbSymValMax THEN
  474.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  475.         ERROR STFERR
  476.     END IF
  477.     IF szSymbol$ = "" THEN
  478.         ERROR STFERR
  479.     END IF
  480.     szValue$ = ""
  481. END FUNCTION
  482.  
  483.  
  484. '*************************************************************************
  485. FUNCTION GetListLength(szSymbol$) STATIC AS INTEGER
  486. '$ifdef DEBUG
  487.     if szSymbol$ = "" then
  488.         BadArgErr 1, "GetListLength", szSymbol$
  489.     end if
  490. '$endif ''DEBUG
  491.     GetListLength = UsGetListLength(szSymbol$)
  492.     IF szSymbol$ = "" THEN
  493.         ERROR STFERR
  494.     END IF
  495. END FUNCTION
  496.  
  497.  
  498. '*************************************************************************
  499. FUNCTION GetListItem(szListSymbol$, nItem%) STATIC AS STRING
  500. '$ifdef DEBUG
  501.     if szListSymbol$ = "" then
  502.         BadArgErr 1, "GetListItem", szListSymbol$+", "+STR$(nItem%)
  503.     end if
  504.  
  505.     if nItem% <= 0 or nItem% > GetListLength(szListSymbol$) then
  506.         BadArgErr 2, "GetListItem", szListSymbol$+", "+STR$(nItem%)
  507.     end if
  508. '$endif ''DEBUG
  509.  
  510.     szListItem$ = string$(cbSymValMax,32)
  511.     Length% = CbGetListItem(szListSymbol$, nItem%, szListItem$, cbSymValMax)
  512.     GetListItem = szListItem$
  513.     IF Length% >= cbSymValMax THEN
  514.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  515.         ERROR STFERR
  516.     END IF
  517.     IF szListSymbol$ = "" THEN
  518.         ERROR STFERR
  519.     END IF
  520.     if nItem% <= 0 or nItem% > GetListLength(szListSymbol$) then
  521.         ERROR STFERR
  522.     end if
  523.     szListItem$ = ""
  524. END FUNCTION
  525.  
  526.  
  527. '*************************************************************************
  528. SUB AddListItem(szSymbol$, szItem$) STATIC
  529. '$ifdef DEBUG
  530.     if szSymbol$ = "" then
  531.         BadArgErr 1, "AddListItem", szSymbol$+", "+szItem$
  532.     end if
  533. '$endif ''DEBUG
  534.     IF FAddListItem(szSymbol$, szItem$) = 0 THEN
  535. '$ifdef DEBUG
  536.         StfApiErr saeFail, "AddListItem", szSymbol$+", "+szItem$
  537. '$endif ''DEBUG
  538.         ERROR STFERR
  539.     END IF
  540. END SUB
  541.  
  542.  
  543. '*************************************************************************
  544. SUB ReplaceListItem(szSymbol$, n%, szItem$) STATIC
  545. '$ifdef DEBUG
  546.     if szSymbol$ = "" then
  547.         nArg% = 1
  548.     elseif (n% <= 0) OR (n% > GetListLength(szSymbol$)) then
  549.         nArg% = 2
  550.     else
  551.         nArg% = 0
  552.     end if
  553.     if nArg% > 0 then
  554.         BadArgErr nArg%, "ReplaceListItem", szSymbol$+", "+STR$(n%)+", "+szItem$
  555.     end if
  556. '$endif ''DEBUG
  557.  
  558.     IF FReplaceListItem(szSymbol$, n%, szItem$) = 0 THEN
  559. '$ifdef DEBUG
  560.         StfApiErr saeFail, "ReplaceListItem", szSymbol$+", "+STR$(n%)+", "+szItem$
  561. '$endif ''DEBUG
  562.         ERROR STFERR
  563.     END IF
  564. END SUB
  565.  
  566.  
  567. '**************************************************************************
  568. SUB MakeListFromSectionKeys(szSymbol$, szSect$) STATIC
  569. '$ifdef DEBUG
  570.     if szSymbol$ = "" then
  571.         n% = 1
  572.     elseif FValidInfSect(szSect$) = 0 then
  573.         n% = 2
  574.     else
  575.         n% = 0
  576.     end if
  577.     if n% > 0 then
  578.         BadArgErr n%, "MakeListFromSectionKeys", szSymbol$+", "+szSect$
  579.     end if
  580. '$endif ''DEBUG
  581.  
  582.     IF FSetSymbolToListOfInfKeys(szSymbol$, szSect$, 1) = 0 THEN
  583. '$ifdef DEBUG
  584.         StfApiErr saeFail, "MakeListFromSectionKeys", szSymbol$+", "+szSect$
  585. '$endif ''DEBUG
  586.         ERROR STFERR
  587.     END IF
  588. END SUB
  589.  
  590.  
  591. '*************************************************************************
  592. SUB SetSymbolValue(szSymbol$, szValue$) STATIC
  593. '$ifdef DEBUG
  594.     if szSymbol$ = "" then
  595.         BadArgErr 1, "SetSymbolValue", szSymbol$+", "+szValue$
  596.     end if
  597. '$endif ''DEBUG
  598.     IF FSetSymbolValue(szSymbol$, szValue$) = 0 THEN
  599. '$ifdef DEBUG
  600.         StfApiErr saeFail, "SetSymbolValue", szSymbol$+", "+szValue$
  601. '$endif ''DEBUG
  602.         ERROR STFERR
  603.     END IF
  604. END SUB
  605.  
  606.  
  607. '*************************************************************************
  608. SUB RemoveSymbol(szSym$) STATIC
  609. '$ifdef DEBUG
  610.     if szSym$ = "" then
  611.         BadArgErr 1, "RemoveSymbol", szSym$
  612.     end if
  613. '$endif ''DEBUG
  614.     IF FRemoveSymbol(szSym$) = 0 THEN
  615. '$ifdef DEBUG
  616.         StfApiErr saeFail, "RemoveSymbol", szSym$
  617. '$endif ''DEBUG
  618.         ERROR STFERR
  619.     END IF
  620. END SUB
  621.  
  622.  
  623. '*************************************************************************
  624. FUNCTION ShowWaitCursor STATIC AS INTEGER
  625.     ShowWaitCursor = HShowWaitCursor
  626. END FUNCTION
  627.  
  628.  
  629. '*************************************************************************
  630. SUB RestoreCursor (hPrev%) STATIC
  631.     i% = FRestoreCursor(hPrev%)
  632.     IF i% = 0 THEN
  633. '$ifdef DEBUG
  634.         StfApiErr saeFail, "RestoreCursor", ""
  635. '$endif ''DEBUG
  636.         ERROR STFERR
  637.     END IF
  638. END SUB
  639.  
  640.  
  641. '*************************************************************************
  642. FUNCTION SetBeepingMode (mode%) STATIC AS INTEGER
  643.     SetBeepingMode = FSetBeepingMode(mode%)
  644. END FUNCTION
  645.  
  646.  
  647. '*************************************************************************
  648. FUNCTION SetSilentMode (mode%) STATIC AS INTEGER
  649.     SetSilentMode = FSetSilent(mode%)
  650. END FUNCTION
  651.  
  652.  
  653. '*************************************************************************
  654. FUNCTION GetSectionKeyDate (szSect$, szKey$) STATIC AS STRING
  655. '$ifdef DEBUG
  656.     if FValidInfSect(szSect$) = 0 then
  657.         n% = 1
  658.     elseif szKey$ = "" then
  659.         n% = 2
  660.     else
  661.         n% = 0
  662.     end if
  663.     if n% > 0 then
  664.         BadArgErr n%, "GetSectionKeyDate", szSect$+", "+szKey$
  665.     end if
  666. '$endif ''DEBUG
  667.  
  668.     szBuf$ = string$(128, 32)
  669.     Length% = CbGetInfSectionKeyField(szSect$, szKey$, 5, szBuf$, 128)
  670.     IF Length% >= 128 THEN
  671.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  672.         ERROR STFERR
  673.     END IF
  674.  
  675.     IF Length% = -1 THEN
  676. '$ifdef DEBUG
  677.         StfApiErr saeFail, "GetSectionKeyDate", szSect$+", "+szKey$
  678. '$endif ''DEBUG
  679.         ERROR STFERR
  680.     END IF
  681.  
  682.     GetSectionKeyDate = szBuf$
  683.     szBuf$ = ""
  684. END FUNCTION
  685.  
  686.  
  687. '*************************************************************************
  688. FUNCTION GetSectionKeyFilename (szSect$, szKey$) STATIC AS STRING
  689. '$ifdef DEBUG
  690.     if FValidInfSect(szSect$) = 0 then
  691.         n% = 1
  692.     elseif szKey$ = "" then
  693.         n% = 2
  694.     else
  695.         n% = 0
  696.     end if
  697.     if n% > 0 then
  698.         BadArgErr n%, "GetSectionKeyFilename", szSect$+", "+szKey$
  699.     end if
  700. '$endif ''DEBUG
  701.  
  702.     szBuf$ = string$(128, 32)
  703.     Length% = CbGetInfSectionKeyField(szSect$, szKey$, 1, szBuf$, 128)
  704.     IF Length% >= 128 THEN
  705.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  706.         ERROR STFERR
  707.     END IF
  708.  
  709.     IF Length% = -1 THEN
  710. '$ifdef DEBUG
  711.         StfApiErr saeFail, "GetSectionKeyFilename", szSect$+", "+szKey$
  712. '$endif ''DEBUG
  713.         ERROR STFERR
  714.     END IF
  715.  
  716.     GetSectionKeyFilename = szBuf$
  717.     szBuf$ = ""
  718. END FUNCTION
  719.  
  720.  
  721. '*************************************************************************
  722. FUNCTION GetSectionKeySize (szSect$, szKey$) STATIC AS LONG
  723. '$ifdef DEBUG
  724.     if FValidInfSect(szSect$) = 0 then
  725.         n% = 1
  726.     elseif szKey$ = "" then
  727.         n% = 2
  728.     else
  729.         n% = 0
  730.     end if
  731.     if n% > 0 then
  732.         BadArgErr n%, "GetSectionKeySize", szSect$+", "+szKey$
  733.     end if
  734. '$endif ''DEBUG
  735.  
  736.     szBuf$ = string$(128, 32)
  737.     Length% = CbGetInfSectionKeyField(szSect$, szKey$, 15, szBuf$, 128)
  738.     IF Length% >= 128 THEN
  739.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  740.         ERROR STFERR
  741.     END IF
  742.  
  743.     IF Length% = -1 THEN
  744. '$ifdef DEBUG
  745.         StfApiErr saeFail, "GetSectionKeySize", szSect$+", "+szKey$
  746. '$endif ''DEBUG
  747.         ERROR STFERR
  748.     END IF
  749.  
  750.     GetSectionKeySize = VAL(szBuf$)
  751.     szBuf$ = ""
  752. END FUNCTION
  753.  
  754.  
  755. '*************************************************************************
  756. FUNCTION GetSectionKeyVersion (szSect$, szKey$) STATIC AS STRING
  757. '$ifdef DEBUG
  758.     if FValidInfSect(szSect$) = 0 then
  759.         n% = 1
  760.     elseif szKey$ = "" then
  761.         n% = 2
  762.     else
  763.         n% = 0
  764.     end if
  765.     if n% > 0 then
  766.         BadArgErr n%, "GetSectionKeyVersion", szSect$+", "+szKey$
  767.     end if
  768. '$endif ''DEBUG
  769.  
  770.     szBuf$ = string$(128, 32)
  771.     Length% = CbGetInfSectionKeyField(szSect$, szKey$, 19, szBuf$, 128)
  772.     IF Length% >= 128 THEN
  773.         res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  774.         ERROR STFERR
  775.     END IF
  776.  
  777.     IF Length% = -1 THEN
  778. '$ifdef DEBUG
  779.         StfApiErr saeFail, "GetSectionKeyVersion", szSect$+", "+szKey$
  780. '$endif ''DEBUG
  781.         ERROR STFERR
  782.     END IF
  783.  
  784.     GetSectionKeyVersion = szBuf$
  785.     szBuf$ = ""
  786. END FUNCTION
  787.  
  788.  
  789. '*************************************************************************
  790. SUB MakeListFromSectionDate (szSym$, szSect$) STATIC
  791. '$ifdef DEBUG
  792.     if szSym$ = "" then
  793.         n% = 1
  794.     elseif FValidInfSect(szSect$) = 0 then
  795.         n% = 2
  796.     else
  797.         n% = 0
  798.     end if
  799.     if n% > 0 then
  800.         BadArgErr n%, "MakeListFromSectionDate", szSym$+", "+szSect$
  801.     end if
  802. '$endif ''DEBUG
  803.  
  804.     IF FMakeListInfSectionField(szSym$, szSect$, 5) = 0 THEN
  805. '$ifdef DEBUG
  806.         StfApiErr saeFail, "MakeListFromSectionDate", szSym$+", "+szSect$
  807. '$endif ''DEBUG
  808.         ERROR STFERR
  809.     END IF
  810. END SUB
  811.  
  812.  
  813. '*************************************************************************
  814. SUB MakeListFromSectionFilename (szSym$, szSect$) STATIC
  815. '$ifdef DEBUG
  816.     if szSym$ = "" then
  817.         n% = 1
  818.     elseif FValidInfSect(szSect$) = 0 then
  819.         n% = 2
  820.     else
  821.         n% = 0
  822.     end if
  823.     if n% > 0 then
  824.         BadArgErr n%, "MakeListFromSectionFilename", szSym$+", "+szSect$
  825.     end if
  826. '$endif ''DEBUG
  827.  
  828.     IF FMakeListInfSectionField(szSym$, szSect$, 1) = 0 THEN
  829. '$ifdef DEBUG
  830.         StfApiErr saeFail, "MakeListFromSectionFilename", szSym$+", "+szSect$
  831. '$endif ''DEBUG
  832.         ERROR STFERR
  833.     END IF
  834. END SUB
  835.  
  836.  
  837. '*************************************************************************
  838. SUB MakeListFromSectionSize (szSym$, szSect$) STATIC
  839. '$ifdef DEBUG
  840.     if szSym$ = "" then
  841.         n% = 1
  842.     elseif FValidInfSect(szSect$) = 0 then
  843.         n% = 2
  844.     else
  845.         n% = 0
  846.     end if
  847.     if n% > 0 then
  848.         BadArgErr n%, "MakeListFromSectionSize", szSym$+", "+szSect$
  849.     end if
  850. '$endif ''DEBUG
  851.  
  852.     IF FMakeListInfSectionField(szSym$, szSect$, 15) = 0 THEN
  853. '$ifdef DEBUG
  854.         StfApiErr saeFail, "MakeListFromSectionSize", szSym$+", "+szSect$
  855. '$endif ''DEBUG
  856.         ERROR STFERR
  857.     END IF
  858. END SUB
  859.  
  860.  
  861. '*************************************************************************
  862. SUB MakeListFromSectionVersion (szSym$, szSect$) STATIC
  863. '$ifdef DEBUG
  864.     if szSym$ = "" then
  865.         n% = 1
  866.     elseif FValidInfSect(szSect$) = 0 then
  867.         n% = 2
  868.     else
  869.         n% = 0
  870.     end if
  871.     if n% > 0 then
  872.         BadArgErr n%, "MakeListFromSectionVersion", szSym$+", "+szSect$
  873.     end if
  874. '$endif ''DEBUG
  875.  
  876.     IF FMakeListInfSectionField(szSym$, szSect$, 19) = 0 THEN
  877. '$ifdef DEBUG
  878.         StfApiErr saeFail, "MakeListFromSectionVersion", szSym$+", "+szSect$
  879. '$endif ''DEBUG
  880.         ERROR STFERR
  881.     END IF
  882. END SUB
  883.  
  884.  
  885. '*************************************************************************
  886. SUB InitInstall STATIC
  887.     IF hSetup > 0 THEN
  888. '$ifdef DEBUG
  889.         StfApiErr saeInit, "InitInstall", ""
  890. '$endif ''DEBUG
  891.     ELSEIF FInitializeInstall(HinstFrame(), HwndFrame()) = 0 THEN
  892. '$ifdef DEBUG
  893.         StfApiErr saeFail, "InitInstall", ""
  894. '$endif ''DEBUG
  895.         END
  896.     END IF
  897. END SUB
  898.  
  899.  
  900. '*************************************************************************
  901. SUB CreateDir (szDir$, cmo%) STATIC
  902. '$ifdef DEBUG
  903.     if FValidFATDir(szDir$) = 0 then
  904.         BadArgErr 1, "CreateDir", szDir$+", "+STR$(cmo%)
  905.     end if
  906. '$endif ''DEBUG
  907.     IF FCreateDir(szDir$, cmo%) = 0 THEN
  908. '$ifdef DEBUG
  909.         StfApiErr saeFail, "CreateDir", szDir$+", "+STR$(cmo%)
  910. '$endif ''DEBUG
  911.         ERROR STFERR
  912.     END IF
  913. END SUB
  914.  
  915.  
  916. '*************************************************************************
  917. SUB RemoveDir (szDir$, cmo%) STATIC
  918. '$ifdef DEBUG
  919.     if FValidFATDir(szDir$) = 0 then
  920.         BadArgErr 1, "RemoveDir", szDir$+", "+STR$(cmo%)
  921.     end if
  922. '$endif ''DEBUG
  923.     IF FRemoveDir(szDir$, cmo%) = 0 THEN
  924. '$ifdef DEBUG
  925.         StfApiErr saeFail, "RemoveDir", szDir$+", "+STR$(cmo%)
  926. '$endif ''DEBUG
  927.         ERROR STFERR
  928.     END IF
  929. END SUB
  930.  
  931.  
  932.  
  933. '*************************************************************************
  934. SUB RemoveIniSection (szFile$, szSect$, cmo%) STATIC
  935. '$ifdef DEBUG
  936.     if FValidIniFile(szFile$) = 0 then
  937.         n% = 1
  938.     elseif FValidInfSect(szSect$) = 0 then
  939.         n% = 2
  940.     else
  941.         n% = 0
  942.     end if
  943.     if n% > 0 then
  944.         BadArgErr n%, "RemoveIniSection", szFile$+", "+szSect$+", "+STR$(cmo%)
  945.     end if
  946. '$endif ''DEBUG
  947.  
  948.     IF FRemoveIniSection(szFile$, szSect$, cmo%) = 0 THEN
  949. '$ifdef DEBUG
  950.         StfApiErr saeFail, "RemoveIniSection", szFile$+", "+szSect$+", "+STR$(cmo%)
  951. '$endif ''DEBUG
  952.         ERROR STFERR
  953.     END IF
  954. END SUB
  955.  
  956.  
  957. '*************************************************************************
  958. SUB CreateIniKeyValue (szFile$, szSect$, szKey$, szValue$, cmo%) STATIC
  959. '$ifdef DEBUG
  960.     if FValidIniFile(szFile$) = 0 then
  961.         n% = 1
  962.     elseif FValidInfSect(szSect$) = 0 then
  963.         n% = 2
  964.     else
  965.         n% = 0
  966.     end if
  967.  
  968.     if n% > 0 then
  969.         BadArgErr n%, "CreateIniKeyValue", szFile$+", "+szSect$+", "+szKey$+", "+szValue$+", "+STR$(cmo%)
  970.     end if
  971. '$endif ''DEBUG
  972.  
  973.     IF FCreateIniKeyValue(szFile$, szSect$, szKey$, szValue$, cmo%) = 0 THEN
  974. '$ifdef DEBUG
  975.         StfApiErr saeFail, "CreateIniKeyValue", szFile$+", "+szSect$+", "+szKey$+", "+szValue$+", "+STR$(cmo%)
  976. '$endif ''DEBUG
  977.         ERROR STFERR
  978.     END IF
  979. END SUB
  980.  
  981.  
  982. '*************************************************************************
  983. SUB RemoveIniKey (szFile$, szSect$, szKey$, cmo%) STATIC
  984. '$ifdef DEBUG
  985.     if FValidIniFile(szFile$) = 0 then
  986.         n% = 1
  987.     elseif FValidInfSect(szSect$) = 0 then
  988.         n% = 2
  989.     elseif szKey$ = "" then
  990.         n% = 3
  991.     else
  992.         n% = 0
  993.     end if
  994.     if n% > 0 then
  995.         BadArgErr n%, "RemoveIniKey", szFile$+", "+szSect$+", "+szKey$+", "+STR$(cmo%)
  996.     end if
  997. '$endif ''DEBUG
  998.  
  999.     IF FRemoveIniKey(szFile$, szSect$, szKey$, cmo%) = 0 THEN
  1000. '$ifdef DEBUG
  1001.         StfApiErr saeFail, "RemoveIniKey", szFile$+", "+szSect$+", "+szKey$+", "+STR$(cmo%)
  1002. '$endif ''DEBUG
  1003.         ERROR STFERR
  1004.     END IF
  1005. END SUB
  1006.  
  1007.  
  1008. '*************************************************************************
  1009. SUB CreateSysIniKeyValue (szFile$, szSect$, szKey$, szValue$, cmo%) STATIC
  1010. '$ifdef DEBUG
  1011.     if FValidFATPath(szFile$) = 0 then
  1012.         n% = 1
  1013.     elseif FValidInfSect(szSect$) = 0 then
  1014.         n% = 2
  1015.     elseif szKey$ = "" then
  1016.         n% = 3
  1017.     else
  1018.         n% = 0
  1019.     end if
  1020.     if n% > 0 then
  1021.         BadArgErr n%, "CreateSysIniKeyValue", szFile$+", "+szSect$+", "+szKey$+", "+szValue$+", "+STR$(cmo%)
  1022.     end if
  1023. '$endif ''DEBUG
  1024.  
  1025.     IF FCreateSysIniKeyValue(szFile$, szSect$, szKey$, szValue$, cmo%) = 0 THEN
  1026. '$ifdef DEBUG
  1027.         StfApiErr saeFail, "CreateSysIniKeyValue", szFile$+", "+szSect$+", "+szKey$+", "+szValue$+", "+STR$(cmo%)
  1028. '$endif ''DEBUG
  1029.         ERROR STFERR
  1030.     END IF
  1031. END SUB
  1032.  
  1033.  
  1034. '*************************************************************************
  1035. SUB CreateProgmanGroup (szGroup$, szPath$, cmo%) STATIC
  1036. '$ifdef DEBUG
  1037.     if szGroup$ = "" or len(szGroup$) > 24 then
  1038.         BadArgErr 1, "CreateProgmanGroup", szGroup$+", "+STR$(Cmd%)+", "+STR$(cmo%)
  1039.     end if
  1040. '$endif ''DEBUG
  1041.     IF FCreateProgManGroup(szGroup$, szPath$, cmo%) = 0 THEN
  1042. '$ifdef DEBUG
  1043.         StfApiErr saeFail, "CreateProgmanGroup", szGroup$+", "+szPath$+", "+STR$(cmo%)
  1044. '$endif ''DEBUG
  1045.         ERROR STFERR
  1046.     END IF
  1047. END SUB
  1048.  
  1049.  
  1050. '*************************************************************************
  1051. SUB ShowProgmanGroup (szGroup$, Cmd%, cmo%) STATIC
  1052. '$ifdef DEBUG
  1053.     if szGroup$ = "" or len(szGroup$) > 24 then
  1054.         BadArgErr 1, "ShowProgmanGroup", szGroup$+", "+STR$(Cmd%)+", "+STR$(cmo%)
  1055.     end if
  1056. '$endif ''DEBUG
  1057.     IF FShowProgManGroup(szGroup$, STR$(Cmd%), cmo%) = 0 THEN
  1058. '$ifdef DEBUG
  1059.         StfApiErr saeFail, "ShowProgmanGroup", szGroup$+", "+STR$(Cmd%)+", "+STR$(cmo%)
  1060. '$endif ''DEBUG
  1061.         ERROR STFERR
  1062.     END IF
  1063. END SUB
  1064.  
  1065.  
  1066. '*************************************************************************
  1067. SUB StampResource (szSect$, szKey$, szDst$, wResType%, wResId%, szData$, cbData%) STATIC
  1068. '$ifdef DEBUG
  1069.     if FValidInfSect(szSect$) = 0 then
  1070.         n% = 1
  1071.     elseif szKey$ = "" then
  1072.         n% = 2
  1073.     elseif FValidFATDir(szDst$) = 0 then
  1074.         n% = 3
  1075.     else
  1076.         n% = 0
  1077.     end if
  1078.     if n% > 0 then
  1079.         BadArgErr n%, "StampResource", szSect$+", "+szKey$+", "+szDst$+", "+STR$(wResType%)+", "+STR$(wResId%)+", "+szData$+", "+STR$(cbData%)
  1080.     end if
  1081. '$endif ''DEBUG
  1082.  
  1083.     IF FStampResource (szSect$, szKey$, szDst$, wResType%, wResId%, szData$, cbData%) = 0 THEN
  1084. '$ifdef DEBUG
  1085.         StfApiErr saeFail, "StampResource", szSect$+", "+szKey$+", "+szDst$+", "+STR$(wResType%)+", "+STR$(wResId%)+", "+szData$+", "+STR$(cbData%)
  1086. '$endif ''DEBUG
  1087.         ERROR STFERR
  1088.     END IF
  1089. END SUB
  1090.  
  1091.  
  1092. '*************************************************************************
  1093. SUB DumpCopyList (szFile$) STATIC
  1094. '$ifdef DEBUG
  1095.     if szFile$ = "" then
  1096.         BadArgErr 1, "DumpCopyList", szFile$
  1097.     end if
  1098. '$endif ''DEBUG
  1099.     IF FDumpCopyListToFile (szFile$) = 0 THEN
  1100. '$ifdef DEBUG
  1101.         StfApiErr saeFail, "DumpCopyList", szFile$
  1102. '$endif ''DEBUG
  1103.         ERROR STFERR
  1104.     END IF
  1105. END SUB
  1106.  
  1107.  
  1108. '*************************************************************************
  1109. SUB ClearCopyList STATIC
  1110.     ResetCopyList
  1111. END SUB
  1112.  
  1113.  
  1114. '*************************************************************************
  1115. FUNCTION GetCopyListCost (szExtraList$, szCostList$, szNeedList$) STATIC AS LONG
  1116.     lNeed& = LcbGetCopyListCost (szExtraList$, szCostList$, szNeedList$)
  1117.     IF lNeed& < 0 THEN
  1118. '$ifdef DEBUG
  1119.         StfApiErr saeFail, "GetCopyListCost", szExtraList$+", "+szCostList$+", "+szNeedList$
  1120. '$endif ''DEBUG
  1121.         ERROR STFERR
  1122.     END IF
  1123.     GetCopyListCost = lNeed&
  1124. END FUNCTION
  1125.  
  1126.  
  1127. '*************************************************************************
  1128. SUB CreateProgmanItem (szGroup$, szItem$, szCmd$, szOther$, cmo%) STATIC
  1129.     szItemNew$ = szItem$
  1130.     IF szOther$ <> "" THEN
  1131.         szItemNew$ = szItem$ + "," + szOther$
  1132.     END IF
  1133. '$ifdef DEBUG
  1134.     if szGroup$ = "" or len(szGroup$) > 24 then
  1135.         BadArgErr 1, "CreateProgmanItem", szGroup$+", "+STR$(Cmd%)+", "+STR$(cmo%)
  1136.     end if
  1137. '$endif ''DEBUG
  1138.  
  1139.     IF FCreateProgManItem(szGroup$, szItemNew$, szCmd$, cmo%) = 0 THEN
  1140. '$ifdef DEBUG
  1141.         StfApiErr saeFail, "CreateProgmanItem", szGroup$+", "+szItem$+", "+szCmd$+", "+szOther$+", "+STR$(cmo%)
  1142. '$endif ''DEBUG
  1143.         ERROR STFERR
  1144.     END IF
  1145.     szItemNew$ = ""
  1146. END SUB
  1147.  
  1148.  
  1149. '*************************************************************************
  1150. SUB AddDos5Help (szProgName$, szProgHelp$, cmo%) STATIC
  1151. '$ifdef DEBUG
  1152.     if szProgName$ = "" OR MID$(szProgName$, 1, 1) = "@" OR LEN(szProgName$) > 8 then
  1153.         n% = 1
  1154.     elseif INSTR(szProgName$, " ") <> 0 OR INSTR(szProgName$, CHR$(9)) <> 0 then
  1155.         n% = 1
  1156.     elseif szProgHelp$ = "" then
  1157.         n% = 2
  1158.     else
  1159.         n% = 0
  1160.     end if
  1161.     if n% > 0 then
  1162.         BadArgErr n%, "AddDos5Help", szProgName$+", "+szProgHelp$+", "+STR$(cmo%)
  1163.     end if
  1164. '$endif ''DEBUG
  1165.     IF FAddDos5Help (szProgName$, szProgHelp$, cmo%) = 0 THEN
  1166. '$ifdef DEBUG
  1167.         StfApiErr saeFail, "AddDos5Help", szProgName$+", "+szProgHelp$+", "+STR$(cmo%)
  1168. '$endif ''DEBUG
  1169.         ERROR STFERR
  1170.     END IF
  1171. END SUB
  1172.  
  1173.  
  1174. '*************************************************************************
  1175. SUB CopyFilesInCopyList STATIC
  1176.     grc% = GrcCopyFilesInCopyList (HinstFrame())
  1177.  
  1178.     IF grc% = grcUserQuit THEN
  1179.         ERROR STFQUIT
  1180.     ELSEIF grc% > 0 THEN
  1181. '$ifdef DEBUG
  1182.         StfApiErr saeFail, "CopyFilesInCopyList", ""
  1183. '$endif ''DEBUG
  1184.         ERROR STFERR
  1185.     END IF
  1186. END SUB
  1187.  
  1188.  
  1189. '*************************************************************************
  1190. SUB CopyFile (szFullPathSrc$, szFullPathDst$, cmo%, fAppend%) STATIC
  1191. '$ifdef DEBUG
  1192.     if FValidFATPath(szFullPathSrc$) = 0 then
  1193.         n% = 1
  1194.     elseif FValidFATPath(szFullPathDst$) = 0 then
  1195.         n% = 2
  1196.     else
  1197.         n% = 0
  1198.     end if
  1199.     if n% > 0 then
  1200.         BadArgErr n%, "CopyFile", szFullPathSrc$+", "+szFullPathDst$+", "+STR$(cmo%)+", "+STR$(fAppend%)
  1201.     end if
  1202. '$endif ''DEBUG
  1203.  
  1204.     IF  FCopyOneFile(szFullPathSrc$, szFullPathDst$, (cmo OR cmoCopy), fAppend%) = 0 THEN
  1205. '$ifdef DEBUG
  1206.         StfApiErr saeFail, "CopyFile", szFullPathSrc$+", "+szFullPathDst$+", "+STR$(cmo%)+", "+STR$(fAppend%)
  1207. '$endif ''DEBUG
  1208.         ERROR STFERR
  1209.     END IF
  1210. END SUB
  1211.  
  1212.  
  1213.  
  1214. '*************************************************************************
  1215. SUB RemoveFile (szFullPathSrc$, cmo%) STATIC
  1216. '$ifdef DEBUG
  1217.     if FValidFATPath(szFullPathSrc$) = 0 then
  1218.         BadArgErr 1, "RemoveFile", szFullPathSrc$+", "+STR$(cmo%)
  1219.     end if
  1220. '$endif ''DEBUG
  1221.     IF  YnrcRemoveFile(szFullPathSrc$, cmo%) = ynrcNo THEN
  1222. '$ifdef DEBUG
  1223.         StfApiErr saeFail, "RemoveFile", szFullPathSrc$+", "+STR$(cmo%)
  1224. '$endif ''DEBUG
  1225.         ERROR STFERR
  1226.     END IF
  1227. END SUB
  1228.  
  1229.  
  1230. '*************************************************************************
  1231. SUB BackupFile (szFullPath$, szBackup$) STATIC
  1232. '$ifdef DEBUG
  1233.     if FValidFATPath(szFullPath$) = 0 then
  1234.         n% = 1
  1235.     elseif szBackup$ = "" then
  1236.         n% = 2
  1237.     else
  1238.         n% = 0
  1239.     end if
  1240.     if n% > 0 then
  1241.         BadArgErr n%, "BackupFile", szFullPath$+", "+szBackup$
  1242.     end if
  1243. '$endif ''DEBUG
  1244.  
  1245.     IF YnrcBackupFile(szFullPath$, szBackup$, cmoNone) = ynrcNo THEN
  1246. '$ifdef DEBUG
  1247.         StfApiErr saeFail, "BackupFile", szFullPath$+", "+szBackup$
  1248. '$endif ''DEBUG
  1249.         ERROR STFERR
  1250.     END IF
  1251. END SUB
  1252.  
  1253.  
  1254. '*************************************************************************
  1255. SUB RenameFile (szFullPath$, szBackup$) STATIC
  1256. '$ifdef DEBUG
  1257.     if FValidFATPath(szFullPath$) = 0 then
  1258.         n% = 1
  1259.     elseif szBackup$ = "" then
  1260.         n% = 2
  1261.     else
  1262.         n% = 0
  1263.     end if
  1264.     if n% > 0 then
  1265.         BadArgErr n%, "RenameFile", szFullPath$+", "+szBackup$
  1266.     end if
  1267. '$endif ''DEBUG
  1268.  
  1269.     IF YnrcBackupFile(szFullPath$, szBackup$, cmoNone) = ynrcNo THEN
  1270. '$ifdef DEBUG
  1271.         StfApiErr saeFail, "RenameFile", szFullPath$+", "+szBackup$
  1272. '$endif ''DEBUG
  1273.         ERROR STFERR
  1274.     END IF
  1275. END SUB
  1276.  
  1277.  
  1278. '*************************************************************************
  1279. SUB AddSectionFilesToCopyList (szSect$, szSrc$, szDest$) STATIC
  1280. '$ifdef DEBUG
  1281.     if FValidInfSect(szSect$) = 0 then
  1282.         n% = 1
  1283.     elseif FValidFATDir(szSrc$) = 0 then
  1284.         n% = 2
  1285.     elseif FValidFATDir(szDest$) = 0 then
  1286.         n% = 3
  1287.     else
  1288.         n% = 0
  1289.     end if
  1290.     if n% > 0 then
  1291.         BadArgErr n%, "AddSectionFilesToCopyList", szSect$+", "+szSrc$+", "+szDest$
  1292.     end if
  1293. '$endif ''DEBUG
  1294.  
  1295.     IF FAddSectionFilesToCopyList (szSect$, szSrc$, szDest$) = 0 THEN
  1296. '$ifdef DEBUG
  1297.         StfApiErr saeFail, "AddSectionFilesToCopyList", szSect$+", "+szSrc$+", "+szDest$
  1298. '$endif ''DEBUG
  1299.         ERROR STFERR
  1300.     END IF
  1301. END SUB
  1302.  
  1303.  
  1304. '*************************************************************************
  1305. SUB AddSectionKeyFileToCopyList (szSect$, szKey$, szSrc$, szDest$) STATIC
  1306. '$ifdef DEBUG
  1307.     if FValidInfSect(szSect$) = 0 then
  1308.         n% = 1
  1309.     elseif szKey$ = "" then
  1310.         n% = 2
  1311.     elseif FValidFATDir(szSrc$) = 0 then
  1312.         n% = 3
  1313.     elseif FValidFATDir(szDest$) = 0 then
  1314.         n% = 4
  1315.     else
  1316.         n% = 0
  1317.     end if
  1318.     if n% > 0 then
  1319.         BadArgErr n%, "AddSectionKeyFileToCopyList", szSect$+", "+szKey$+", "+szSrc$+", "+szDest$
  1320.     end if
  1321. '$endif ''DEBUG
  1322.  
  1323.     IF FAddSectionKeyFileToCopyList (szSect$, szKey$, szSrc$, szDest$) = 0 THEN
  1324. '$ifdef DEBUG
  1325.         StfApiErr saeFail, "AddSectionKeyFileToCopyList", szSect$+", "+szKey$+", "+szSrc$+", "+szDest$
  1326. '$endif ''DEBUG
  1327.         ERROR STFERR
  1328.     END IF
  1329. END SUB
  1330.  
  1331.  
  1332. '*************************************************************************
  1333. SUB AddSpecialFileToCopyList (szSect$, szKey$, szSrc$, szDest$) STATIC
  1334. '$ifdef DEBUG
  1335.     if FValidInfSect(szSect$) = 0 then
  1336.         n% = 1
  1337.     elseif szKey$ = "" then
  1338.         n% = 2
  1339.     elseif FValidFATDir(szSrc$) = 0 then
  1340.         n% = 3
  1341.     elseif FValidFATPath(szDest$) = 0 then
  1342.         n% = 4
  1343.     else
  1344.         n% = 0
  1345.     end if
  1346.     if n% > 0 then
  1347.         BadArgErr n%, "AddSpecialFileToCopyList", szSect$+", "+szKey$+", "+szSrc$+", "+szDest$
  1348.     end if
  1349. '$endif ''DEBUG
  1350.  
  1351.     IF FAddSpecialFileToCopyList (szSect$, szKey$, szSrc$, szDest$) = 0 THEN
  1352. '$ifdef DEBUG
  1353.         StfApiErr saeFail, "AddSpecialFileToCopyList", szSect$+", "+szKey$+", "+szSrc$+", "+szDest$
  1354. '$endif ''DEBUG
  1355.         ERROR STFERR
  1356.     END IF
  1357. END SUB
  1358.  
  1359.  
  1360. '*************************************************************************
  1361. SUB AddToBillboardList (szDll$, idDlg%, szProc$, lTicks&) STATIC
  1362. '$ifdef DEBUG
  1363.     if szDll$ = "" then
  1364.         n% = 1
  1365.     elseif idDlg% = 0 then
  1366.         n% = 2
  1367.     elseif szProc$ = "" then
  1368.         n% = 3
  1369.     elseif lTicks& <= 0 then
  1370.         n% = 4
  1371.     else
  1372.         n% = 0
  1373.     end if
  1374.     if n% > 0 then
  1375.         BadArgErr n%, "AddToBillboardList", szDll$+", "+STR$(idDlg%)+", "+szProc$+", "+STR$(lTicks&)
  1376.     end if
  1377. '$endif ''DEBUG
  1378.  
  1379.     IF FAddToBillboardList(szDll$, idDlg%, szProc$, lTicks&) = 0 THEN
  1380. '$ifdef DEBUG
  1381.         StfApiErr saeFail, "AddToBillboardList", szDll$+", "+STR$(idDlg%)+", "+szProc$+", "+STR$(lTicks&)
  1382. '$endif ''DEBUG
  1383.         ERROR STFERR
  1384.     END IF
  1385. END SUB
  1386.  
  1387.  
  1388. '*************************************************************************
  1389. SUB AddBlankToBillboardList (lTicks&) STATIC
  1390. '$ifdef DEBUG
  1391.     if lTicks& <= 0 then
  1392.         BadArgErr 1, "AddBlankToBillboardList", STR$(lTicks&)
  1393.     end if
  1394. '$endif ''DEBUG
  1395.     IF FAddToBillboardList(NULL, 0, NULL, lTicks&) = 0 THEN
  1396. '$ifdef DEBUG
  1397.         StfApiErr saeFail, "AddBlankToBillboardList", STR$(lTicks&)
  1398. '$endif ''DEBUG
  1399.         ERROR STFERR
  1400.     END IF
  1401. END SUB
  1402.  
  1403.  
  1404. '*************************************************************************
  1405. SUB ClearBillboardList STATIC
  1406.     IF FClearBillboardList = 0 THEN
  1407. '$ifdef DEBUG
  1408.         StfApiErr saeFail, "ClearBillboardList", ""
  1409. '$endif ''DEBUG
  1410.         ERROR STFERR
  1411.     END IF
  1412. END SUB
  1413.  
  1414.  
  1415. '*************************************************************************
  1416. SUB OpenLogFile (szFile$, fAppend%) STATIC
  1417. '$ifdef DEBUG
  1418.     if FValidFATPath(szFile$) = 0 then
  1419.         BadArgErr 1, "OpenLogFile", szFile$+", "+STR$(fAppend%)
  1420.     end if
  1421. '$endif ''DEBUG
  1422.     IF FOpenLogFile(szFile$, fAppend%) = 0 THEN
  1423. '$ifdef DEBUG
  1424.         StfApiErr saeFail, "OpenLogFile", szFile$+", "+STR$(fAppend%)
  1425. '$endif ''DEBUG
  1426.         ERROR STFERR
  1427.     END IF
  1428. END SUB
  1429.  
  1430.  
  1431. '*************************************************************************
  1432. SUB CloseLogFile STATIC
  1433.     IF FCloseLogFile() = 0 THEN
  1434. '$ifdef DEBUG
  1435.         StfApiErr saeFail, "CloseLogFile", ""
  1436. '$endif ''DEBUG
  1437.         ERROR STFERR
  1438.     END IF
  1439. END SUB
  1440.  
  1441.  
  1442. '*************************************************************************
  1443. SUB WriteToLogFile (szStr$) STATIC
  1444.     IF FWriteToLogFile(szStr$, 1) = 0 THEN
  1445. '$ifdef DEBUG
  1446.         StfApiErr saeFail, "WriteToLogFile", szStr$
  1447. '$endif ''DEBUG
  1448.         ERROR STFERR
  1449.     END IF
  1450. END SUB
  1451.  
  1452.  
  1453. ''' -1 in either parameter will mean 'center in frame client area'
  1454. '*************************************************************************
  1455. SUB SetCopyGaugePosition (x%, y%) STATIC
  1456.     ProSetPos x%, y%
  1457. END SUB
  1458.  
  1459.  
  1460. '*************************************************************************
  1461. FUNCTION FindFileUsingFileOpen (szFile$) STATIC AS STRING
  1462.     szBuf$ = STRING$(512, 32)
  1463.  
  1464.     wRet% = WFindFileUsingFileOpen(szFile$, szBuf$, len(szBuf$))
  1465.     IF wRet% = 0 THEN
  1466.         FindFileUsingFileOpen = szBuf$
  1467.     ELSEIF wRet% = 1 THEN
  1468.         FindFileUsingFileOpen = ""
  1469.     ELSE
  1470. '$ifdef DEBUG
  1471.         StfApiErr saeFail, "FindFileUsingFileOpen", szFile$
  1472. '$endif ''DEBUG
  1473.         ERROR STFERR
  1474.     END IF
  1475.  
  1476.     szBuf$ = ""
  1477. END FUNCTION
  1478.  
  1479.  
  1480. '*************************************************************************
  1481. FUNCTION IsDirWritable (szDir$) STATIC AS INTEGER
  1482.     IsDirWritable = FIsDirWritable(szDir$)
  1483. END FUNCTION
  1484.  
  1485.  
  1486. '*************************************************************************
  1487. FUNCTION IsFileWritable (szFile$) STATIC AS INTEGER
  1488. '$ifdef DEBUG
  1489.     if FValidFATDir(szFile$) = 0 then
  1490.         BadArgErr 1, "IsFileWritable", szFile$
  1491.     end if
  1492. '$endif ''DEBUG
  1493.     IsFileWritable = FIsFileWritable(szFile$)
  1494. END FUNCTION
  1495.  
  1496.  
  1497. '*************************************************************************
  1498. FUNCTION GetNthFieldFromIniString (szLine$, iField%) STATIC AS STRING
  1499.     IF iField% < 1 THEN
  1500. '$ifdef DEBUG
  1501.         StfApiErr saeFail, "GetNthFieldFromIniString", szLine$+", "+STR$(iField%)
  1502. '$endif ''DEBUG
  1503.         ERROR STFERR
  1504.     END IF
  1505.     szStart$ = szLine$
  1506.     IF iField% <> 1 THEN
  1507.         FOR i% = 2 TO iField% STEP 1
  1508.             iNew% = INSTR(szStart$, ",")
  1509.             IF iNew% = 0 THEN
  1510.                 GetNthFieldFromIniString = ""
  1511.                 GOTO _GNFFIS_END
  1512.             END IF
  1513.             szStart$ = MID$(szStart$, (iNew% + 1))
  1514.         NEXT
  1515.     END IF
  1516.  
  1517.     iNew% = INSTR(szStart$, ",")
  1518.     IF iNew% <> 0 THEN
  1519.         szStart$ = MID$(szStart$, 1, (iNew% - 1))
  1520.     END IF
  1521.  
  1522.     GetNthFieldFromIniString = LTRIM$(RTRIM$(szStart$))
  1523.  
  1524. _GNFFIS_END:
  1525.  
  1526. END FUNCTION
  1527.  
  1528.  
  1529. '*************************************************************************
  1530. FUNCTION GetWindowsMajorVersion STATIC AS INTEGER
  1531.     GetWindowsMajorVersion = GetVersion() MOD 256
  1532. END FUNCTION
  1533.  
  1534.  
  1535. '*************************************************************************
  1536. FUNCTION GetWindowsMinorVersion STATIC AS INTEGER
  1537.     GetWindowsMinorVersion = GetVersion() / 256
  1538. END FUNCTION
  1539.  
  1540.  
  1541. '*************************************************************************
  1542. FUNCTION GetWindowsMode STATIC AS INTEGER
  1543.     GetWindowsMode = 0
  1544.     longTmp& = GetWinFlags()
  1545.     IF longTmp& AND WF_STANDARD THEN
  1546.         GetWindowsMode = 1
  1547.     ELSEIF longTmp& AND WF_ENHANCED THEN
  1548.         GetWindowsMode = 2
  1549.     END IF
  1550. END FUNCTION
  1551.  
  1552.  
  1553. '*************************************************************************
  1554. FUNCTION GetWindowsDir STATIC AS STRING
  1555.     szBuf$ = string$(256, 32)
  1556.     cbBuf% = GetWindowsDirectory(szBuf$, 256)
  1557.  
  1558.     IF cbBuf% = 0 THEN
  1559.         GetWindowsDir = ""
  1560. '$ifdef DEBUG
  1561.         StfApiErr saeFail, "GetWindowsDir", ""
  1562. '$endif ''DEBUG
  1563.         ERROR STFERR
  1564.     ELSE
  1565.         IF cbBuf% > 255 THEN
  1566.             res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  1567.             ERROR STFERR
  1568.         END IF
  1569.         szBuf$ = RTRIM$(szBuf$)
  1570.         IF MID$(szBuf$, 1, 1) = "\" THEN
  1571.             'szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  1572.             szBuf$ = MID$(GetWindowsSysDir, 1, 2) + szBuf$
  1573.         ELSEIF MID$(szBuf$, 2, 1) <> ":" THEN
  1574.             szBuf$ = MID$(GetWindowsSysDir, 1, 3) + szBuf$
  1575.         END IF
  1576.         IF MID$(szBuf$, LEN(szBuf$), 1) <> "\" THEN
  1577.             szBuf$ = szBuf$ + "\"
  1578.         END IF
  1579.         GetWindowsDir = szBuf$
  1580.     END IF
  1581.  
  1582.     szBuf$ = ""
  1583. END FUNCTION
  1584.  
  1585.  
  1586. '*************************************************************************
  1587. FUNCTION GetWindowsSysDir STATIC AS STRING
  1588.     szBuf$ = string$(256, 32)
  1589.     cbBuf% = GetSystemDirectory(szBuf$, 256)
  1590.  
  1591.     IF cbBuf% = 0 THEN
  1592. '$ifdef DEBUG
  1593.         StfApiErr saeFail, "GetWindowsSysDir", ""
  1594. '$endif ''DEBUG
  1595.         ERROR STFERR
  1596.     ELSE
  1597.         IF cbBuf% > 255 THEN
  1598.             res% = DoMsgBox("Buffer Overflow", "MS-Setup Error", MB_ICONHAND+MB_OK)
  1599.             ERROR STFERR
  1600.         END IF
  1601.         szBuf$ = RTRIM$(szBuf$)
  1602.         IF MID$(szBuf$, 1, 1) = "\" THEN
  1603.             szBuf$ = MID$(CURDIR$, 1, 2) + szBuf$
  1604.         ELSEIF MID$(szBuf$, 2, 1) <> ":" THEN
  1605.             szBuf$ = MID$(CURDIR$, 1, 3) + szBuf$
  1606.         END IF
  1607.         IF MID$(szBuf$, LEN(szBuf$), 1) <> "\" THEN
  1608.             szBuf$ = szBuf$ + "\"
  1609.         END IF
  1610.         GetWindowsSysDir = szBuf$
  1611.     END IF
  1612.  
  1613.     szBuf$ = ""
  1614. END FUNCTION
  1615.  
  1616.  
  1617. '*************************************************************************
  1618. FUNCTION IsWindowsShared STATIC AS INTEGER
  1619.     szWin$ = UCASE$(GetWindowsDir())
  1620.     szSys$ = UCASE$(GetWindowsSysDir())
  1621.  
  1622.     IF len(szWin$) = 0 THEN
  1623. '$ifdef DEBUG
  1624.         StfApiErr saeFail, "IsWindowsShared", ""
  1625. '$endif ''DEBUG
  1626.         ERROR STFERR
  1627.     END IF
  1628.  
  1629.     IF len(szSys$) <= len(szWin$) THEN
  1630.         IsWindowsShared = 1
  1631.     ELSE
  1632.         szSys$ = MID$(szSys$, 1, len(szWin$))
  1633.         IF szWin$ = szSys$ THEN
  1634.             IsWindowsShared = 0
  1635.         ELSE
  1636.             IsWindowsShared = 1
  1637.         END IF
  1638.     END IF
  1639. END FUNCTION
  1640.  
  1641.  
  1642. '*************************************************************************
  1643. FUNCTION GetScreenWidth STATIC AS INTEGER
  1644.     GetScreenWidth = GetSystemMetrics(SM_CXSCREEN)
  1645. END FUNCTION
  1646.  
  1647.  
  1648. '*************************************************************************
  1649. FUNCTION GetScreenHeight STATIC AS INTEGER
  1650.     GetScreenHeight = GetSystemMetrics(SM_CYSCREEN)
  1651. END FUNCTION
  1652.  
  1653.  
  1654. '*************************************************************************
  1655. SUB SetRestartDir (szDir$) STATIC
  1656. '$ifdef DEBUG
  1657.     if FValidFATDir(szDir$) = 0 then
  1658.         BadArgErr 1, "SetRestartDir", szDir$
  1659.     end if
  1660. '$endif ''DEBUG
  1661.     IF FSetRestartDir(szDir$) = 0 THEN
  1662. '$ifdef DEBUG
  1663.         StfApiErr saeFail, "SetRestartDir", szDir$
  1664. '$endif ''DEBUG
  1665.         ERROR STFERR
  1666.     END IF
  1667. END SUB
  1668.  
  1669.  
  1670. '*************************************************************************
  1671. FUNCTION RestartListEmpty STATIC AS INTEGER
  1672.     IF FRestartListEmpty() = 0 THEN
  1673.         RestartListEmpty = 0
  1674.     ELSE
  1675.         RestartListEmpty = 1
  1676.     END IF
  1677. END FUNCTION
  1678.  
  1679.  
  1680. '*************************************************************************
  1681. FUNCTION ExitExecRestart STATIC AS INTEGER
  1682.     ExitExecRestart = FExitExecRestart
  1683. END FUNCTION
  1684.  
  1685.  
  1686. '*************************************************************************
  1687. SUB PrependToPath (szSrc$, szDst$, szDir$, cmo%) STATIC
  1688.  
  1689. '$ifdef DEBUG
  1690.     if (FValidFATPath(szSrc$) = 0) AND (szSrc$ <> "") then
  1691.         n% = 1
  1692.     elseif FValidFATPath(szDst$) = 0 then
  1693.         n% = 2
  1694.     elseif FValidFATDir(szDir$) = 0 then
  1695.         n% = 3
  1696.     else
  1697.         n% = 0
  1698.     end if
  1699.     if n% > 0 then
  1700.         BadArgErr n%, "PrependToPath", szSrc$+", "+szDst$+", "+szDir$+", "+STR$(cmo%)
  1701.     end if
  1702. '$endif ''DEBUG
  1703.  
  1704.     IF FPrependToPath (szSrc$, szDst$, szDir$, cmo%) = 0 THEN
  1705. '$ifdef DEBUG
  1706.         StfApiErr saeFail, "PrependToPath", szSrc$+", "+szDst$+", "+szDir$+", "+STR$(cmo%)
  1707. '$endif ''DEBUG
  1708.         ERROR STFERR
  1709.     END IF
  1710. END SUB
  1711.  
  1712.  
  1713.  
  1714. '**************************************************************************
  1715. '***************************  Error Handlers  *****************************
  1716. '**************************************************************************
  1717.  
  1718.  
  1719. '$ifdef DEBUG
  1720. '**************************************************************************
  1721. SUB StfApiErr (nMsg%, szApi$, szArgs$) STATIC      ''DEBUG only
  1722.     select case nMsg%
  1723.         case saeFail
  1724.             lpText$ = "Failed"
  1725.         case saeInit
  1726.             lpText$ = "Already Initialized"
  1727.         case saeNYI
  1728.             lpText$ = "NYI"
  1729.         case else
  1730.             lpText$ = "Bad Arg "+LTRIM$(STR$(nMsg% - saeArg))
  1731.     end select
  1732.  
  1733.     lpText$ = lpText$ + ": "+ szApi$
  1734.     if szArgs$ <> "" then
  1735.         lpText$ = lpText + " (" + szArgs$ + ")"
  1736.     end if
  1737.     lpCaption$ = "MS-Setup Toolkit API Error"
  1738.     res% = DoMsgBox(lpText$, lpCaption$, MB_TASKMODAL+MB_ICONHAND+MB_OK)
  1739.     print lpText$
  1740.     lpText$ = ""
  1741.     lpCaption$ = ""
  1742. END SUB
  1743.  
  1744. '**************************************************************************
  1745. SUB BadArgErr (nArg%, szApi$, szArgs$) STATIC      ''DEBUG only
  1746.     StfApiErr nArg%+saeArg, szApi$, szArgs$
  1747.     ERROR STFERR
  1748. END SUB
  1749.  
  1750.  
  1751. '** REVIEW: Move this function into common lib (we'll need it there too)
  1752. '**************************************************************************
  1753. FUNCTION FValidInfSect (szSect$) STATIC AS INTEGER
  1754.     if (szSect$ = "") OR (INSTR(1,szSect$,"]") <> 0) then
  1755.         FValidInfSect = 0
  1756.     else
  1757.         FValidInfSect = 1
  1758.     end if
  1759. END FUNCTION
  1760.  
  1761.  
  1762. '** REVIEW: Move this function into common lib (we'll need it there too)
  1763. '**************************************************************************
  1764. FUNCTION FValidIniFile (szFile$) STATIC AS INTEGER
  1765.     if (FValidFATPath(szFile$) = 0) AND (UCASE$(szFile$) <> "WIN.INI") then
  1766.         FValidIniFile = 0
  1767.     else
  1768.         FValidIniFile = 1
  1769.     end if
  1770. END FUNCTION
  1771.  
  1772. '**************************************************************************
  1773. FUNCTION FValidDrive (szDrive$) STATIC AS INTEGER
  1774.  
  1775.     if szDrive$ = "" then
  1776.         FValidDrive = 0
  1777.     elseif INSTR(1,szDrive$,"\\") = 1 then   ' UNC path
  1778.         FValidDrive = 1
  1779.     elseif ASC(UCASE$(szDrive$)) - ASC("A") < 0 then
  1780.         FValidDrive = 0
  1781.     elseif ASC(UCASE$(szDrive$)) - ASC("A") > 25 then
  1782.         FValidDrive = 0
  1783.     elseif LEN(szDrive$) = 1 then
  1784.         FValidDrive = 1
  1785.     elseif INSTR(2,szDrive$,":\") = 2 then
  1786.         FValidDrive = 1
  1787.     elseif INSTR(1,szDrive$,":") = 2 then
  1788.         FValidDrive = 1
  1789.     else
  1790.         FValidDrive = 0
  1791.     end if
  1792. END FUNCTION
  1793.  
  1794. '$endif ''DEBUG
  1795.  
  1796.  
  1797. TRAP CleanupTrap From "MSSHLSTF.DLL"
  1798.  
  1799. End Trap
  1800.  
  1801. hSetup = InitSetup(COMMAND$)
  1802.  
  1803. ON ERROR GOTO QUIT
  1804.  
  1805.