Реферат Створення менеджера конфігурації Celestia

t;ReadString(«Messages»,«Message9»,«Settings were imported successfully!»);[10]=Lang->ReadString(«Messages»,«Message10»,«Settings were successfully exported to a file »);

/ / ПЕРЕВІРКА РОЗТАШУВАННЯ ПРОГРАМИ (FileExists (ExtractFilePath (Application-> ExeName) + «celestia.cfg») && FileExists (ExtractFilePath (Application-> ExeName) + «celestia . exe ») | | FileExists (ExtractFilePath (Application-> ExeName) +« celestia161-ED.exe ») | | FileExists (ExtractFilePath (Application-> ExeName) +« Celestia EP.exe »))

{= true; (ExtractFilePath (Application-> ExeName) + «temp»);->Caption=«|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|»;->Caption=«|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|n|»;

}

{(Application-> MessageBox (MessegesLocale [1]. c_str (), Application-> Title.c_str (), MB_OK | MB_ICONEXCLAMATION) == MB_OK)

{= false;

}

}

}

/ / ---------------------------------------------------------------------------

/ / Функція отримання версії exe файла__fastcall TMainForm :: GetVer (String FileName)

{

String Version;

DWORD h;

DWORD Size=GetFileVersionInfoSize (FileName.c_str (), & h);

if (Size == 0)

{= StringsLocale [1]. c_str ();

return Version;

}

TCHAR * buf;

buf=(TCHAR *) GlobalAlloc (GMEM_FIXED, Size);

if (GetFileVersionInfo (FileName.c_str (), h, Size, buf)!=0)

{ValueBuf;

UINT Len;

if (VerQueryValue (buf, L ««, & (void *) ValueBuf, & Len)!=0)=String (). sprintf (L »% d.% d .% d »,

HIWORD (ValueBuf-> dwFileVersionMS), (ValueBuf-> dwFileVersionMS),

HIWORD (ValueBuf-> dwFileVersionLS), (ValueBuf-> dwFileVersionLS));

}

GlobalFree (buf); Version;

}

//---------------------------------------------------------------------------__fastcall TMainForm :: FormShow (TObject * Sender)

{(! startfolder)> Terminate ();

{

/ / Включаємо видимість форми> AlphaBlend=false;

/ / Зчитування версії Celestia(FileExists(ExtractFilePath(Application->ExeName)+«celestia161-ED.exe»))=«Celestia 1.6.1 Educational »;

{(FileExists(ExtractFilePath(Application->ExeName)+«documents«+»Информация про Celestia EP v3.0.pdf »))

{= «Celestia Extended Pack v3.0»; -> Enabled=true;

}(FileExists(ExtractFilePath(Application->ExeName)+«documents«+»Информация про Celestia EP v2.0.pdf »))

Назад | сторінка 28 з 60 | Наступна сторінка