home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / kim21.zip / ICON.CMD < prev    next >
OS/2 REXX Batch file  |  1995-07-01  |  4KB  |  87 lines
  1. /*  KIM - Installation   */
  2. CALL Rxfuncadd 'sysloadfuncs','rexxutil','sysloadfuncs'
  3. CALL sysloadfuncs
  4. CALL SysCls
  5. SAY "***************************************************************************"
  6. SAY "*             KIM 2.1 R2.00  OS/2 WP-Installations-Progamm                *"
  7. SAY "*                                                                         *"
  8. SAY "*             ICONS + ORDNER WERDEN ANGELEGT !                            *"
  9. SAY "*                                                                         *"
  10. SAY "***************************************************************************"
  11.  
  12. /* Ordner erstellen */
  13.  
  14. titel = "KIM 2.1 Datenbanksystem"
  15. klasse = 'WPFolder'
  16. ort = '<WP_DESKTOP>'
  17. eigenschaften='OBJECTID=<KIM_21>;OPEN=default;NOVISIBLE=no;CONCURRENTVIEW=yes'1
  18. ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften,"u")
  19. IF ergebnis <> 1 THEN DO
  20.     SAY ""
  21.     SAY "***************************************************************************"
  22.     SAY "*  ABRUCH           KIM/2  1.01 OS/2 WP-Installations-Programm            *"
  23.     SAY "***************************************************************************"
  24.     EXIT
  25. END
  26.  
  27. ProgLW=""
  28. ProgPATH="c:\kim21\"
  29. ProgEXE="kim.exe"
  30. PROG="edit.kim"
  31. ProgICON=ProgLW''ProgPATH"kim.ico"
  32.  
  33. filespec=ProgLW''ProgPATH''ProgEXE
  34. call SysFileTree filespec, 'file', 'F'
  35.   IF file.0 = 0 THEN DO
  36.     SAY file.0" ... "
  37.     SAY filespec" nicht gefunden."
  38.     SAY ""
  39.     SAY "***************************************************************************"
  40.     SAY "*  ABRUCH           KIM/2  1.01 OS/2 WP-Installations-Programm            *"
  41.     SAY "***************************************************************************"
  42.     EXIT
  43.   END
  44.  
  45.    titel = "KIM-Editor"
  46.    klasse = 'WPProgram'
  47.    ort = '<KIM_21>'
  48.    eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''ProgPATH';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1
  49.    ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)
  50.  
  51.    ProgICON=ProgLW''ProgPATH"kmask.ico"
  52.    titel = "KMASK"
  53.    PROG  = "KMASK.KIM"
  54.    eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''ProgPATH';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=no'0
  55.    ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)
  56.  
  57.  
  58.    ProgPATHDEMO="c:\kim21\demo\"
  59.    titel = "Produkt"
  60.    klasse = 'WPProgram'
  61.    ort = '<KIM_21>'
  62.    start ="c:\kim21\demo\"
  63.    ProgICON=ProgLW''ProgPATHDEMO"produkt.ico"
  64.    PROG  = "PRODUKT.KIM"
  65.    eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1
  66.    ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)
  67.  
  68.  
  69.  
  70.    ProgPATHDEMO="c:\kim21\demo\"
  71.    titel = "MEMO"
  72.    klasse = 'WPProgram'
  73.    ort = '<KIM_21>'
  74.    start ="c:\kim21\demo\"
  75.    ProgICON=ProgLW''ProgPATHDEMO"memo.ico"
  76.    PROG  = "MEMO.KIM"
  77.    eigenschaften='PROGTYPE=PM;EXENAME='filespec';PARAMETERS='PROG';STARTUPDIR='ProgLW''start';ICONFILE='ProgICON';OPEN=no;NOVISIBLE=no;CONCURRENTVIEW=yes'1
  78.    ergebnis = SysCreateObject(klasse, titel, ort, eigenschaften)
  79.  
  80. CALL SysCls
  81. SAY "***************************************************************************"
  82. SAY "*             KIM 2.1 R2.00  OS/2 WP-Installations-Progamm                *"
  83. SAY "*                                                                         *"
  84. SAY "*             KIM WURDE ORDNUNGSGEMÄß INSTALLIERT !                       *"
  85. SAY "*                                                                         *"
  86. SAY "***************************************************************************"
  87.