home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: InfoMgt / InfoMgt.zip / videoos2.zip / Install.CMD < prev    next >
OS/2 REXX Batch file  |  1996-07-29  |  5KB  |  142 lines
  1. /*                  Installationsprogramm von VideoOS2                       */
  2. /*                           von Heiko Casper                                */
  3.  
  4. CALL RxFuncAdd 'SysLoadFuncs', 'RexxUtil', 'SysLoadFuncs'
  5. CALL SysLoadFuncs
  6.  
  7. call SysCls
  8.  
  9. say ''
  10. say '**************************************************************************'
  11. say '*                                                                        *'
  12. say '*                     Installation von VideoOS/2                         *'
  13. say '*                                                                        *'
  14. say '**************************************************************************'
  15. say ''
  16.  
  17. /* Es wird überprüft, ob alle benötigten Dateien im aktuellen Verzeichnis */
  18. /* vorhanden sind.                                                        */
  19. aktuellesVerzeichnis = DIRECTORY()
  20. if right(aktuellesVerzeichnis,1)<>'\' then
  21.   aktuellesVerzeichnis = aktuellesVerzeichnis'\' 
  22. call SysFileTree aktuellesVerzeichnis'VideoOS2.EXE', 'Ergebnis', 'F'
  23. if Ergebnis.0=0 then
  24.   call FehlerDatei
  25. call SysFileTree aktuellesVerzeichnis'VideoOS2.HLP', 'Ergebnis', 'F'
  26. if Ergebnis.0=0 then
  27.   call FehlerDatei
  28. call SysFileTree aktuellesVerzeichnis'VideoOS2.INI', 'Ergebnis', 'F'
  29. if Ergebnis.0=0 then
  30.   call FehlerDatei
  31. call SysFileTree aktuellesVerzeichnis'LiesMich.TXT', 'Ergebnis', 'F'
  32. if Ergebnis.0=0 then
  33.   call FehlerDatei
  34. call SysFileTree aktuellesVerzeichnis'Register.TXT', 'Ergebnis', 'F'
  35. if Ergebnis.0=0 then
  36.   call FehlerDatei
  37. call SysFileTree aktuellesVerzeichnis'Lizenz.TXT', 'Ergebnis', 'F'
  38. if Ergebnis.0=0 then
  39.   call FehlerDatei
  40. call SysFileTree aktuellesVerzeichnis'Video1.ICO', 'Ergebnis', 'F'
  41. if Ergebnis.0=0 then
  42.   call FehlerDatei
  43. call SysFileTree aktuellesVerzeichnis'Video2.ICO', 'Ergebnis', 'F'
  44. if Ergebnis.0=0 then
  45.   call FehlerDatei
  46. call SysFileTree aktuellesVerzeichnis'3DVideo1.ICO', 'Ergebnis', 'F'
  47. if Ergebnis.0=0 then
  48.   call FehlerDatei
  49. call SysFileTree aktuellesVerzeichnis'3DVideo2.ICO', 'Ergebnis', 'F'
  50. if Ergebnis.0=0 then
  51.   call FehlerDatei
  52.  
  53. /* Das Laufwerk, auf das installiert werden soll, wird abgefragt und überprüft. */
  54. say 'Geben sie das Laufwerk an, auf das das Programm installiert werden soll,'
  55. say 'z.B. D. Wenn sie kein Laufwerk angeben, wird auf C installiert.'
  56.  
  57. pull Laufwerk
  58. if Laufwerk='' then
  59.   Laufwerk = 'C'
  60. else if length(Laufwerk)<>1 then
  61.   call Fehler
  62. Laufwerk = Laufwerk':'
  63.  
  64. LaufwerkInfo = SysDriveInfo(Laufwerk)
  65. if LaufwerkInfo='' then
  66.   call FehlerLaufwerk
  67.  
  68. /* Das Verzeichnis, in das installiert werden soll, wird abgefragt und erstellt. */
  69. say 'Geben die das Verzeichnis an, in das das Programm installiert werden soll.'
  70. say 'Wenn sie kein Verzeichnis angeben, wird in "\VIDEOOS2" installiert.'
  71.  
  72. pull Verzeichnis
  73. if Verzeichnis='' then
  74.   Verzeichnis = '\VideoOS2'
  75. if left(Verzeichnis,1)<>'\' then
  76.   Verzeichnis = '\'Verzeichnis
  77. if right(Verzeichnis,1)='\' then
  78.   Verzeichnis = left(Verzeichnis,length(Verzeichnis)-1)  
  79.  
  80. NeuesVerzeichnis = Laufwerk''Verzeichnis
  81. call SysFileTree NeuesVerzeichnis, 'Ergebnis', 'D'
  82. if ergebnis.0=0 then
  83. do
  84.   rc = SysMkDir(NeuesVerzeichnis)
  85.   if rc<>0 then
  86.     call FehlerVerzeichnis
  87. end
  88.  
  89. /* Die Dateien werden in das ausgewählte Verzeichnis kopiert.              */
  90. copy 'VideoOS2.EXE' NeuesVerzeichnis
  91. copy 'VideoOS2.HLP' NeuesVerzeichnis
  92. copy 'LiesMich.TXT' NeuesVerzeichnis
  93. copy 'Lizenz.TXT' NeuesVerzeichnis
  94. copy 'Register.TXT' NeuesVerzeichnis
  95. copy 'Install.CMD' NeuesVerzeichnis
  96. copy 'Video1.ICO' NeuesVerzeichnis
  97. copy 'Video2.ICO' NeuesVerzeichnis
  98. copy '3DVideo1.ICO' NeuesVerzeichnis
  99. copy '3DVideo2.ICO' NeuesVerzeichnis
  100. call SysFileTree NeuesVerzeichnis'\VideoOS2.INI', 'Ergebnis', 'F'
  101. if Ergebnis.0<>1 then
  102.   copy 'VideoOS2.INI' NeuesVerzeichnis
  103.  
  104. /* Das Programmsymbol wird auf der Arbeitsoberfläche erstellt. */
  105. Pfad      = 'STARTUPDIR='NeuesVerzeichnis
  106. Programm  = 'EXENAME='NeuesVerzeichnis
  107. IF RIGHT(Programm,1)='\' then
  108.   Programm = Programm'VideoOS2.EXE'
  109. else
  110.   Programm = Programm'\VideoOS2.EXE'
  111. Parameter = Programm';'Pfad';ASSOCFILTER=*.VDB'
  112. IF SysCreateObject('WPProgram', 'VideoOS/2', '<WP_DESKTOP>',,
  113.   Parameter, 'REPLACE') then
  114.   SAY "VideoOS/2 wurde erfolgreich installiert !"
  115. else
  116.   call Fehler
  117.  
  118. exit
  119.  
  120. Fehler: procedure
  121.   say 'Es ist ein Fehler aufgetreten! Die Installation wurde abgebrochen.'
  122.   exit
  123. return
  124.  
  125. FehlerLaufwerk: procedure
  126.   say 'Die Laufwerksangabe ist ungültig! Die Installation wurde abgebrochen.'
  127.   exit
  128. return
  129.  
  130. FehlerVerzeichnis: procedure
  131.   say 'Das angegebene Verzeichnis konnte nicht erstellt werden!'
  132.   say 'Die Installation wurde abgebrochen.'
  133.   exit
  134. return
  135.  
  136. FehlerDatei: procedure
  137.   say 'Es fehlt eine zur Installation notwendige Datei!'
  138.   say 'Die Installation wurde abgebrochen.'
  139.   exit
  140. return
  141.  
  142.