home *** CD-ROM | disk | FTP | other *** search
/ PC Online 1999 April / PCO0499.ISO / filesbbs / os2 / fwe200.arj / FWE200.ZIP / FweReg.Fnc < prev    next >
Encoding:
Text File  |  1999-01-22  |  1.3 KB  |  43 lines
  1. /**/
  2.  
  3.     path = word( arg( 1 ), 1 );
  4.  
  5.     call    RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6.     call    SysLoadFuncs
  7.  
  8.     Class       = "WPFolder"
  9.     Title       = "Future Wave"
  10.     Location    = "<WP_DESKTOP>"
  11.     Objmode     = "Update"
  12.     SetupString = "NOPRINT=YES;"
  13.     SetupString = SetupString || "OBJECTID=<WP_FutureWave>;"
  14.  
  15.     ret = SysCreateObject( Class, Title, Location, SetupString, Objmode );
  16.  
  17.     if ret = 1 then do
  18.        Class       = "WPProgram"
  19.        Title       = "Future Wave Editor"
  20.        Location    = "<WP_FutureWave>"
  21.        Objmode     = "Update"
  22.        SetupString = "NOPRINT=YES;"
  23.        SetupString = SetupString || "OBJECTID=<WP_FutureWaveEditor>;"
  24.        SetupString = SetupString || "EXENAME="path"Fwe.EXE;"
  25.  
  26.        ret = SysCreateObject( Class, Title, Location, SetupString, Objmode );
  27.  
  28.  
  29.        Class       = "WPProgram"
  30.        Title       = "Uninstall Future Wave Editor"
  31.        Location    = "<WP_FutureWave>"
  32.        Objmode     = "Update"
  33.        SetupString = "NOPRINT=YES;"
  34.        SetupString = SetupString || "OBJECTID=<WP_FutureWaveEditor_Install>;"
  35.        SetupString = SetupString || "EXENAME="path"FweInst.EXE;"
  36.  
  37.        ret = SysCreateObject( Class, Title, Location, SetupString, Objmode );
  38.     end
  39.  
  40.     call    SysDropFuncs
  41.  
  42.     exit
  43.