home *** CD-ROM | disk | FTP | other *** search
/ Thinkpad Essentials 1997 / cd1may97.iso / SETUPOS2.CMD < prev    next >
OS/2 REXX Batch file  |  1997-03-14  |  2KB  |  50 lines

  1. /* Code                                                                       */
  2.  
  3. /* The RexxUtil function, SysLoadFuncs, will automatically load all RexxUtil  */
  4. /* functions.                                                                 */
  5.  
  6. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  7. call SysLoadFuncs
  8.  
  9. 'Setup.Exe'
  10. /* Get the programs to create */
  11. rxCount = 0
  12. rxFile ='c:\tpessen.dat'
  13. rxLine = LINEIN( rxFile )
  14. do while rxLine <> ''
  15.    parse var rxLine with rxTitle '|' rxExe '|' rxPath '|' rxParams '|' rxExtra
  16.    rxCount = rxCount + 1
  17.    rxPgm.rxCount.Title = rxTitle
  18.    rxPgm.rxCount.Exe = rxExe
  19.    rxPgm.rxCount.Path = rxPath
  20.    rxPgm.rxCount.Params = rxParams
  21.    rxPgm.rxCount.Extra = rxExtra    
  22.    rxLine = LINEIN( rxFile )
  23. end /* do */
  24.  
  25. /* Create a folder object, and then create a program object in that folder.   */
  26.  
  27. if SysDestroyObject("<TPE_FOLDER>") Then
  28.     Say "Myfolder object destroyed."
  29.  
  30. If SysCreateObject("WPFolder", "ThinkPad Essentials", "<WP_DESKTOP>", "OBJECTID=<TPE_FOLDER>") Then
  31. Do rxIndex=1 to rxCount
  32.    classname   = 'WPProgram'
  33.    rxTitle     = rxPgm.rxIndex.Title
  34.    Location    = '<TPE_FOLDER>'
  35.    Setup       = 'EXENAME='rxPgm.rxIndex.Exe';STARTUPDIR='rxPgm.rxIndex.Path';PARAMETERS='rxPgm.rxIndex.Params';'rxPgm.rxIndex.Extra
  36.    rxRC = SysCreateObject(classname,rxTitle,Location,Setup)
  37.    If rxRC <> 1 Then
  38.    Do
  39.       Say 'Could not create program' rxTitle rxRC
  40.       if SysDestroyObject("<TPE_FOLDER>") Then
  41.          Say "ThinkPad Essentials object destroyed."
  42.    End
  43. End
  44. Else
  45. Do
  46.    Say 'Could not create folder "ThinkPad Essentials"'
  47.    if SysDestroyObject("<TPE_FOLDER>") Then
  48.       Say "Myfolder object destroyed."
  49. End
  50.