home *** CD-ROM | disk | FTP | other *** search
/ CD Action 16 B / cdactioncoverdisc / polonica.rar / PARAMS.INC < prev    next >
Text File  |  1997-02-19  |  8KB  |  229 lines
  1. ''------------------------------------------------------------------------
  2. ''                               USTAWIENIA
  3. ''------------------------------------------------------------------------
  4. ''                               numer wersji
  5. CONST VER_NUMBER               = 8
  6.  
  7. ''                               nazwy tablic konwersji 
  8. CONST STR_TAB_KONWERSJI_PO     = "PO"
  9. CONST STR_TAB_KONWERSJI_PU     = "PU"
  10.  
  11. ''                               ilosc wolnego miejsca potrzebna do instalacji 
  12. ''                               wersji z szybszym wyszukiwaniem
  13. CONST STR_WOLNE_MIEJSCE_DLA_WERSJI_SZYBKIEJ = "4 MB"
  14.  
  15. ''                               katalog opcjonalny dla instalacji
  16. CONST STR_INSTALL_KATALOG      = "C:\LP_WIN" 
  17.  
  18. ''                               nazwa grupy w program managerze
  19. CONST STR_GRUPA                = "Lex Media" 
  20.  
  21. ''                               nazwa systemu uzywana przy komunikacji 
  22. ''                               z uzytkownikiem podczas instalacji
  23. CONST STR_SYSTEM_NAME          = "Lex Polonica" 
  24.  
  25.  
  26. ''                               numer bitmapy z textem logo
  27. CONST LOGO_TEXT                = 2
  28.  
  29.  
  30.  
  31.  
  32.  
  33. ''                               nazwa programu do konwersji 
  34. '' CONST STR_CONVERTER_NAME       = "BOOKNOTE.exe" 
  35.  
  36.  
  37. ''------------------------------------------------------------------------
  38. ''                              PROTOTYPY
  39. ''------------------------------------------------------------------------
  40.  
  41. DECLARE SUB      ConvertBookmarksAnnots
  42. DECLARE SUB      ModifyInf
  43. DECLARE SUB      CreateDirectories
  44. DECLARE SUB      AddProgramsToGroup
  45. DECLARE SUB      CopyNonCompressedFiles
  46. DECLARE FUNCTION TestDest (szDest$) AS INTEGER
  47. DECLARE FUNCTION GetDestDefault () AS STRING
  48.  
  49.  
  50.  
  51.  
  52.  
  53. ''------------------------------------------------------------------------
  54. ''                 KONWERSJA NOTATEK I ZAKLADEK
  55. ''------------------------------------------------------------------------
  56. SUB  ConvertBookmarksAnnots STATIC
  57.  
  58.   PrevVerNumber% = myGetVersionNumber (DEST$)
  59.   IF ( PrevVerNumber% + 1 = VER_NUMBER)  THEN
  60.  
  61. ''    myBackupAnnotsBookmark DEST$
  62.  
  63.   target$ = MakePath (DEST$, "annots.pl")
  64.   IF  myFileExist (target$) THEN
  65.     CopyFile target$, MakePath (DEST$, "annots.pl0"), cmOverwrite, 0
  66.   END IF
  67.  
  68.   target$ = MakePath (DEST$, "bookmark.pl")
  69.   IF  myFileExist (target$) THEN
  70.     CopyFile target$, MakePath (DEST$, "bookmark.pl0"), cmOverwrite, 0
  71.   END IF
  72.  
  73.  
  74.     '' Konwerter$ = MakePath (SRCDIR$, STR_CONVERTER_NAME)
  75.     TabliceKonwersji1$ = MakePath (SRCDIR$, STR_TAB_KONWERSJI_PO) 
  76.     TabliceKonwersji2$ = MakePath (SRCDIR$, STR_TAB_KONWERSJI_PU) 
  77.  
  78.     '' Message$ = "Trwa konwersja zakladek."
  79.     FileToConvert$ = MakePath (DEST$, "BOOKMARK.pl")
  80.     IF  myFileExist (FileToConvert$) THEN
  81.       ''  myExecuteInDos  Konwerter, MakePath (DEST$, "BOOKMARK"), TabliceKonwersji1$, TabliceKonwersji2$, Message$
  82.       bOK% = myBooknote (MakePath (DEST$, "BOOKMARK"), TabliceKonwersji1$, TabliceKonwersji2$, 0)
  83.     END IF
  84.  
  85.  
  86.     '' Message$ = "Trwa konwersja notatek."
  87.     FileToConvert$ = MakePath (DEST$, "ANNOTS.pl")
  88.     IF  myFileExist (FileToConvert$) THEN
  89.       '' myExecuteInDos  Konwerter, MakePath (DEST$, "ANNOTS"), TabliceKonwersji1$, TabliceKonwersji2$, Message$
  90.       bOK% = myBooknote (MakePath (DEST$, "ANNOTS"), TabliceKonwersji1$, TabliceKonwersji2$, 0)
  91.     END IF
  92.   END IF
  93.  
  94.     myWriteVersionNumber  DEST$, VER_NUMBER
  95.  
  96.  
  97. END SUB
  98.  
  99.  
  100. ''------------------------------------------------------------------------
  101. ''                 MODYFIKACJA ZBIOROW INF 
  102. ''------------------------------------------------------------------------
  103. SUB ModifyInf STATIC
  104.  
  105. ''    inf$ = MakePath (DEST$, "MkUnilic.inf")
  106. ''    CreateIniKeyValue inf$, "Sciezki", "Katalog bazy", DEST$ + "\BASE", cmoOverwrite
  107.  
  108.  
  109. ''  myModifyDblistFile SRCDIR$, DEST$
  110.  
  111.  
  112.   IF  ( GetEnvVariableValue ("PLWHOME") <> DEST$)  THEN
  113.     myBackupAutoexec
  114.     mySetAutoexecSET "PLTEMP", DEST$
  115.     mySetAutoexecSET "PLWHOME", DEST$
  116.   END IF
  117.  
  118. END SUB
  119.  
  120.  
  121.  
  122.  
  123. ''------------------------------------------------------------------------
  124. ''                 TWORZENIE  KATALOGOW
  125. ''------------------------------------------------------------------------
  126. SUB CreateDirectories STATIC
  127.  
  128. ''    CreateDir  DEST$ + "\MAIL"        , cmoNone
  129.  
  130. END SUB
  131.  
  132.  
  133. ''------------------------------------------------------------------------
  134. ''                 DODANIE PROGRAMOW DO GRUPY
  135. ''------------------------------------------------------------------------
  136. SUB AddProgramsToGroup STATIC
  137.  
  138.     CreateProgmanItem  STR_GRUPA, "Lex Polonica", MakePath(DEST$,"plwin.exe"   ),  "", cmoOverwrite
  139.     CreateProgmanItem  STR_GRUPA, "Czytaj !!!"  , MakePath(DEST$,"czytaj.txt"  ),  "", cmoOverwrite
  140.  
  141. END SUB
  142.  
  143.  
  144. ''------------------------------------------------------------------------
  145. ''                 KOPIUJ ZBIORY NIESKOMPRESOWANE
  146. ''------------------------------------------------------------------------
  147. SUB CopyNonCompressedFiles STATIC
  148.  
  149.   CopyFile MakePath (SRCDIR$, "czytaj.txt"), MakePath (DEST$, "czytaj.txt"), cmOverwrite, 0
  150.  
  151.  
  152.   target$ = MakePath (DEST$, "plwin.cfg")
  153.   IF  0 = myFileExist (target$) THEN
  154.     CopyFile MakePath (SRCDIR$, "plwin.cfg"), target$, cmNone, 0
  155.   END IF
  156.  
  157.  
  158.  
  159.   target$ = MakePath (GetWindowsSysDir, "ctl3dv2.dll")
  160.   IF  0 = myFileExist (target$) THEN
  161.     CopyFile MakePath (SRCDIR$, "ctl3dv2.dll"), target$, cmNone, 0
  162.   END IF
  163.  
  164.  
  165.   target$ = MakePath (GetWindowsSysDir, "ctl3d.dll")
  166.   IF  0 = myFileExist (target$) THEN
  167.     CopyFile MakePath (SRCDIR$, "ctl3d.dll"  ), target$, cmNone, 0
  168.   END IF
  169.  
  170.  
  171.  
  172.   '' myBeep
  173.   '' i% = myQuestionMsgBox ("Czy zainstalowaµ wersjΩ z szybszym wyszukiwaniem ? (Wymaga dodatkowe 7 MB wolnego miejsa na dysku twardym)", STR_SYSTEM_NAME)
  174.   i% = myDoYouWantFastVersion ( MakePath (DEST$, "DBLIST.cpl"), STR_WOLNE_MIEJSCE_DLA_WERSJI_SZYBKIEJ)
  175.   IF  i%  THEN
  176.     CreateDir  DEST$ + "\DB"  , cmoNone
  177.  
  178.     ClearCopyList
  179.     AddSectionFilesToCopyList "EXTRA", SRCDIR$ + "LP_WIN\DB", DEST$ + "\DB" 
  180.     CopyFilesInCopyList
  181.  
  182.     '' CopyFile   MakePath (SRCDIR$, "LP_WIN\DB\po.def"      ), MakePath (DEST$, "DB\po.def"      ), cmOverwrite, 0
  183.     '' CopyFile   MakePath (SRCDIR$, "LP_WIN\DB\pu.def"      ), MakePath (DEST$, "DB\pu.def"      ), cmOverwrite, 0
  184.     '' CopyFile   MakePath (SRCDIR$, "LP_WIN\DB\po.par"      ), MakePath (DEST$, "DB\po.par"      ), cmOverwrite, 0
  185.     '' CopyFile   MakePath (SRCDIR$, "LP_WIN\DB\pu.par"      ), MakePath (DEST$, "DB\pu.par"      ), cmOverwrite, 0
  186.     '' CopyFile   MakePath (SRCDIR$, "LP_WIN\DB\tezaurus.txt"), MakePath (DEST$, "DB\tezaurus.txt"), cmOverwrite, 0
  187.   ELSE
  188.     bOK% = myRemoveDir (DEST$ + "\DB")
  189.   END IF
  190.  
  191.   myModifyDblistFile SRCDIR$, DEST$, i%
  192.  
  193. END SUB
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201. ''------------------------------------------------------------------------
  202. ''                 SPRAWDZA CZY KATALOG ZAWIERA NIEZBEDNE ZBIORY ....
  203. ''------------------------------------------------------------------------
  204. FUNCTION TestDest (szDest$) STATIC AS INTEGER
  205.  
  206.   ret% = 1
  207.   TestDest = ret%
  208. END FUNCTION
  209.  
  210.  
  211.  
  212.  
  213. ''------------------------------------------------------------------------
  214. ''                 SPRAWDZA CZY KATALOG ZAWIERA NIEZBEDNE ZBIORY ....
  215. ''------------------------------------------------------------------------
  216. FUNCTION GetDestDefault () STATIC AS STRING
  217.  
  218.   PlwHomeSet$  = GetEnvVariableValue ("PLWHOME") 
  219.   IF  PlwHomeSet$ <> ""  THEN
  220.     GetDestDefault = PlwHomeSet$
  221.   ELSE
  222.     GetDestDefault = STR_INSTALL_KATALOG
  223.   END IF
  224.  
  225. END FUNCTION
  226.  
  227.  
  228.  
  229.