root/trunk/Units/unit_Settings.pas
Download diff| 461 | 463 | ||
|---|---|---|---|
383 | unit_Consts, | 383 | unit_Consts, |
384 | ShlObj, | 384 | ShlObj, |
385 | ShellAPI, | 385 | ShellAPI, |
386 | IOUtils, | ||
386 | unit_Helpers; | 387 | unit_Helpers; |
387 | 388 | ||
388 | var | 389 | var |
... | ... | ||
468 | for I := 1 to ParamCount do | 469 | for I := 1 to ParamCount do |
469 | begin | 470 | begin |
470 | if not UseLocalData then | 471 | if not UseLocalData then |
471 | UseLocalData := (LowerCase(paramstr(I)) = STR_USELOCALDATA); | 472 | UseLocalData := (LowerCase(ParamStr(I)) = STR_USELOCALDATA); |
472 | if not UseLocalTemp then | 473 | if not UseLocalTemp then |
473 | UseLocalTemp := (LowerCase(paramstr(I)) = STR_USELOCALTEMP); | 474 | UseLocalTemp := (LowerCase(paramstr(I)) = STR_USELOCALTEMP); |
474 | if (LowerCase(paramstr(I)) = STR_USERDBS) and (paramstr(I + 1) <> '') then | 475 | if (LowerCase(ParamStr(I)) = STR_USERDBS) and (ParamStr(I + 1) <> '') then |
475 | begin | 476 | begin |
476 | DBFileName := paramstr(I + 1); | 477 | DBFileName := ParamStr(I + 1); |
477 | UserDatabase := True; | 478 | UserDatabase := True; |
478 | end; | 479 | end; |
479 | end; | 480 | end; |
... | ... | ||
506 | // устанавливаем временную папку | 507 | // устанавливаем временную папку |
507 | 508 | ||
508 | if not UseLocalTemp then | 509 | if not UseLocalTemp then |
509 | FTempDir := c_GetTempPath + '_myhomelib' | 510 | FTempDir := TPath.Combine(TPath.GetTempPath, '_myhomelib') |
510 | else | 511 | else |
511 | FTempDir := FAppPath + TEMP_DIR_NAME; | 512 | FTempDir := FAppPath + TEMP_DIR_NAME; |
512 | 513 | ||
... | ... | ||
942 | else | 943 | else |
943 | begin | 944 | begin |
944 | // Добавим апдейты по умолчанию | 945 | // Добавим апдейты по умолчанию |
945 | FUpdateList.Add('Lib.rus.ec [FB2]', '', 'last_librusec.info', 'librusec_update.zip', True, CT_LIBRUSEC_LOCAL_FB); | 946 | FUpdateList.Add('Lib.rus.ec [FB2]', '', 'last_librusec.info', 'librusec_update.zip', True, CT_LIBRUSEC_LOCAL_FB); |
946 | FUpdateList.Add('Lib.rus.ec [FB2]', '', '', 'daily_update.zip', False, CT_LIBRUSEC_LOCAL_FB); | 947 | FUpdateList.Add('Lib.rus.ec [FB2]', '', '', 'daily_update.zip', False, CT_LIBRUSEC_LOCAL_FB); |
947 | FUpdateList.Add('Lib.rus.ec OnLine [FB2]', '', 'last_librusec.info', 'librusec_update.zip', True, CT_LIBRUSEC_ONLINE_FB); | 948 | FUpdateList.Add('Lib.rus.ec OnLine [FB2]', '', 'last_librusec.info', 'librusec_update.zip', True, CT_LIBRUSEC_ONLINE_FB); |
948 | FUpdateList.Add('Lib.rus.ec OnLine [FB2]', '', 'last_extra.info', 'extra_update.zip', False, CT_LIBRUSEC_ONLINE_FB); | 949 | FUpdateList.Add('Lib.rus.ec OnLine [FB2]', '', 'last_extra.info', 'extra_update.zip', False, CT_LIBRUSEC_ONLINE_FB); |
949 | FUpdateList.Add('Lib.rus.ec [USR]', '', 'last_usr.info', 'usr_update.zip', True, CT_LIBRUSEC_USR); | 950 | FUpdateList.Add('Lib.rus.ec [USR]', '', 'last_usr.info', 'usr_update.zip', True, CT_LIBRUSEC_USR); |
950 | FUpdateList.Add('Flibusta OnLine [FB2]', '', 'last_flibusta.info', 'flubusta_update.zip', True, CT_LIBRUSEC_ONLINE_FB); | 951 | FUpdateList.Add('Flibusta OnLine [FB2]', '', 'last_flibusta.info', 'flubusta_update.zip', True, CT_LIBRUSEC_ONLINE_FB); |
951 | FUpdateList.Add('Flibusta OnLine [FB2]', '', 'last_flibusta_extra.info', 'flibusta_extra_update.zip', False, CT_LIBRUSEC_ONLINE_FB); | 952 | FUpdateList.Add('Flibusta OnLine [FB2]', '', 'last_flibusta_extra.info', 'flibusta_extra_update.zip', False, CT_LIBRUSEC_ONLINE_FB); |
952 | end; | 953 | end; |
953 | finally | 954 | finally |
954 | sl.Free; | 955 | sl.Free; |