home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: Multimed / Multimed.zip / pmcdrec2.zip / install.cmd next >
OS/2 REXX Batch file  |  1999-08-01  |  2KB  |  58 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:\PMCDRec'
  16.         say 
  17.         PARSE PULL InstDir
  18.         InstDir = STRIP(InstDir, 'T', '\')
  19.         
  20.         /* verzeichnisse erstellen */
  21.         say 'Create directorys'
  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 'Copy data'        
  36.  
  37.  
  38.            
  39.         Befehl = '@Copy PMCDrec.exe 'InstDir'\PMCDRec.exe'
  40.         Befehl
  41.       Befehl = '@Copy PMCDrec.ico 'InstDir'\PMCDRec.ico'
  42.         Befehl
  43.         Befehl = '@Copy readme.txt 'InstDir'\readme.txt'
  44.         Befehl
  45.         Befehl = '@Copy twjscsi.dll 'InstDir'\twjscsi.dll'
  46.         Befehl
  47.  
  48.  
  49.  
  50.         /* Erzeugen der Folder und Objecte */
  51.         /* Der Ordner wird erstellt */
  52.         rc =SysCreateObject("WPFolder", "PMCDRec", "<WP_DESKTOP>", "OBJECTID=<PMCDRecOrdner>;ALWAYSSORT=NO", "Update" )  
  53.         rc =SysCreateObject("WPProgram", "PMCDRec", "<PMCDRecOrdner>", "EXENAME=" || InstDir ||"\PMCDRec.exe; OBJECTID=<PMCDrecExe>; SYMBOL="InstDir"\PMCDRec.ICO;STARTUPDIR=" || InstDir, "Update" )          
  54.         rc =SysCreateObject("WPProgram", "Read Me" , "<PMCDRecOrdner>", "EXENAME=E.EXE;PARAMETERS=" || InstDir || "\readme.txt", "replace")
  55.         
  56.         Befehl="@E "InstDir"\Readme.txt"
  57.         Befehl
  58.