home *** CD-ROM | disk | FTP | other *** search
/ Power Pack Spiele 2 / SPIELEPP2.ISO / daten / tetrix / setup.inf < prev    next >
Text File  |  1995-12-12  |  4KB  |  129 lines
  1. //
  2. // Setup Installation File
  3. // Created by Setup Builder Version 3.07
  4. //
  5. // Copyright 1993, 1994 G.Plowman
  6. //
  7. // Created: 12-12-1995 at 23:50:55
  8. //
  9.  
  10.  
  11.  
  12. // Application Variables
  13. SET %Caption%="Setup"
  14. SET %Application%="Tetrix 1.02"
  15. SET %InstallPath%="C:\TETRIX"
  16. SET %InstallDrive%="C:"
  17.  
  18.  
  19. // Welcome Dialog
  20. SET %Message1%="Herzlich willkommen zum %Application% Setup Programm."
  21. SET %Message2%="Dieses Programm wird %Application% in dem von Ihnen gewünschten Verzeichnis auf der Festplatte Ihres Computers installieren."
  22. DialogBox("Welcome")
  23. IF %ERROR% == IDCANCEL GOTO :EXIT
  24.  
  25.  
  26.  
  27. // Ask the user where to install the software
  28. :RETRY
  29. SET %Message1%="Das Setup-Programm kopiert die Dateien in folgendes Verzeichnis auf Ihrer Festplatte:"
  30. DialogBox("AskPath")
  31. IF %ERROR% == IDBACK GOTO :BACK
  32. IF %ERROR% == IDCANCEL GOTO :EXIT
  33.  
  34.  
  35. // Unprotect files before copying
  36. SetFileAttr("%InstallPath%README.WRI", 0, 0, 0, 0)
  37. SetFileAttr("%InstallPath%REGISTER.WRI", 0, 0, 0, 0)
  38. SetFileAttr("%InstallPath%TETRIX.EXE", 0, 0, 0, 0)
  39. SetFileAttr("%InstallPath%HIGHSCOR.DAT", 0, 0, 0, 0)
  40.  
  41.  
  42.  
  43.  
  44. // Make sure we still have Disk #01 in the drive
  45. CheckExists("%CurrentDrive%DISK01", "Please insert the diskette labelled 'DISK01'")
  46. IF %ERROR% == IDCANCEL GOTO :EXIT
  47.  
  48.  
  49. // Copy files from disk & show in gauge - no usage or overwrite check
  50. CopyFile(23)
  51. "BIT1.BMP", "%InstallPath%", "Copying:"
  52. "BIT2.BMP", "%InstallPath%", "Copying:"
  53. "BIT3.BMP", "%InstallPath%", "Copying:"
  54. "BIT4.BMP", "%InstallPath%", "Copying:"
  55. "BIT5.BMP", "%InstallPath%", "Copying:"
  56. "BIT6.BMP", "%InstallPath%", "Copying:"
  57. "BWCC.DLL", "%InstallPath%", "Copying:"
  58. "DIALOG.BMP", "%InstallPath%", "Copying:"
  59. "DOING.WAV", "%InstallPath%", "Copying:"
  60. "HIGHSCOR.DAT", "%InstallPath%", "Copying:"
  61. "HINTER.BMP", "%InstallPath%", "Copying:"
  62. "HSCOR.BMP", "%InstallPath%", "Copying:"
  63. "INFO.BMP", "%InstallPath%", "Copying:"
  64. "LICENCE.TXT", "%InstallPath%", "Copying:"
  65. "LOGO.BMP", "%InstallPath%", "Copying:"
  66. "RAND2.BMP", "%InstallPath%", "Copying:"
  67. "README.WRI", "%InstallPath%", "Copying:"
  68. "RED.BMP", "%InstallPath%", "Copying:"
  69. "REGIST.BMP", "%InstallPath%", "Copying:"
  70. "REGISTER.WRI", "%InstallPath%", "Copying:"
  71. "SMILE.BMP", "%InstallPath%", "Copying:"
  72. "TETRIX.EXE", "%InstallPath%", "Copying:"
  73. "TOP_ID.DIZ", "%InstallPath%", "Copying:"
  74.  
  75.  
  76.  
  77.  
  78. // Now setup a new program manager group and its icons
  79. MessageBox("Setup kann eine Programm-Manager-Gruppe|für %Application% erstellen.||Möchten Sie eine Programm-|Manager Gruppe erstellen ?", "%Caption%", MB_YESNO, MB_ICONQUESTION)
  80. IF %ERROR% == IDNO GOTO :NOPMGROUP
  81.  
  82. // Unprotect PM group
  83. SetFileAttr("%WindowsDirectory%%Application%.GRP", 0, 0, 0, 0)
  84.  
  85. MakeGroup("%Application%", "")
  86. MakeIcon("Lies Mich!", "%InstallPath%README.WRI ")
  87. MakeIcon("REGISTER.WRI", "%InstallPath%REGISTER.WRI ")
  88. MakeIcon("Tetrix", "%InstallPath%TETRIX.EXE ")
  89. :NOPMGROUP
  90.  
  91.  
  92. // Done
  93. :SUCCESS
  94. SET %Message1%="|%Application% - Installation wurde erfolgreich abgeschlossen."
  95. SET %Message2%=""
  96. DialogBox("OkBox")
  97. GOTO :END
  98.  
  99.  
  100. // User decided to quit
  101. :EXIT
  102. SET %Message1%="Installation has been terminated. You should rerun this installation program at a later time to install %Application%."
  103. SET %Message2%="|The %Application% software has not been installed."
  104. DialogBox("OkBox")
  105. GOTO :END
  106.  
  107.  
  108. // Error
  109. :ERROR
  110. SET %Message1%=" Fehler bei der Installation von %Application%."
  111. SET %Message2%="|%Application% wurde nicht komplett installiert."
  112. DialogBox("OkBox")
  113. GOTO :END
  114.  
  115.  
  116. // Not enough disk space
  117. :NOSPACE
  118. SET %Message1% = "|There is not enough space on the selected drive to install the %Application% software."
  119. SET %Message2% = ""
  120. DialogBox("OkBox")
  121. GOTO :RETRY
  122.  
  123.  
  124. // User defined code - De-Installation option
  125. :DEINSTALL
  126.  
  127.  
  128. :END
  129.