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