home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac_os2 / fmcrd151.zip / DEUTSCH.CMD < prev    next >
OS/2 REXX Batch file  |  1994-08-02  |  4KB  |  134 lines
  1. /********************************************************************/
  2. /*                                                                  */
  3. /* Kartenspiele für OS/2                                            */
  4. /*                                                                  */
  5. /* Deutsche Installation, Version 1.51                              */
  6. /*                                                                  */
  7. /* Copyright 1994 (C) by Felix Maschek, Hamburg                     */
  8. /*                                                                  */
  9. /* EMail: CompuServe 100120,1370                                    */
  10. /*                   OS2SHARE                                       */
  11. /*                                                                  */
  12. /********************************************************************/
  13.  
  14. '@Echo Off'
  15.  
  16. /* REXXUTIL laden */
  17.  
  18. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  19. Call SysLoadFuncs
  20.  
  21.  
  22. /* Initialisieren */
  23.  
  24. Signal On Failure Name FAILURE
  25. Signal On Halt Name HALT
  26. Signal On Syntax Name SYNTAX
  27.  
  28. Call SysCls
  29. Say 'Installation von CARDS 1.51...'
  30. Say ''
  31.  
  32.  
  33. /* Nachprüfen, ob bestimmte Bestandteile vorhanden sind. */
  34.  
  35. Result = SysFileTree( "CARDS.EXE", 'Files', 'F' )
  36. If Files.0 = 0 Then
  37.   Do
  38.   Say 'FEHLER: CARDS.EXE nicht gefunden!'
  39.   Signal DONE
  40.   End
  41.  
  42. Result = SysFileTree( "PICTURES.DLL", 'Files', 'F' )
  43. If Files.0 = 0 Then
  44.   Do
  45.   Say 'FEHLER: PICTURES.DLL nicht gefunden!'
  46.   Signal DONE
  47.   End
  48.  
  49. Result = SysFileTree( "CARDSGER.HLP", 'Files', 'F' )
  50. If Files.0 = 0 Then
  51.   Do
  52.   Say 'FEHLER: CARDSGER.HLP nicht gefunden!'
  53.   Signal DONE
  54.   End
  55.  
  56. Result = SysFileTree( "CARDSGER.DLL", 'Files', 'F' )
  57. If Files.0 = 0 Then
  58.   Do
  59.   Say 'FEHLER: CARDSGER.DLL nicht gefunden!'
  60.   Signal DONE
  61.   End
  62.  
  63. /* Zielverzeichnis erfragen. */
  64.  
  65. Say 'Bitte geben Sie den vollen Verzeichnisnamen ein, wohin'
  66. Say '  CARDS installiert werden soll (Standard: C:\CARDS): '
  67. Pull Directory
  68. If Directory = "" Then Directory = 'C:\CARDS'
  69.  
  70.  
  71. /* Zielverzeichnis, falls nötig, anlegen. */
  72.  
  73. Result = SysFileTree( Directory, 'Dirs', 'D' )
  74. If Dirs.0 = 0 Then
  75.   Do
  76.   Result = SysMkDir( Directory )
  77.   if Result == 0 Then
  78.     Do
  79.     End
  80.   Else
  81.     Do
  82.     Say 'FEHLER: Kann das Zielverzeichnis nicht anlegen.'
  83.     Signal DONE
  84.     End
  85.   End
  86. Say '';
  87.  
  88.  
  89. Folder = '<WP_DESKTOP>'
  90.  
  91. /* Installation durchführen. */
  92.  
  93. Say 'Kopiere CARDS nach ' Directory '...'
  94. Copy "CARDS.EXE" Directory"\CARDS.EXE" '1>NUL'
  95. Copy "PICTURES.DLL" Directory"\PICTURES.DLL" '1>NUL'
  96. Copy "CARDSGER.HLP" Directory"\CARDSGER.HLP" '1>NUL'
  97. Copy "CARDSGER.DLL" Directory"\CARDSGER.DLL" '1>NUL'
  98. Copy "CARDSENG.HLP" Directory"\CARDSENG.HLP" '1>NUL'
  99. Copy "CARDSENG.DLL" Directory"\CARDSENG.DLL" '1>NUL'
  100. Copy "CARDSNOR.HLP" Directory"\CARDSNOR.HLP" '1>NUL'
  101. Copy "CARDSNOR.DLL" Directory"\CARDSNOR.DLL" '1>NUL'
  102. Copy "CARDSSWE.HLP" Directory"\CARDSSWE.HLP" '1>NUL'
  103. Copy "CARDSSWE.DLL" Directory"\CARDSSWE.DLL" '1>NUL'
  104. Copy "CARDSFRA.HLP" Directory"\CARDSFRA.HLP" '1>NUL'
  105. Copy "CARDSFRA.DLL" Directory"\CARDSFRA.DLL" '1>NUL'
  106.  
  107. Say 'Erzeuge Programmobjekt...'
  108. Type = 'WPProgram'
  109. Title = 'Kartenspiele'
  110. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;PARAMETERS=CARDSGER;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  111. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  112.  
  113. If Result = 1 Then
  114.   Say 'Objekt erzeugt!  Fertig.'
  115. Else             
  116.   Say 'FEHLER: Nicht erzeugt!'
  117.  
  118. Signal DONE
  119.  
  120. FAILURE:
  121. Say 'Fehler in der REXX-Ausführung.'
  122. Signal DONE
  123.  
  124. HALT:
  125. Say 'REXX-Halt.'
  126. Signal DONE
  127.  
  128. SYNTAX:
  129. Say 'REXX-Syntaxfehler.'
  130. Signal DONE
  131.  
  132. DONE:
  133. Exit
  134.