home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / cfginfo7.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1998-09-15  |  2KB  |  72 lines
  1. /* Install of Configinfo */
  2. call RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
  3. call SysLoadFuncs
  4.  
  5. CALL SysCls
  6. say 'Rexx Install'
  7. say
  8. say
  9. say
  10.  
  11.         /* Ask Directory */
  12.  
  13.         say 'Target directory::'
  14.         say 'e.g.: C:\CNFGINFO'
  15.         say 
  16.         PARSE PULL InstDir
  17.         InstDir = STRIP(InstDir, 'T', '\')
  18.         
  19.         /* Create Directory */
  20.         say 'Create directorys'
  21.         if InstallDir <> "." then
  22.         DO
  23.                 call SysFileTree installdir, "SearchDir", "D"
  24.                 if SearchDir.0 = 0 then do
  25.                         rc = SysMkDir(InstDir)
  26.                         if rc <> 0 then do
  27.                                 say "Error: Cannot create directory!" InstDir
  28.                                 exit
  29.                         end 
  30.                 end
  31.         end
  32.  
  33.  
  34.         /* Copy Files */
  35.         say 'copy data'        
  36.  
  37.  
  38.         Befehl = '@Copy CNFGINFO.exe 'InstDir'\CNFGINFO.exe'
  39.         Befehl
  40.         Befehl = '@Copy CNFGINFO.INF 'InstDir'\CNFGINFO.INF'
  41.         Befehl
  42.         Befehl = '@Copy OS2CFG16.DAT 'InstDir'\OS2CFG16.DAT'
  43.         Befehl
  44.         Befehl = '@Copy CSORT.EXE 'InstDir'\CSORT.EXE'
  45.         Befehl
  46.         Befehl = '@Copy readme.eng 'InstDir'\readme.eng'
  47.         Befehl
  48.         Befehl = '@Copy readme.ger 'InstDir'\readme.ger'
  49.         Befehl
  50.         
  51.  
  52.  
  53. MakeIcon:
  54. classname='WPFolder'
  55. title='ConfigInfo'
  56. location='<WP_DESKTOP>'
  57. setup='OBJECTID=<CNFGINFO_FOLDER>;update\'
  58. rc=SysCreateObject(classname, title, location ,setup,'U')
  59.  
  60. classname = 'WPProgram'
  61. title     = 'INFORMATION'
  62. location  = '<CNFGINFO_FOLDER>'
  63. INFNAME   = InstDir || '\CNFGINFO.INF' 
  64. WorkDir   = InstDir
  65. setup     = 'OBJECTID=<CONFIGINFOINF>;EXENAME=VIEW.EXE;PARAMETERS='INFNAME';STARTUPDIR='Workdir
  66. rc=SysCreateObject(classname, title, location ,setup,'U')
  67.  
  68.  
  69.         /* Create Folder and Objects */
  70.         rc =SysCreateObject("WPFolder", "ConfigInfo", "<WP_DESKTOP>", "OBJECTID=<CNFGINFOOrdner>;ALWAYSSORT=NO", "Update" )  
  71.         rc =SysCreateObject("WPProgram", "ConfigInfo", "<CNFGINFOOrdner>", "EXENAME=" || InstDir ||"\CNFGINFO.exe; OBJECTID=<ConfigInfoExe>; STARTUPDIR=" || InstDir, "Update" )          
  72.