home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 April B / Pcwk4b98.iso / Znachor / PE / INSTALUJ.BAT < prev    next >
DOS Batch File  |  1998-02-07  |  7KB  |  178 lines
  1. @echo off
  2. @cls
  3. be window 0 0 11 79 white on red shadow zoom
  4. be rowcol 1 3 "  █████████                                  ███                             "
  5. be rowcol 2 3 "       ████                                  ███    ███                      "
  6. be rowcol 3 3 "      ███   ███ █████  █████████   ████████  ██████████ █████████  ██████    "
  7. be rowcol 4 3 "     ███    █████████  ███   ███   ███       ███    ███ ███   ███  ███ ███   "
  8. be rowcol 5 3 "   ███      ███   ███  ███   ███   ███       ███    ███ ███   ███  ███       "
  9. be rowcol 6 3 "  ███       ███   ███  ███   ███   ███       ███    ███ ███   ███  ███       "
  10. be rowcol 7 3 "  █████████ ███   ███  ███████████ ████████  ███    ███ █████████  ███       "
  11. be rowcol 8 3 "                          Instalacja wersji 7.20"
  12. be rowcol 10 3 " Producent programu : PABLO, ul.ChaêubiΣskiego 8/p38 BOX74 00-950 Warszawa  "
  13.  
  14. REM --------------------------------------------------------------
  15. REM SPRAWDZENIE CZY ISTNIEJE JU╜ KATALOG PROGRAMU NA JAKIMù DYSKU
  16. REM --------------------------------------------------------------
  17. @echo off
  18. set dysk=z
  19. if exist c:\znachor\nul set dysk=c
  20. :if exist d:\znachor\nul set dysk=d
  21. :if exist e:\znachor\nul set dysk=e
  22. :if exist f:\znachor\nul set dysk=f
  23. if exist h:\znachor\nul set dysk=h
  24. if exist m:\znachor\nul set dysk=m
  25. if exist n:\znachor\nul set dysk=n
  26. if exist o:\znachor\nul set dysk=o
  27. if exist p:\znachor\nul set dysk=p
  28. if exist r:\znachor\nul set dysk=r
  29. if exist s:\znachor\nul set dysk=s
  30. if exist t:\znachor\nul set dysk=t
  31. if exist u:\znachor\nul set dysk=u
  32.  
  33. REM --------------------------------------------------------------
  34. REM JEùLI KATALOGU NIE MA TO ZMIENNA << DYSK = "Z" >>
  35. REM JEùLI KATALOG JU╜ ISTNIEJE (DYSK <> "Z") NAST¿PUJE REINSTALACJA PROGRAMU
  36. REM --------------------------------------------------------------
  37.  
  38. IF %dysk%==z GOTO GETDISC
  39. GOTO REINSTALL
  40.  
  41. :GETDISC
  42.  
  43. REM --------------------------------------------------------------
  44. REM TERAZ U╜YTKOWNIK WPROWADZA SYMBOL DYSKU
  45. REM --------------------------------------------------------------
  46.  
  47. be window 12 0 24 79 white on blue shadow zoom
  48. be rowcol 14 18 "Na którym dysku mam zainstalowaå program ?"
  49. be rowcol 16 15
  50. be ask "Podaj symbol dysku (c, h, m, n, o, p, r, s, t, u) : " chmnoprstu
  51. if errorlevel 1 set dysk=c
  52. rem if errorlevel 2 set dysk=d
  53. rem if errorlevel 3 set dysk=e
  54. rem if errorlevel 4 set dysk=f
  55. if errorlevel 2 set dysk=h
  56. if errorlevel 3 set dysk=m
  57. if errorlevel 4 set dysk=n
  58. if errorlevel 5 set dysk=o
  59. if errorlevel 6 set dysk=p
  60. if errorlevel 7 set dysk=r
  61. if errorlevel 8 set dysk=s
  62. if errorlevel 9 set dysk=t
  63. if errorlevel 10 set dysk=u
  64.  
  65. if exist %dysk%:\nul goto install
  66. be rowcol 16 15 "dysk %dysk% nie istnieje .... / Naciÿnij dowolny klawisz"
  67. be ask
  68. be rowcol 16 15 "                                                        "
  69. GOTO GETDISC
  70.  
  71. :INSTALL
  72.  
  73. REM --------------------------------------------------------------
  74. REM SPRAWDZENIE ILOùCI WOLNEGO MIEJSCA NA DYSKU
  75. REM --------------------------------------------------------------
  76.  
  77. chkspc %dysk% 8
  78. IF errorlevel 1 goto NOMEMORY
  79.  
  80. GOTO CONTINST
  81.  
  82. :NOMEMORY
  83. be window 12  0 24 79 white on blue zoom
  84. be rowcol 15  1 "                Na dysku %dysk% jest za maêo wolnego miejsca"
  85. be rowcol 17  1 "                W trakcie instalacji program ZNACHOR potrzebuje"
  86. be rowcol 18  1 "                   ok. 5 MB wolnego miejsca na dysku !!!"
  87. be rowcol 20  1 "              Naciÿnij dowolny klawisz by przerwaå instalacj⌐ !!" blink
  88. be beep
  89. be ask
  90. GOTO BREAK
  91.  
  92. :CONTINST
  93.  
  94. REM --------------------------------------------------------------
  95. REM KOPIOWANIE I ROZPAKOWANIE PLIKαW
  96. REM --------------------------------------------------------------
  97.  
  98. be window 12  0 24 79 red on green zoom
  99. be rowcol 15 27 "Rozpoczynam instalacj⌐"
  100. be rowcol 17 29 "Prosz⌐ poczekaå !!!" blink
  101.  
  102. md %dysk%:\znachor > nul
  103. copy *.* %dysk%:\znachor\*.* > nul
  104. be window 12  0 24 79 white on blue zoom
  105. be rowcol 15 28 "Instaluj⌐ program"
  106. be rowcol 17 27 "Prosz⌐ poczekaå !!!" blink
  107. lha x /r2x1 %dysk%:\znachor\zna_nn.lzh %dysk%:\znachor\
  108. %dysk%:
  109. cd %dysk%:\znachor
  110.  
  111. REM --------------------------------------------------------------
  112. REM TERAZ PLIKI PROGRAMU ZOSTA¥Y ROZPAKOWANE 
  113. REM NAST¿PUJE URUCHOMIENIE PROGRAMU Z PARAMETREM OKREùLAJñCYM INSTALACJ¿
  114. REM ALE MO╜NA TEZ NAPISAÅ W FOXPRO OSOBNY PROGRAM I URUCHOMIÅ GO TERAZ:
  115. REM
  116. REM W TYM PROGRAMIE JEST TO << FP12_53 >> Z PARAMETERM << 1 >>
  117. REM --------------------------------------------------------------
  118.  
  119. rem legalny 1                
  120. del %dysk%:\znachor\zna_nn.lzh > nul
  121.  
  122. be window  0  0  6 79 white on red zoom
  123. be rowcol  2  15 "Wersja 7.20 programu ZNACHOR zostaêa zainstalowana"
  124. be rowcol  4  23 "na dysku %dysk% w katalogu ZNACHOR"
  125.  
  126. be window  7  0 15 79 white on blue zoom
  127. be rowcol  9  7 "Aby uruchomiå program nale╛y po wêÑczeniu komputera przejÿå w tryb MS_DOS i napisaå:"
  128. be rowcol 11 25 "%dysk%:    <i nacisnÑå ENTER>"
  129. be rowcol 12 25 "cd ZNACHOR  <i nacisnÑå ENTER>"
  130. be rowcol 13 25 "ZNACHOR       <i nacisnÑå ENTER>"
  131.  
  132. be window 16  0 24 79 red on green zoom
  133. be rowcol 17 10 "Aby program mógê prawidêowo pracowaå w zbiorze CONFIG.SYS"
  134. be rowcol 18  1 "w katalogu gêównym Twojego komputera muszÑ znajdowaå si⌐ nast⌐pujÑce teksty :"
  135. be rowcol 19 33 "FILES = 70"
  136. be rowcol 20 33 "BUFFERS = 30"
  137. be rowcol 21  9 "Jako u╛ytkownika przy pierwszym uruchomieniu napisz ZNACHOR"
  138. be rowcol 22 20 "Jako hasêo podaj ZNACHOR"
  139. be rowcol 23 21 "Naciÿnij dowolny klawisz  ......" blink
  140. be beep
  141. be ask
  142.  
  143. @cls
  144. GOTO END
  145.  
  146. :REINSTALL
  147.  
  148. REM --------------------------------------------------------------
  149. REM REINSTALACJA:
  150. REM
  151. REM ROZPAKOWYWANE Sñ TYLKO KODY PROGRAMU I FORMATKI
  152. REM NIE JEST ROZPAKOWYWANA BAZA DANYCH
  153. REM
  154. REM << BAZA DANYCH NIE MUSI BYÅ W PAKIECIE INSTALACYJNYM. URUCHAMIANY
  155. REM    PROGRAM NAPISANY W FOXPRO MO╜E Jñ SAM KREOWAÅ. W TAKIEJ SYTUACJI
  156. REM    OPCJA REINSTALACJI TUTAJ JEST NIEPOTRZEBNA >>
  157. REM --------------------------------------------------------------
  158.  
  159.  
  160. be window 12  0 24 79 white on blue zoom
  161. be rowcol 15 20 "Instaluj⌐ ponownie program ZNACHOR 7.20"
  162. be rowcol 16 20 " na dysku %dysk% w katalogu ZNACHOR"
  163. be rowcol 17 17 " Informacje zapisane zostanÑ utracone!!!"
  164. be rowcol 19 18 " UsuΣ lub przenieÿ katalog ZNACHOR !!!" blink
  165. be rowcol 20 10 " Instalacja zostanie przerwana.Naciÿnij dowolny klawisz !!!" blink
  166. be ask
  167. be beep
  168. @cls
  169. GOTO BREAK
  170.  
  171.  
  172. :BREAK
  173. @cls
  174. @echo Instalacja przerwana
  175.  
  176. :END
  177. @echo on
  178.