home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Spezial / SPEZIAL2_97.zip / SPEZIAL2_97.iso / ANWEND / MULTIMED / NM-SEQ / install.cmd < prev    next >
OS/2 REXX Batch file  |  1997-09-15  |  3KB  |  102 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.  
  46. /* Gruppe anlegen */
  47. if sprache = "D" then
  48.   say "Objekte werden angelegt."
  49. else
  50.   say "Creating objects."
  51. folderid = '<NOTA_MUSICA_FOLDER>'
  52.  
  53. if \SysCreateObject('WPFolder', 'Nota Musica', '<WP_DESKTOP>', ,
  54.                     'ICONFILE='verzeichnis'\NOTA.ICO;OBJECTID='||folderid, 'update') then do
  55.   if sprache = "D" then
  56.     say 'Kann Nota Musica Ordner nicht erzeugen.'
  57.   else
  58.     say "Cannot create Nota Musica folder."
  59.   exit 1
  60. end
  61.  
  62. if \SysCreateObject('WPProgram', 'Nota Musica Sequencer', folderid, ,
  63.                     'PROGTYPE=PM;EXENAME='verzeichnis'\NOTASEQ.EXE;ASSOCFILTER=*.mid;STARTUPDIR='verzeichnis, ,
  64.                     'update') then do
  65.   if sprache = "D" then
  66.     say 'Kann Nota Musica Sequencer Programmobjekt nicht erzeugen.'
  67.   else
  68.     say "Cannot create Nota Musica Sequencer program object."
  69.   exit 1
  70. end
  71.  
  72. if \SysCreateObject('WPUrl', 'Nota Musica Homepage', folderid, ,
  73.                     'LOCATOR=http://www.teamos2.de/software/notamusica', ,
  74.                     'update') then do
  75.   if sprache = "D" then
  76.     say 'Kann Nota Musica Homepage nicht erzeugen.'
  77.   else
  78.     say "Cannot create Nota Musica home page."
  79. end
  80.  
  81. if sprache = "D" then
  82.   do
  83.     if \SysCreateObject('WPProgram', 'Nota Musica Sequerncer Handbuch', folderid, ,
  84.                        'PROGTYPE=PM;EXENAME=VIEW.EXE;STARTUPDIR='verzeichnis';PARAMETERS=handbuch.inf', ,
  85.                        'update') then do
  86.       say 'Kann Nota Muscia Sequencer Handbuch nicht erzeugen.'
  87.       exit 1
  88.     end
  89.   end
  90. else
  91.   if \SysCreateObject('WPProgram', 'Nota Musica Sequerncer Manual', folderid, ,
  92.                       'PROGTYPE=PM;EXENAME=VIEW.EXE;STARTUPDIR='verzeichnis';PARAMETERS=manual.inf', ,
  93.                       'update') then do
  94.     say 'Cannot create Nota Musica Sequencer Manual'
  95.     exit 1
  96.   end
  97.  
  98.  
  99. if sprache = "D" then
  100.   say 'Nota Musica Sequencer erfolgreich installiert!'
  101. else
  102.   say "Nota Nusica Sequencer installed sucessfully!"