home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / sfix4.zip / Inst_FR.CMD < prev    next >
OS/2 REXX Batch file  |  1999-01-11  |  2KB  |  93 lines
  1. /* Installation script */
  2. /*    SimplyFix 4.0    */
  3. arg cmd
  4.  
  5. say
  6. say 'Si vous voulez juste recréer le dossier de SimplyFix sur le bureau, lancez:'
  7. say 'Inst_Fr desk'
  8. say
  9. say 'Appuyez sur ENTRÉE pour continuer, CTRL+C pour annuler l'installation'
  10. pull
  11.  
  12. cr = d2c(13)
  13. lf = d2c(10)
  14. crlf = cr || lf
  15.  
  16. /* Register with REXX API extensions. */
  17. IF RxFuncQuery('SysLoadFuncs') <> 0 THEN
  18. DO
  19.   Call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  20.   Call SysLoadFuncs
  21. END
  22.  
  23. if cmd = 'DESK' then
  24.   signal makedesk
  25.  
  26. say
  27. say 'SimplyFix sera installé dans le répertoire courant. Continuer (O/N)?'
  28. say
  29. parse pull risp
  30.  
  31. if translate(strip(risp)) == 'N' then
  32. do
  33.   cls
  34.   exit
  35. end
  36.  
  37. say
  38. say '**************************************************'
  39. say 'Décompression des fichiers, veuillez patienter....'
  40. say '**************************************************'
  41. say
  42.  
  43. /* Unzippa il tutto */
  44. '@unzip PRG.ZIP'
  45.  
  46. makedesk:
  47.  
  48. curdir = directory()
  49.  
  50. say
  51. say '**********************'
  52. say 'Création du dossier...'
  53. say '**********************'
  54. say
  55.  
  56. res = SysCreateObject("WPFolder", "SimplyFix " || crlf || "v. 4.0", "<WP_DESKTOP>", "OBJECTID=<SIMPLYFIXFOLDER>;BACKGROUND=" || curdir || "\bg.bmp,T,,I,255 255 255;ALWAYSSORT=YES;ICONFILE=" || curdir || "\SFix4.ICO", update)
  57.  
  58. say
  59. say '**********************'
  60. say 'Création des objets...'
  61. say '**********************'
  62. say
  63.  
  64. res = SysCreateObject("WPProgram", "SimplyFix 4", "<SIMPLYFIXFOLDER>", "OBJECTID=<SIMPLYFIX>;EXENAME=" || curdir || "\SFix4.exe;STARTUPDIR=" || curdir , replace)
  65. res = SysCreateObject("WPShadow", "Lisez moi", "<SIMPLYFIXFOLDER>", "OBJECTID=<SIMPLYFIXREADME>;SHADOWID=" || curdir || "\RdmeFr.txt" , replace)
  66. res = SysCreateObject("WPShadow", "Tips", "<SIMPLYFIXFOLDER>", "OBJECTID=<SIMPLYFIXTIPS>;SHADOWID=" || curdir || "\Tips_FR.htm" , replace)
  67.  
  68. say
  69. say '***************************************'
  70. say 'Suppression des fichiers temporaires...'
  71. say '***************************************'
  72. say
  73.  
  74.  
  75. '@del ' || curdir || '\PRG.ZIP'
  76. '@del ' || curdir || '\Inst_ITA.CMD'
  77. '@del ' || curdir || '\RdmeITA.TXT'
  78. '@del ' || curdir || '\Inst_ENG.CMD'
  79. '@del ' || curdir || '\RdmeENG.TXT'
  80. '@del ' || curdir || '\Tips_ITA.htm'
  81. '@del ' || curdir || '\Tips_ENG.htm'
  82.  
  83.  
  84. say
  85. say '************'
  86. say 'C'est fini !'
  87. say '************'
  88. say
  89.  
  90. call SysOpenObject '<SIMPLYFIXFOLDER>', 0, 0
  91.  
  92. Exit
  93.