home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / mslang / stepon / stepone.scp < prev    next >
Encoding:
Text File  |  1994-05-07  |  17.9 KB  |  470 lines
  1. '         ^^^^^^^^^^
  2. '              This program is configured in table part: Choose radio button Table
  3. '
  4. ' StepOne Installation
  5. ' ***************************************************************************************************
  6. ' Version 3.0
  7. ' Copyright K&R Software - Markus Kreisel & Renate Reinartz GbR, Cologne
  8. ' ***************************************************************************************************
  9. ' Hint:
  10. ' You're allowed to use this script or parts of changed or unchanged in your StepOne
  11. ' installation. 
  12. ' This script features professional installations for Windows and is full of hints and
  13. ' examples for your work with StepOne.
  14. ' If you change the table part (view: Table) of the script to your needs,
  15. ' you have a very good installation.
  16. ' One of the highlights of StepOne is the possibility to improve this installation script with 
  17. ' the powerful script language, so you have full control of the whole installation process.
  18. ' 
  19. ' If you start this script within StepIt, the StepOne FastCodeBuilder, you have to set the path
  20. ' of the to be copied files with menue FASTCODE - SETTINGS - COMMANDLINE, i.e. 'a:'.
  21. ' If the path is followed with a space and -1, you're abled to get the information that
  22. ' StepOne was started within StepIt.
  23. ' ***************************************************************************************************
  24.  
  25. ' ***************************************************************************************************
  26. ' The command line (View: FastCode - Settings - Commandline)which StepIt.exe or Install.exe (FirstStep) 
  27. ' passes through is saved in a variable.
  28. len "ln", "{_command}"
  29. If "{ln}" = "0"
  30.     Label "NoSourcePath"
  31.     pathbox "command", "Please choose the path of the to be installed files.", "Choose source path", "{_bootdrv}\", "", "", "0", "&OK"
  32. Else
  33.     Let "command", "{_command}"
  34. EndIf
  35. DirExist "res", "{command}"
  36. If "{res}" = "0"
  37.     goto "NoSourcePath"
  38. endif
  39.  
  40. split "sourcepath",    "{command}","32","1"
  41. split "StepIt",        "{command}","32","2"
  42. ' ***************************************************************************************************
  43.  
  44. Let "prgname",     "{prginfos[1;1]}"
  45. Let "mainprg",    "{prginfos[2;1]}"
  46.  
  47. ' Look if program runs
  48. gosub "CheckPrg","{mainprg}"
  49.                      
  50. ' Welcome the user and give hints of using the installation
  51. gosub "Welcome"
  52.  
  53. ' Checking VBX files if they are loaded or installed in the Windows directory
  54. gosub "CheckLibraries"
  55.  
  56. label "CopyLoop"
  57.  
  58. ' The user can choose the installation path
  59. gosub "GetTargetPath", "{prginfos[3;1]}"
  60.  
  61. ' Create the choosen path
  62. gosub "CreatePath"
  63. if "{path}" = "0"
  64.     ' If create operation fails or user choosed anything other
  65.     goto "CopyLoop"
  66. endif
  67.  
  68. ' Install files
  69. gosub "Copying"
  70.  
  71. if "{space}" = "-1"
  72.     ' Copying failed because of unsufficient disk space.
  73.     ' User has to choose another drive.
  74.     goto "CopyLoop"
  75. endif
  76.  
  77. ' Add icon(s) in Program Manager group
  78. gosub "ProgMan"
  79.  
  80. ' Add Extension(s)in Registration Database
  81. gosub "RegBase"
  82.  
  83. ' Edit program INI file(s)
  84. gosub "PrgINIs"
  85.  
  86. ' Inform user about end of installation.
  87. ' Name of program is passed through
  88. ' to give user the possibility to start
  89. ' program immediately.
  90. gosub "PrgEnd","{TargetPath}\{MainPrg}"
  91.  
  92. ' End of installation
  93. end
  94.  
  95. ' ***************************************************************************************************
  96. sub "Welcome"
  97.     IniRead "OldWallpaper", "", "Desktop", "Wallpaper"
  98.     IniRead "OldWallpaperPos", "", "Desktop", "TileWallPaper"
  99.     SetWallPaper "{SourcePath}\install2.bmp", "-1"
  100.     ' Temporary change. If user aborts installation the old one reappears after next
  101.     ' start of Windows. After correct end of installation the old wallpaper is set.
  102.     IniWrite "", "Desktop", "Wallpaper","{OldWallpaper}"
  103.     IniWrite "", "Desktop", "TileWallpaper","{OldWallpaperPos}"
  104.     ' Show main window
  105.     window "-1", "{prgname} Installation", "Welcome", "Welcome to {prgname} installation. Installation leads you through all needed parts.{_nl}{_nl}Choose Continue to start installation.{_nl}{_nl}Choose Ctrl and C together to abort installation.", "{SourcePath}\install1.bmp", "43;23;960;888", "3"
  106.      ' Plays the MIDI file, which is delivered with Windows.
  107.     ' canyon.mid has to be installed and a sound card has to be installed correctly.
  108.     mcisend "", "Open {_windowsdir}\canyon.mid type sequencer alias midisong"
  109.     if "{_err}" = "0"
  110.         mcisend "", "play midisong"
  111.         let "midiplaying", "-1"
  112.     endif
  113.      getuserinput "&Continue"
  114.  
  115. endsub
  116. ' ***************************************************************************************************
  117. sub "GetTargetPath"
  118.     parameter TargetPath    
  119.     window "-1", "", "Choose target path", "Please choose the path, where {prgname} should be installed to."
  120.     FileSearch "d", "{MainPrg}"
  121.     if "{d}" = ""
  122.         Let "Default", "{_windowsdir}\.."
  123.         Let "Default2", "{GetTargetPath:TargetPath}"
  124.     else
  125.         Splitpathname "d", "{d}", "1"
  126.         Splitpathname "Default",     "{d}", "1"
  127.         Splitpathname "Default2",     "{d}", "2"
  128.     endif
  129.     label "GetTargetPath1"
  130.     pathbox "TargetPath", "Please choose the path for {prgname}.", "", "{Default}\", "{Default2}", "", "0", "&OK;&Cancel"
  131.     if "{TargetPath}" = ""
  132.         askend
  133.         goto "GetTargetPath1"    
  134.     endif
  135. endsub
  136. ' ***************************************************************************************************
  137. ' New VBX and DLL files can be installed if they aren't loaded.
  138. sub "CheckLibraries"
  139.     ' If installation program is started within StepIt, check for libraries
  140.     ' isn't neccessary. StepIt uses 
  141.     ' cscombo.vbx, csdialog.vbx, csform.vbx, ss3d.vbx, ss3d2.vbx, qpro200.dll
  142.     ' Some installation programs would fail at this point.
  143.     ' If you don't use the libraries you should set the if selection as remark.
  144.     if "{StepIt}" <> "-1"
  145.         ' Gets number of elements
  146.         gettableelementcount "number_vbx", "vbxtable"
  147.         for "i", "1", "{number_vbx}"
  148.             fileexist "wfound", "{_windowsdir}\{vbxtable[1;i]}"
  149.              if "{wfound}" = "-1"
  150.                 gosub "CorrectVBX", "{i}"
  151.             endif
  152.         next
  153.     endif
  154. endsub
  155. ' *********************************************************************************************
  156. sub "CorrectVBX"
  157.     Parameter "iVbx"
  158.     Label "Active"
  159.     'Copies a common used file    from windows to system directory to force version control
  160.     'It isn't checked if any of the common used files are installed anywhere on the users
  161.     'system. So, nevertheless version conflicts may occure. But this procedure
  162.     'fixed the common mistake to install vbx and dll in the windows directory.
  163.     istaskactive "res", "{vbxtable[1;i]}"
  164.     if "{res}" = "-1"
  165.         msgbox "res", "'{vbxtable[1;i]}' is in use. Please exit the application which uses the file and try it again.{_NL}If you aren't sure which application uses the library please exit all applications except of the Program Manager and this program.", "", "&Retry;&Program End"
  166.         if "{res}" = "2"
  167.             gosub CloseAll
  168.             end
  169.         else
  170.             goto "Active"
  171.         endif
  172.     else
  173.         msgbox "correct", "'{vbxtable[1;i]}' was found in your Windows directory. {_nl}Libraries like '{vbxtable[1;i]}' should be installed in System directory.{_nl}Should installation program '{vbxtable[1;i]}' correct the problem? To be sure that '{prgname}' runs correctly you should choose 'Correct'!", "", "&Correct;&Ignore"
  174.          if "{correct}" = "1"
  175.             copy "{_windowsdir}\{vbxtable[1;i]}", "{_systemdir}\{vbxtable[1;i]}", "2" 
  176.             if "{_err}" = "0"
  177.                 del "{_windowsdir}\{vbxtable[1;i]}"
  178.             else
  179.                 outbox "'{vbxtable[1;i]}' couldn't be moved to System directory. If '{prgname}' doesn't run you should repeat the installation."
  180.             endif
  181.         endif
  182.       endif
  183. endsub
  184. ' ***************************************************************************************************
  185. sub "CheckPrg"
  186.     parameter "p"
  187.     label "CheckPrg2"
  188.     istaskactive "res","{CheckPrg:p}"
  189.     if "{res}" = "-1"
  190.         msgbox "ret", "{CheckPrg:p} is running. To install a newer version of it you have to close it first. Should installation program close {CheckPrg:p} for you?", "", "&Task close;&Retry;&Program End"
  191.         if "{ret}" = "1"
  192.             taskstop "{CheckPrg:p}"
  193.         endif
  194.         if "{ret}" = "3"
  195.             gosub CloseAll
  196.             End
  197.         endif
  198.         goto "CheckPrg2"
  199.     else
  200.         goto "CheckPrg1"
  201.     endif
  202. label "CheckPrg1"
  203. endsub
  204. ' ***************************************************************************************************
  205. sub "CreatePath"
  206.     direxist "res", "{TargetPath}"
  207.     if "{res}" = "0"
  208.         msgbox "res", "'{TargetPath}' doesn't exist.{_nl}Do you want to create path?", "", "&Create;Choose &another;&Program End"
  209.         if "{res}" = "3"
  210.             gosub CloseAll
  211.             end
  212.         endif
  213.         if "{res}" = "2"
  214.             let "path", "0"    
  215.             goto "CreatePath1"    
  216.         endif
  217.         mkdir "{TargetPath}"
  218.         if "{_err}" = "-1"
  219.             outbox "During creation of path '{TargetPath}' appears an error. Please choose another path."
  220.             let "path", "0"        
  221.         else
  222.             gosub "SubDirectories"
  223.         endif
  224.     else
  225.         gosub "SubDirectories"
  226.     endif
  227. label "CreatePath1"
  228. endsub
  229. ' ***************************************************************************************************
  230. sub "SubDirectories"
  231.     mkdir "{TargetPath}\samples"
  232.     if "{_err}" = "-1"
  233.         outbox "During creation of path '{TargetPath}\samples' occures an error. Please choose another path."
  234.         let "Path", "0"        
  235.     else
  236.         mkdir "{TargetPath}\redist"
  237.         if "{_err}" = "-1"
  238.             outbox "During creation of path '{TargetPath}\redist' occures an error. Please choose another path."
  239.             let "Path", "0"        
  240.         else
  241.             let "Path", "-1"
  242.         endif
  243.     endif
  244. endsub
  245. ' ***************************************************************************************************
  246. sub "Copying"
  247.  
  248.     if "{_windowsversion}" < "310"
  249.         'let "systab" , "systemtable30"
  250.         OutBox "The version of StepOne Pro we uploaded in CompuServe doesn't include the files for MS Windows 3.0. Please contact us for further information at 100116,2133."
  251.     else
  252.         let "systab" , "systemtable"
  253.     endif
  254.     let "systab" , "systemtable"
  255.  
  256.     splitpathname "todrv", "{TargetPath}", "5"
  257.     if "{midiplaying}" = "-1"
  258.         mcisend "", "pause midisong"
  259.     endif
  260.     getdiskfree "tempfree", "{_tempdir}"
  261.     if "{tempfree}" < "1000000"
  262.         msgbox "ret", "Installation needs about one megabyte temporary disk space in path '{_tempdir}'. Your system hasn't this space free. Free enough disk space and restart installation. Choose 'Ignore' to continue installation.", "", "&OK;&Ignore"
  263.         if "{ret}" = "1"
  264.             gosub CloseAll
  265.             end
  266.         endif
  267.     endif
  268.     ' StepOne calcs the total of all file lengths and substracts the sum of
  269.     ' the file lengths which will be overwritten. The minimum isn't 0
  270.     ' indeed it is the length of the longest file, which should be installed
  271.     ' if the installation is on the same drive as temp drive.
  272.     calcfiletable "targetbytes", "targettable", "{sourcepath}", "{targetpath}", "3"
  273.     msgbox "samplesflag", "Do you want to install the samples?", "", "&Install;&Skip"
  274.     if "{samplesflag}" ="1"
  275.         ' While the samples are packed into 3 packed files and every file needs
  276.         ' at least 2K in the target we assume aprox. 1MB. 
  277.         compute "targetbytes", "{targetbytes}" + "1000000"
  278.     endif
  279.     calcfiletable "systembytes", "{systab}", "{sourcepath}", "{_systemdir}", "3"
  280.     ' Checks if two given paths have the same drive name
  281.     if "{_systemdir}" := "{targetpath}"
  282.         compute "tofreebytes","{tofreebytes}" + "{targetbytes}"
  283.     else
  284.         getdiskfree "systemfreebytes", "{_systemdir}"    
  285.         if "{systembytes}" > "{systemfreebytes}"
  286.             outbox "Drive{_nl}'{todrv}'{_nl}hasn't enough disk space free. {systembytes} Bytes free disk space required.{_nl}Please free enough disk space and retry installation."
  287.             gosub CloseAll
  288.             end
  289.         endif
  290.     endif
  291.  
  292.     getdiskfree "tofreebytes", "{targetpath}"
  293.     if "{targetbytes}" > "{tofreebytes}"
  294.         outbox "Drive{_nl}'{todrv}'{_nl}hasn't enough disk space free. Please choose another drive."
  295.         let "space", "-1"
  296.         goto "copy_end"
  297.     else
  298.         window "-1", "", "Copying program...", "Copying has up to three parts. Please be patient..."
  299.         copyfiletable "targettable", "{sourcepath}", "{targetpath}", "1", "0"
  300.         if "{_err}" = "-1"
  301.             msgbox "res", "During copying an error occures. Do you want to continue with installation?", "", "&OK;&Program end"
  302.             if "{res}" = "2"
  303.                 gosub CloseAll
  304.                 end
  305.             endif
  306.         endif
  307.         if "{StepIt}" <> "-1"
  308.             if "{samplesflag}" = "1"
  309.                 window "-1", "", "Copying samples..."
  310.                 copyfiletable "sampletable", "{sourcepath}\samples", "{targetpath}\samples", "3", "0"
  311.                 if "{_err}" = "-1"
  312.                     msgbox "res", "During copying an error occures. Do you want to continue with installation?", "", "&OK;&Program end"
  313.                     if "{res}" = "2"
  314.                         gosub CloseAll
  315.                         end
  316.                     endif
  317.                 endif
  318.             endif
  319.             window "-1", "", "Copying system files..."
  320.             copyfiletable "{systab}", "{sourcepath}", "{_systemdir}", "1", "0"
  321.             'Make sure, dialog will be closed
  322.             copyfiletable
  323.             if "{_err}" = "-1"
  324.                 msgbox "res", "During copying an error occures. Do you want to continue with installation?", "", "&OK;&Program end"
  325.                 if "{res}" = "2"
  326.                     gosub CloseAll
  327.                     end
  328.                 endif
  329.             endif
  330.         endif
  331.         let "space", "0"    
  332.     endif
  333.     if "{midiplaying}" = "-1"
  334.         mcisend "", "play midisong"
  335.     endif    
  336.     if "{samplesflag}" = "1"
  337.         window "-1", "", "Building examples", "StepOne is building the examples.{_NL}{_NL}Part one of three.{_NL}{_NL}Please be patient."
  338.         gosub "SplitFile", "{targetpath}\samples\example1.txt", "{targetpath}\samples"
  339.         del "{targetpath}\samples\example1.txt"
  340.         window "-1", "", "", "StepOne is building the examples.{_NL}{_NL}Part two of three.{_NL}{_NL}Please be patient."
  341.         gosub "SplitFile", "{targetpath}\samples\example2.txt", "{targetpath}\samples"
  342.         del "{targetpath}\samples\example2.txt"
  343.         window "-1", "", "", "StepOne is building the examples.{_NL}{_NL}Last part.{_NL}{_NL}Please be patient."
  344.         gosub "SplitFile", "{targetpath}\samples\example3.txt", "{targetpath}\samples"
  345.         del "{targetpath}\samples\example3.txt"
  346.     endif
  347.     label "copy_end"
  348. endsub
  349.  
  350. sub "SplitFile"
  351.     Parameter "fname", "targetpath"
  352.     textread "s", "{SplitFile:fname}", "0"
  353.     for "i", "1", "1024"
  354.         compute "j","{i}" * "2"
  355.         split "p", "{s}", "º", "{j}"
  356.             if "{p}" = ""
  357.             exitfor
  358.         endif
  359.         compute "j","{j}" + "1"
  360.         split "p1", "{s}", "º", "{j}"
  361.         Textwrite "{SplitFile:targetpath}\{p}", "{p1}", "0", "-1"
  362.     next 
  363. endsub
  364.  
  365. ' ***************************************************************************************************
  366. sub "ProgMan"
  367.     ' Get number of elements
  368.     gettablelinecount "number_prg", "prgmantable"
  369.     if "{number_prg}" > "0"
  370.         window "-1", "", "Install icons...", "Please be patient..."
  371.         let "i", "1"
  372.         let "mark",""
  373.         label "ProgMan1"    
  374.         if "{mark}" <>  "{prgmantable[i;1]}"
  375.             let "mark", "{prgmantable[i;1]}"
  376.             ddeexecute "ProgMan", "ProgMan", "", "[creategroup({prgmantable[i;1]})]"
  377.             if "{_err}" = "-1"
  378.                 outbox "Group '{prgmantable[i;1]}' couldn't be created in Program Manager."
  379.             endif
  380.         endif
  381.         gosub "icon","{prgmantable[i;1]}","{targetpath}\{prgmantable[i;2]}","{prgmantable[i;3]}"
  382.         compute "i", "{i}" + "1"
  383.         if "{i}" <= "{number_prg}"
  384.             goto "ProgMan1"
  385.         endif
  386.     endif
  387. endsub
  388. ' ***************************************************************************************************
  389. sub "Icon"
  390. parameter "group","name","text"
  391.     ' Sets the group window so that 'replaceitem' can find the group window
  392.     ddeexecute "ProgMan", "ProgMan", "", "[showgroup({icon:group},1)]"
  393.     ddeexecute "ProgMan", "ProgMan", "", "[showgroup({icon:group},2)]"
  394.     ' Deletes icon and saves position...
  395.     ddeexecute "ProgMan", "ProgMan", "", "[replaceitem({icon:text})]"
  396.     ' ... Additem can use it
  397.     ddeexecute "ProgMan", "ProgMan", "", "[additem({icon:name},{icon:text},,)]"
  398.     if "{_err}" = "-1"
  399.         outbox "Icon of '{prgname}' couldn't be created in Program Manager."
  400.     endif
  401.     ' Brings group window on top, so user can find it immediately.
  402.     ddeexecute "ProgMan", "ProgMan", "", "[showgroup({icon:group},1)]"
  403. endsub
  404. ' ***************************************************************************************************
  405. sub "RegBase"
  406.     ' Gets number of elements
  407.     gettablelinecount "number_reg", "regbasetable"
  408.     if "{number_reg}" > "0"
  409.         let "i", "1"
  410.         label "RegBase1"    
  411.         RegBaseWrite "{regbasetable[i;2]}", "{regbasetable[i;3]}"
  412.         RegBaseWrite "{regbasetable[i;3]}", "{regbasetable[i;4]}"
  413.         RegBaseWrite "{regbasetable[i;3]}\shell\open\command", "{targetpath}\{regbasetable[i;5]}"
  414.         if "{regbasetable[i;1]}" <> "CMD"
  415.             RegBaseWrite "{regbasetable[i;3]}\shell\open\ddeexec", "{regbasetable[i;6]}"
  416.             RegBaseWrite "{regbasetable[i;3]}\shell\open\ddeexec\application", "{regbasetable[i;7]}"
  417.             RegBaseWrite "{regbasetable[i;3]}\shell\open\ddeexec\topic", "{regbasetable[i;8]}"
  418.         endif
  419.         compute "i", "{i}" + "1"
  420.         if "{i}" <= "{number_reg}"
  421.             goto "RegBase1"
  422.         endif
  423.     endif    
  424. endsub
  425. ' ***************************************************************************************************
  426. sub "PrgINIs"
  427.     gettablelinecount "number_ini", "initable"
  428.     if "{anzahl_ini}" > "0"
  429.         let "i","1"
  430.         label "PrgINIs1"
  431.         INIWrite "{initable[i;1]}","{initable[i;2]}","{initable[i;3]}","{initable[i;4]}"
  432.         compute "i", "{i}" + "1"
  433.         if "{i}" <= "{number_ini}"
  434.             goto "PrgINIs1"
  435.         endif
  436.     endif
  437. endsub
  438. ' ***************************************************************************************************
  439. sub "PrgEnd"
  440. parameter "Name"
  441.     textread "txt","{targetpath}\readme.txt"
  442.     window "-1", "", "Ready!", "We got it. Installation of '{prgname}' is ready. You can start '{prgname}' from Program Manager.{_nl}{_nl}{txt}"
  443.     getuserinput "&OK"
  444.     msgbox "res", "Do you want to start '{prgname}' now?", "", "&Start;&Program end"
  445.     if "{res}" = "1"
  446.         taskstart "{PrgEnd:name}" 
  447.     endif
  448.     ' What someone opens, someone has to close.
  449.     gosub CloseAll
  450. endsub
  451. ' ***************************************************************************************************
  452. sub "_ctrlc"
  453.     resstringread "title","","26"
  454.     resstringread "buttons","","1"
  455.     msgbox "end", "{title}", "", "{buttons}"    
  456.     if "{end}" = "1"
  457.         ' What someone opens, someone has to close.
  458.         gosub CloseAll
  459.         end
  460.     endif
  461. endsub
  462. ' ***************************************************************************************************
  463. sub "CloseAll"
  464.     if "{midiplaying}" = "-1"
  465.         mcisend "", "close midisong"
  466.     endif
  467.     SetWallPaper "{OldWallPaper}","{OldWallpaperPos}"
  468. endsub
  469.  
  470.