home *** CD-ROM | disk | FTP | other *** search
/ Curso de Informatica 2 / elPeriodico2.iso / tarot / setup.inf < prev    next >
Encoding:
Text File  |  1991-08-21  |  8.8 KB  |  153 lines
  1. SET %Caption%="SETUP"
  2. SET %Application%="Curso de Tarot"
  3. SET %InstallPath%="C:\CTAROTSW\"
  4. SET %InstallDrive%="C:"
  5. GetProfileString("Install", "Path", "%InstallPath%", "%IniFile%", %InstallPath%)
  6. SET %MakeDir% = %InstallPath%
  7. SET %Temp%=Right(%MakeDir%, 1)
  8. IF "%Temp%" != "\" GOTO :DIROK
  9. SET %Temp% = Len(%MakeDir%) - 1
  10. SET %MakeDir% = Left(%MakeDir%, %Temp%)
  11.  
  12. :DIROK
  13. MkDir(%MakeDir%)
  14. OpenOut("%MakeDir%\INSTALL.DAT")
  15. IF %ERROR% == TRUE GOTO :DIRERROR
  16. CloseOut()
  17. Delete("%MakeDir%\INSTALL.DAT")
  18. SET %MakeDir% = ""
  19. SET %Temp% = ""
  20. WriteProfileString("Install", "Path", "%InstallPath%", "%IniFile%")
  21. MkDir("%WindowsDirectory%TEMP")
  22. WriteProfileString("Install", "TempPath", "%WindowsDirectory%TEMP", "%IniFile%")
  23.  
  24. CheckExists("%CurrentDrive%DISK01", "Por favor, introduzca en la Unidad A:\ el Disquete N║ 1")
  25. IF %ERROR% == IDCANCEL GOTO :EXIT
  26. CopyFile(28)
  27. "LEAME.TXT","%InstallPath%LEAME.TXT", "Descomprimiendo e Instalando ficheros"
  28. "CURSOCOM.OV_","%InstallPath%CURSOCOM.OVD", "Descomprimiendo e Instalando ficheros"
  29. "MANUAL.WRI","%InstallPath%MANUAL.WRI", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  30. "AUTOSTAR.OD_","%InstallPath%AUTOSTAR.ODC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  31. "CTL3D.DL_","%InstallPath%CTL3D.DLL", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  32. "MM_00000.MF_","%InstallPath%MM_00000.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  33. "MM_00001.MF_","%InstallPath%MM_00001.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  34. "MM_00002.MF_","%InstallPath%MM_00002.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  35. "MM_00003.MF_","%InstallPath%MM_00003.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  36. "MM_00004.MF_","%InstallPath%MM_00004.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  37. "MM_00005.MF_","%InstallPath%MM_00005.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  38. "MM_00006.MF_","%InstallPath%MM_00006.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  39. "MM_00007.MF_","%InstallPath%MM_00007.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  40. "MM_00008.MF_","%InstallPath%MM_00008.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  41. "MM_00009.MF_","%InstallPath%MM_00009.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  42. "MM_00010.MF_","%InstallPath%MM_00010.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  43. "MM_00011.MF_","%InstallPath%MM_00011.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  44. "MM_00012.MF_","%InstallPath%MM_00012.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  45. "MM_00013.MF_","%InstallPath%MM_00013.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  46. "MM_00014.MF_","%InstallPath%MM_00014.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  47. "MM_00015.MF_","%InstallPath%MM_00015.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  48. "MM_00016.MF_","%InstallPath%MM_00016.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  49. "MM_00017.MF_","%InstallPath%MM_00017.MFC", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  50. "PCDLIB.DL_","%InstallPath%PCDLIB.DLL", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  51. "PVIMGLIB.DL_","%InstallPath%PVIMGLIB.DLL", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  52. "SHOWPLAY.EX_","%InstallPath%SHOWPLAY.EXE", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  53. "SPLIB.DL_","%InstallPath%SPLIB.DLL", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  54. "MELODIA.MID","%InstallPath%MELODIA.MID", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  55.  
  56. CheckExists("%CurrentDrive%DISK02", "Por favor, introduzca en la Unidad A:\ el Disquete N║ 2")
  57. IF %ERROR% == IDCANCEL GOTO :EXIT
  58. CopyFile(42)
  59. "AHORCADO.OV_","%InstallPath%AHORCADO.OVG", "Descomprimiendo e Instalando ficheros"
  60. "BWCC.DL_","%InstallPath%BWCC.DLL", "Descomprimiendo e Instalando ficheros"
  61. "CARRO.OV_","%InstallPath%CARRO.OVG", "Descomprimiendo e Instalando ficheros"
  62. "CARTA.OV_","%InstallPath%CARTA.OVG", "Descomprimiendo e Instalando ficheros"
  63. "CATALOGO.WR_","%InstallPath%CATALOGO.WRI", "Descomprimiendo e Instalando ficheros"
  64. "CIELO.OV_","%InstallPath%CIELO.OVG", "Descomprimiendo e Instalando ficheros"
  65. "CURSO.OVD","%InstallPath%CURSO.OVD", "Descomprimiendo e Instalando ficheros"
  66. "CHOICE.DL_","%InstallPath%CHOICE.DLL", "Descomprimiendo e Instalando ficheros"
  67. "DIABL.OV_","%InstallPath%DIABL.OVG", "Descomprimiendo e Instalando ficheros"
  68. "DIABLO.OV_","%InstallPath%DIABLO.OVG", "Descomprimiendo e Instalando ficheros"
  69. "EMPERAD.OV_","%InstallPath%EMPERAD.OVG", "Descomprimiendo e Instalando ficheros"
  70. "EMPERAT.OV_","%InstallPath%EMPERAT.OVG", "Descomprimiendo e Instalando ficheros"
  71. "ENAMORAD.OV_","%InstallPath%ENAMORAD.OVG", "Descomprimiendo e Instalando ficheros"
  72. "ESTRELLA.OV_","%InstallPath%ESTRELLA.OVG", "Descomprimiendo e Instalando ficheros"
  73. "FIXIT.LS_","%InstallPath%FIXIT.LST", "Descomprimiendo e Instalando ficheros"
  74. "FUERZA.OV_","%InstallPath%FUERZA.OVG", "F&M - Informßtica EsotΘrica"
  75. "GESTOR.IN_","%InstallPath%GESTOR.INI", "F&M - Informßtica EsotΘrica"
  76. "HERMITA.OV_","%InstallPath%HERMITA.OVG", "F&M - Informßtica EsotΘrica"
  77. "JUSTICIA.OV_","%InstallPath%JUSTICIA.OVG", "F&M - Informßtica EsotΘrica"
  78. "LOCO.OV_","%InstallPath%LOCO.OVG", "F&M - Informßtica EsotΘrica"
  79. "LUNA.OV_","%InstallPath%LUNA.OVG", "F&M - Informßtica EsotΘrica"
  80. "MAGO.OV_","%InstallPath%MAGO.OVG", "F&M - Informßtica EsotΘrica"
  81. "VISION.EX_","%InstallPath%VISION.EXE", "Programa en Castellano para Windows 95"
  82. "MUERTE.OV_","%InstallPath%MUERTE.OVG", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  83. "MUNDO.OV_","%InstallPath%MUNDO.OVG", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  84. "OLECLI.DL_","%InstallPath%OLECLI.DLL", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  85. "OV2R.LZ_","%InstallPath%OV2R.LZ", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  86. "OVREM.EX_","%InstallPath%OVREM.EXE", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  87. "PAPA.OV_","%InstallPath%PAPA.OVG", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  88. "PDOXUSRS.NE_","%InstallPath%PDOXUSRS.NET", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  89. "PDOXWORK.IN_","%InstallPath%PDOXWORK.INI", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  90. "PXENGCFG.EX_","%InstallPath%PXENGCFG.EXE", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  91. "PXENGWIN.DL_","%InstallPath%PXENGWIN.DLL", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  92. "PEDIDOS.TX_","%InstallPath%PEDIDOS.TXT", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  93. "RUEDA.OV_","%InstallPath%RUEDA.OVG", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  94. "SACERDOT.OV_","%InstallPath%SACERDOT.OVG", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  95. "SHELL.DL_","%InstallPath%SHELL.DLL", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  96. "SOL.OV_","%InstallPath%SOL.OVG", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  97. "TEMPLANZ.OV_","%InstallPath%TEMPLANZ.OVG", "F&M - Informßtica  - Telf./Fax: (986)-844304 - Pontevedra"
  98. "TORRE.OV_","%InstallPath%TORRE.OVG", "Programa en Castellano para Windows 95"
  99. "WBTRCALL.DL_","%InstallPath%WBTRCALL.DLL", "Programa en Castellano para Windows 95"
  100. "WBTRVDEF.DL_","%InstallPath%WBTRVDEF.DLL", "Programa en Castellano para Windows 95"
  101.  
  102. WriteProfileString("Executables", "Setup", "%InstallPath%setup.exe", "%IniFile%")
  103. WriteProfileString("Executables", "Inst", "%InstallPath%inst.exe", "%IniFile%")
  104.  
  105. GOTO :1
  106.  
  107. :1
  108. MakeGroup("%Application%", "")
  109. MakeIcon("Curso de Tarot (Nivel Superior)", "%InstallPath%VISION.EXE CURSOCOM.OVD")
  110. MakeIcon("Manual", "WRITE %InstallPath%MANUAL.WRI")
  111. MakeIcon("Envφos", "NOTEPAD %InstallPath%PEDIDOS.TXT")
  112. MakeIcon("Catßlogo", "WRITE %InstallPath%CATALOGO.WRI")
  113.  
  114. GOTO :2
  115.  
  116. :2
  117. MakeGroup("%Application%", "")
  118. MakeIcon("Curso de Tarot (Nivel Superior)", "%InstallPath%VISION.EXE CURSOCOM.OVD")
  119. MakeIcon("Manual", "WRITE %InstallPath%MANUAL.WRI")
  120. MakeIcon("Envφos", "NOTEPAD %InstallPath%PEDIDOS.TXT")
  121. MakeIcon("Catßlogo", "WRITE %InstallPath%CATALOGO.WRI")
  122.  
  123. GOTO :3
  124.  
  125. :3
  126. MakeGroup("%Application%", "")
  127. MakeIcon("Curso de Tarot (Nivel Superior)", "%InstallPath%VISION.EXE CURSOCOM.OVD")
  128. MakeIcon("Manual", "WRITE %InstallPath%MANUAL.WRI")
  129. MakeIcon("Envφos", "NOTEPAD %InstallPath%PEDIDOS.TXT")
  130. MakeIcon("Catßlogo", "WRITE %InstallPath%CATALOGO.WRI")
  131.  
  132. GOTO :END
  133.  
  134. :EXIT
  135. SET %Message1%="Se ha cancelado la Instalaci≤n del programa."
  136. SET %Message2%=""
  137. DialogBox("OkBox")
  138. GOTO :END
  139.  
  140. :ERROR
  141. SET %Message1%="Ha ocurrido un fallo en el programa %Application%."
  142. SET %Message2%=""
  143. DialogBox("OkBox")
  144. GOTO :END
  145.  
  146. :NOSPACE
  147. SET %Message1% = "No hay espacio suficiente en la unidad seleccionada"
  148. SET %Message2% = ""
  149. DialogBox("OkBox")
  150. GOTO :END
  151.  
  152. :END
  153.