home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / CDRom / hf-cdcr1.lha / CD-Creator / InstallSkript < prev    next >
Encoding:
Text File  |  1996-06-26  |  1.8 KB  |  80 lines
  1. ;$VER: CD-Creator V1.01 (20.06.96)
  2. ;----------------------------------------------------------------------------
  3. ; Deutsche Texte
  4.  
  5. (if (= @language "deutsch")
  6. (
  7.   (set #SelectMainDir    "Wählen Sie das Verzeichnis für den CD-Creator.")
  8.   (set #CopyingMainPrg    "Kopiere die Hauptprogramme...")
  9.   (set #CopyingDriver    "Kopiere die unterstützten Treiber...")
  10.  
  11.   (set #Driver            "Soll das Assign auf die CD-R Treiber jetzt in die User-Startup eingetragen werden ?")
  12.   (set #DriverHelp        "Damit beim späteren Betrieb die CD-R Treiber problemlos gefunden und benutzt werden können, sollte ein entsprechendes Assign auf die Treiber angelegt werden.")
  13.  
  14.   (set #WrongWB            "Workbench 3.0 oder höher wird benötigt.")
  15. ))
  16.  
  17.  
  18. (procedure InstallMainPrg
  19. (
  20.     (set MainDir
  21.         (askdir
  22.             (prompt  #SelectMainDir )
  23.             (help    @askdir-help )
  24.             (default (tackon @default-dest "CD-Creator"))
  25.         )
  26.     )
  27.     (if (NOT(exists MainDir))
  28.         (makedir MainDir (infos))
  29.     )
  30.  
  31.     (makedir (tackon MainDir "Driver"))
  32.  
  33.     (copyfiles
  34.         (prompt #CopyingMainPrg)
  35.         (help   @copyfiles-help)
  36.         (source (tackon SourceDir "Programme"))
  37.         (dest   MainDir)
  38.         (all)
  39.     )
  40.  
  41.     (copyfiles
  42.         (prompt #CopyingDriver)
  43.         (help   @copyfiles-help)
  44.         (source (tackon SourceDir "Driver"))
  45.         (dest   (tackon MainDir "Driver"))
  46.         (all)
  47.     )
  48.  
  49.     (copyfiles
  50.         (prompt #CopyingDriver)
  51.         (help   @copyfiles-help)
  52.         (source (tackon SourceDir "CD-Brenner"))
  53.         (dest   MainDir)
  54.         (infos)
  55.     )
  56. ))
  57.  
  58. ;---------------------------------------------------------------------
  59. ;---- Initialisierung
  60.  
  61. (complete 0)
  62.  
  63. (set SourceDir "CD-Creator:")
  64.  
  65. (set #WBVersion (/(getversion "libs:version.library") 65536))
  66.  
  67. (if (< #WBVersion 39)    (abort #WrongWB))
  68.  
  69. (InstallMainPrg)
  70.  
  71. (STARTUP "CD-Creator"
  72.     (prompt  #Driver)
  73.     (help    #DriverHelp)
  74.     (command "assign CD-R_Driver: " (tackon MainDir "Driver"))
  75. )
  76.  
  77. (set @default-dest MainDir)
  78.  
  79. (complete 100)
  80.