home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac_os2 / fmcrd151.zip / FRANCAIS.CMD < prev    next >
OS/2 REXX Batch file  |  1994-08-02  |  4KB  |  135 lines
  1. /********************************************************************/
  2. /*                                                                  */
  3. /* Reussites pour OS/2                                              */
  4. /*                                                                  */
  5. /* Installation en français, version 1.51                           */
  6. /*                                                                  */
  7. /* Copyright 1994 (C) par Felix Maschek, Hamburg                    */
  8. /*                                                                  */
  9. /* EMail: CompuServe 100120,1370                                    */
  10. /*                   OS2SHARE                                       */
  11. /*                                                                  */
  12. /********************************************************************/
  13.  
  14. '@Echo Off'
  15.  
  16. /* chargement de REXXUTIL */
  17.  
  18. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  19. Call SysLoadFuncs
  20.  
  21.  
  22. /* Initialisations */
  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 de Réussites 1.51...'
  30. Say ''
  31.  
  32.  
  33. /* vérifications... */
  34.  
  35. Result = SysFileTree( "CARDS.EXE", 'Files', 'F' )
  36. If Files.0 = 0 Then
  37.   Do
  38.   Say 'Erreur : CARDS.EXE introuvable !'
  39.   Signal DONE
  40.   End
  41.  
  42. Result = SysFileTree( "PICTURES.DLL", 'Files', 'F' )
  43. If Files.0 = 0 Then
  44.   Do
  45.   Say 'Erreur : PICTURES.DLL introuvable !'
  46.   Signal DONE
  47.   End
  48.  
  49. Result = SysFileTree( "CARDSFRA.HLP", 'Files', 'F' )
  50. If Files.0 = 0 Then
  51.   Do
  52.   Say 'Erreur : CARDSFRA.HLP introuvable !'
  53.   Signal DONE
  54.   End
  55.  
  56. Result = SysFileTree( "CARDSFRA.DLL", 'Files', 'F' )
  57. If Files.0 = 0 Then
  58.   Do
  59.   Say 'Erreur : CARDSFRA.DLL introuvable !'
  60.   Signal DONE
  61.   End
  62.  
  63. /* demande du répertoire destination à l'utilisateur */
  64.  
  65. Say 'Veuillez entrer le nom complet du répertoire où installer Réussites'
  66. Say '  Par défaut : C:\REUSSITE : '
  67. Pull Directory
  68. If Directory = "" Then Directory = 'C:\REUSSITE'
  69.  
  70.  
  71. /* create target-path. */
  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 'Erreur : Impossible de créer le répertoire destination'
  83.     Signal DONE
  84.     End
  85.   End
  86. Say '';
  87.  
  88. /* Création de l'objet sur le bureau */
  89.  
  90. Folder = '<WP_DESKTOP>'
  91.  
  92. /* Install */
  93.  
  94. Say 'Copie de «Réussites» vers ' Directory '...'
  95. Copy "CARDS.EXE" Directory"\CARDS.EXE" '1>NUL'
  96. Copy "PICTURES.DLL" Directory"\PICTURES.DLL" '1>NUL'
  97. Copy "CARDSGER.HLP" Directory"\CARDSGER.HLP" '1>NUL'
  98. Copy "CARDSGER.DLL" Directory"\CARDSGER.DLL" '1>NUL'
  99. Copy "CARDSENG.HLP" Directory"\CARDSENG.HLP" '1>NUL'
  100. Copy "CARDSENG.DLL" Directory"\CARDSENG.DLL" '1>NUL'
  101. Copy "CARDSNOR.HLP" Directory"\CARDSNOR.HLP" '1>NUL'
  102. Copy "CARDSNOR.DLL" Directory"\CARDSNOR.DLL" '1>NUL'
  103. Copy "CARDSSWE.HLP" Directory"\CARDSSWE.HLP" '1>NUL'
  104. Copy "CARDSSWE.DLL" Directory"\CARDSSWE.DLL" '1>NUL'
  105. Copy "CARDSFRA.HLP" Directory"\CARDSFRA.HLP" '1>NUL'
  106. Copy "CARDSFRA.DLL" Directory"\CARDSFRA.DLL" '1>NUL'
  107.  
  108. Say 'Création de l''objet sur le bureau...'
  109. Type = 'WPProgram'
  110. Title = 'Réussites'
  111. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;PARAMETERS=CARDSFRA;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  112. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  113.  
  114. If Result = 1 Then
  115.   Say 'L''objet a été créé sur le bureau ! Terminé.'
  116. Else             
  117.   Say 'Erreur : impossible de créer l''objet sur le bureau.'
  118.  
  119. Signal DONE
  120.  
  121. FAILURE:
  122. Say 'Erreur pendant un traitement REXX.'
  123. Signal DONE
  124.  
  125. HALT:
  126. Say 'Halte REXX.'
  127. Signal DONE
  128.  
  129. SYNTAX:
  130. Say 'Erreur de syntaxe REXX.'
  131. Signal DONE
  132.  
  133. DONE:
  134. Exit
  135.