justify"> {= «Celestia Extended Pack v2.0»; -> Visible=true;
} (FileExists (ExtractFilePath (Application-> ExeName) + «Інформація про Celestia EP v1.1.txt»))=«Celestia Extended Pack v1.1»; (FileExists (ExtractFilePath (Application-> ExeName) + «Інформація про Celestia EP.txt»))=«Celestia Extended Pack v1.0»;
}(CelestiaVersion!=«»)->Caption=Label19->Caption+CelestiaVersion;
{
/ / Перевірка версії Celestia-> Caption=Label19-> Caption + «Celestia »+GetVer(ExtractFilePath(Application->ExeName)+«celestia.exe»);(GetVer(ExtractFilePath(Application->ExeName)+«celestia.exe»)!=«1.6.1»)
{-> Caption=Label19-> Caption + StringsLocale [2]; -> Visible=true;
}
}
/ / Авторська захист> Caption=«© Alexell n» + StringsLocale [3] + «:» + GetVer (Application-> ExeName) + « (28.04.2014) »; -> Caption =« celestiaproject »;
/ / Установка проксі для режиму Debug
# ifdef _DEBUG
Web->ProxyParams->BasicAuthentication=true;>ProxyParams->ProxyServer=«192.168.200.110»;>ProxyParams->ProxyPort=3128;>ProxyParams->ProxyUsername=«sunduk»;>ProxyParams->ProxyPassword=«gbplf»;
# endif
/ / Блок посилань «Рекомендуємо скачати» * TMP=new TStringList;
{(Language==«Russian»)>Text=Web->Get(«#»justify«>}(...){}TMP;= new TIniFile(ExtractFilePath(Application->ExeName)+»manager«+»links.ini«);->Caption=Links->ReadString(»Link1«,»Caption«,StringsLocale[4]);->Caption=Links->ReadString(»Link2«,»Caption«,StringsLocale[4]);->Caption=Links->ReadString(»Link3«,»Caption«,StringsLocale[4]);->Caption=Links->ReadString(»Link4«,»Caption«,StringsLocale[4]);[1]=Links->ReadString(»Link1«,»URL«,StringsLocale[4]);[2]=Links->ReadString(»Link2«,»URL«,StringsLocale[4]);[3]=Links->ReadString(»Link3«,»URL«,StringsLocale[4]);[4]=Links->ReadString(»Link4«,»URL",StringsLocale[4]);
delete Links;
/ / ПЕРЕВІРКА ВКЛАДКИ «ОСНОВНІ»
TStringList * MainProv=new TStringList; * DirList=new TStringList; OrbitP=«OrbitPathSamplePoints»; RingsP=«RingSystemSections »;op;rp;OrbitDigit=«»;RingDigit=«»;>LoadFromFile(ExtractFilePath(Application->ExeName) + «Celestia.cfg»);
/ / Зчитування папок з дополнениями[3]=ExtractFilePath(Application->ExeName);>LoadFromFile(S[3]+«celestia.cfg»);(int i=0; i Count; i + +) ((DirList-> St...
