home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 5 Edit / 05-Edit.zip / fwe225.zip / FweReg.Fnc < prev    next >
Text File  |  2000-01-06  |  2KB  |  49 lines
  1. /**/
  2.  
  3.     path = word( arg( 1 ), 1 );
  4.  
  5.     call    RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  6.     call    SysLoadFuncs
  7.  
  8.     /* âtâHâïâ_ü[é╠ì∞ɼ */
  9.     Class       = "WPFolder"
  10.     Title       = "Future Wave"
  11.     Location    = "<WP_DESKTOP>"
  12.     Objmode     = "Update"
  13.     SetupString = "NOPRINT=YES;"
  14.     SetupString = SetupString || "OBJECTID=<WP_FutureWave>;"
  15.  
  16.     ret = SysCreateObject( Class, Title, Location, SetupString, Objmode );
  17.  
  18.     /* âIâuâWâFâNâgé╠ì∞ɼ */
  19.     if ret = 1 then do
  20.        /* FWE é╠ì∞ɼ */
  21.        Class       = "WPProgram"
  22.        Title       = "Future Wave Editor"
  23.        Location    = "<WP_FutureWave>"
  24.        Objmode     = "Update"
  25. /*     Objmode     = "Replace"*/
  26.        SetupString = "NOPRINT=YES;"
  27.        SetupString = SetupString || "OBJECTID=<WP_FutureWaveEditor>;"
  28.        SetupString = SetupString || "EXENAME="path"Fwe.EXE;"
  29.  
  30.        ret = SysCreateObject( Class, Title, Location, SetupString, Objmode );
  31.  
  32.  
  33.        /* ô▒ôⁿü^ìφÅ£âvâìâOâëâÇé╠ì∞ɼ */
  34.        Class       = "WPProgram"
  35.        Title       = "Future Wave Editor ìφÅ£"
  36.        Location    = "<WP_FutureWave>"
  37.        Objmode     = "Update"
  38. /*     Objmode     = "Replace"*/
  39.        SetupString = "NOPRINT=YES;"
  40.        SetupString = SetupString || "OBJECTID=<WP_FutureWaveEditor_Install>;"
  41.        SetupString = SetupString || "EXENAME="path"FweInst.EXE;"
  42.  
  43.        ret = SysCreateObject( Class, Title, Location, SetupString, Objmode );
  44.     end
  45.  
  46.     call    SysDropFuncs
  47.  
  48.     exit
  49.