home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / starv004.zip / install.cmd next >
OS/2 REXX Batch file  |  1998-12-05  |  2KB  |  57 lines

  1. /* Install V 1.0 von M. Hannig */
  2. call RxFuncAdd "SysLoadFuncs", "REXXUTIL", "SysLoadFuncs"
  3. call SysLoadFuncs
  4.  
  5. CALL SysCls
  6. say 'Markus Hannig'
  7. say 'Rexx Install 1.1'
  8. say
  9. say
  10. say
  11.  
  12.         /* Zielverzeichnis abfragen */
  13.  
  14.         say 'Bitte geben Sie das Zielverzeichnis an:'
  15.         say 'zum Beispiel: C:\Star'
  16.         say 
  17.         PARSE PULL InstDir
  18.         InstDir = STRIP(InstDir, 'T', '\')
  19.         
  20.         /* verzeichnisse erstellen */
  21.         say 'Verzeichnisse werden erstellt'
  22.         if InstallDir <> "." then
  23.         DO
  24.                 call SysFileTree installdir, "SearchDir", "D"
  25.                 if SearchDir.0 = 0 then do
  26.                         rc = SysMkDir(InstDir)
  27.                         if rc <> 0 then do
  28.                                 say "Fehler: Directory kann nicht erstellt werden!" InstDir
  29.                         end 
  30.                 end
  31.         end
  32.  
  33.  
  34.         /* Kopieren der Dateien */
  35.         say 'Dateien werden kopiert'        
  36.  
  37.  
  38.            
  39.         Befehl = '@Copy Star.exe 'InstDir'\Star.exe'
  40.         Befehl
  41.         Befehl = '@Copy Star.ico 'InstDir'\Star.ico'
  42.         Befehl
  43.         Befehl = '@Copy Star.ini 'InstDir'\Star.ini'
  44.         Befehl
  45.         Befehl = '@Copy readme.txt 'InstDir'\readme.txt'
  46.         Befehl
  47.  
  48.  
  49.         /* Erzeugen der Folder und Objecte */
  50.         /* Der Ordner wird erstellt */
  51.         rc =SysCreateObject("WPFolder", "Star Track", "<WP_DESKTOP>", "OBJECTID=<StarTrackOrdner>;ALWAYSSORT=NO", "Update" )  
  52.         rc =SysCreateObject("WPProgram", "Star Track Public V0.04b", "<StarTrackOrdner>", "EXENAME=" || InstDir ||"\Star.exe; OBJECTID=<StarTrackExe>; SYMBOL="InstDir"\Star.ICO;STARTUPDIR=" || InstDir, "Update" )          
  53.         rc =SysCreateObject("WPProgram", "Read Me" , "<StarTrackOrdner>", "EXENAME=E.EXE;PARAMETERS=" || InstDir || "\readme.txt", "replace")
  54.         
  55.         Befehl="@E "InstDir"\Readme.txt"
  56.         Befehl
  57.