home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / notasq20.zip / install.cmd < prev    next >
OS/2 REXX Batch file  |  1998-04-15  |  3KB  |  105 lines
  1. /* Installation von Nota Musica Sequencer */
  2.  
  3. /* Funktionen laden */
  4. call RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. call SysLoadFuncs
  6.  
  7. /* Copyright ausgeben */
  8. say "Nota Musica Sequencer Installation"
  9. say "Installation von Nota Musica Sequencer"
  10. say "(c) Copyright 19997 by Johannes Martin Software-Entwicklung"
  11. say ""
  12.  
  13. /* Sprache erfragen */
  14. say "Language/Sprache (E)nglish/(D)eutsch [E]:"
  15. pull sprache
  16.  
  17. /* Verzeichnis erfragen */
  18. verzeichnis = "c:\notaseq"
  19.  
  20. if sprache = "D" then
  21.   say "Installationsverzeichnis ["verzeichnis"]:"
  22. else
  23.   say "Installation directory ["verzeichnis"]:"
  24. pull eingabe
  25. if length(eingabe) = 0 then  nop
  26. else verzeichnis = eingabe
  27.  
  28. /* Verzeichnis anlegen und Dateien entpacken */
  29. if sprache = "D" then
  30.   say "Dateien werden ausgepackt!"
  31. else
  32.   say "Files are being decompressed!"
  33. md verzeichnis
  34. par = notaseq.zip '-d' verzeichnis
  35. unzip.exe par
  36.  
  37. /* Ini Schreiben */
  38. if sprache = "D" then
  39.   par = '-d'verzeichnis'\notaseq.ini "-aResource Library" -kDateiName -snmsresde'
  40. else
  41.   par = '-d'verzeichnis'\notaseq.ini "-aResource Library" -kDateiName -snmsresuk'
  42. writeini.exe par
  43. par = '-d'verzeichnis'\notaseq.ini -aVerzeichisse -kMIDI -s'verzeichnis
  44. writeini.exe par
  45. par = '-d'verzeichnis'\notaseq.ini -aVerzeichisse -kWAV -s'verzeichnis
  46. writeini.exe par
  47.  
  48. /* Gruppe anlegen */
  49. if sprache = "D" then
  50.   say "Objekte werden angelegt."
  51. else
  52.   say "Creating objects."
  53. folderid = '<NOTA_MUSICA_FOLDER>'
  54.  
  55. if \SysCreateObject('WPFolder', 'Nota Musica', '<WP_DESKTOP>', ,
  56.                     'ICONFILE='verzeichnis'\NOTA.ICO;OBJECTID='||folderid, 'update') then do
  57.   if sprache = "D" then
  58.     say 'Kann Nota Musica Ordner nicht erzeugen.'
  59.   else
  60.     say "Cannot create Nota Musica folder."
  61.   exit 1
  62. end
  63.  
  64. if \SysCreateObject('WPProgram', 'Nota Musica Sequencer', folderid, ,
  65.                     'PROGTYPE=PM;EXENAME='verzeichnis'\NOTASEQ.EXE;ASSOCFILTER=*.mid;STARTUPDIR='verzeichnis, ,
  66.                     'update') then do
  67.   if sprache = "D" then
  68.     say 'Kann Nota Musica Sequencer Programmobjekt nicht erzeugen.'
  69.   else
  70.     say "Cannot create Nota Musica Sequencer program object."
  71.   exit 1
  72. end
  73.  
  74. if \SysCreateObject('WPUrl', 'Nota Musica Homepage', folderid, ,
  75.                     'LOCATOR=http://www.teamos2.de/software/notamusica', ,
  76.                     'update') then do
  77.   if sprache = "D" then
  78.     say 'Kann Nota Musica Homepage nicht erzeugen.'
  79.   else
  80.     say "Cannot create Nota Musica home page."
  81. end
  82.  
  83. if sprache = "D" then
  84.   do
  85.     if \SysCreateObject('WPProgram', 'Nota Musica Sequencer Handbuch', folderid, ,
  86.                        'PROGTYPE=PM;EXENAME=VIEW.EXE;STARTUPDIR='verzeichnis';PARAMETERS=handbuch.inf', ,
  87.                        'update') then do
  88.       say 'Kann Nota Muscia Sequencer Handbuch nicht erzeugen.'
  89.       exit 1
  90.     end
  91.   end
  92. else
  93.   if \SysCreateObject('WPProgram', 'Nota Musica Sequencer Manual', folderid, ,
  94.                       'PROGTYPE=PM;EXENAME=VIEW.EXE;STARTUPDIR='verzeichnis';PARAMETERS=manual.inf', ,
  95.                       'update') then do
  96.     say 'Cannot create Nota Musica Sequencer Manual'
  97.     exit 1
  98.   end
  99.  
  100.  
  101. if sprache = "D" then
  102.   say 'Nota Musica Sequencer erfolgreich installiert!'
  103. else
  104.   say "Nota Nusica Sequencer installed sucessfully!"
  105.