home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 8 Other / 08-Other.zip / sfix4.zip / Inst_ITA.CMD < prev    next >
OS/2 REXX Batch file  |  1999-01-11  |  2KB  |  92 lines
  1. /* Installation script */
  2. /*    SimplyFix 4.0    */
  3. arg cmd
  4.  
  5. say
  6. say 'Se vuoi SOLO ricreare la cartella di SimplyFix 4 lancia:'
  7. say 'Inst_ITA desk'
  8. say
  9. say 'Premi INVIO per proseguire, CTRL+C per fermare'
  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 verrà installato nella directory corrente, continuo (S/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 'Estrazione dei files attendere...'
  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 'Sto creando la cartella...'
  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 'Sto creando gli oggetti...'
  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", "Leggimi", "<SIMPLYFIXFOLDER>", "OBJECTID=<SIMPLYFIXREADME>;SHADOWID=" || curdir || "\RdmeITA.txt" , replace)
  66. res = SysCreateObject("WPShadow", "Tips", "<SIMPLYFIXFOLDER>", "OBJECTID=<SIMPLYFIXTIPS>;SHADOWID=" || curdir || "\Tips_ITA.htm" , replace)
  67.  
  68. say
  69. say '***************************'
  70. say 'Cancello files superflui...'
  71. say '***************************'
  72. say
  73.  
  74. '@del ' || curdir || '\PRG.ZIP'
  75. '@del ' || curdir || '\Inst_ENG.CMD'
  76. '@del ' || curdir || '\RdmeENG.TXT'
  77. '@del ' || curdir || '\Inst_FR.CMD'
  78. '@del ' || curdir || '\RdmeFR.TXT'
  79. '@del ' || curdir || '\Tips_FR.htm'
  80. '@del ' || curdir || '\Tips_ENG.htm'
  81.  
  82.  
  83. say
  84. say '**********'
  85. say 'Fatto !   '
  86. say '**********'
  87. say
  88.  
  89. call SysOpenObject '<SIMPLYFIXFOLDER>', 0, 0
  90.  
  91. Exit
  92.