TApplicationVersion::Получение версии файла его автора и т.д.
Содержание1) Подключение
1.1) Распаковать архив в желаемое место
1.2) Для использования в вашем проекте подключите к проекту (Shift + F11) файл "GetApplicationVersion.cpp" и впишите строку вида #include "GetApplicationVersion.h" в тот файл который будет использовать функции этого класса.
Файлы GetApplicationVersion.cpp и GetApplicationVersion.h должны находится в одной папке!
CompanyName; FileDescription; FileVersion; InternalName; LegalCopyright; LegalTrademarks; OriginalFilename; ProductName; ProductVersion; Comments; Language.hexLanguage; Language.strLanguageТип данных вышеперечисленых свойств - AnsiString, т.е. можно сразу выводить в TLabel, TEdit или добавлять в TMemo (TRichEdit) и тд. Это удобно для формы "О программе". Language.lngHex; - выводит код языка т.е. строку вида 0x0000419, а Language.lngStr - имя самого языка на языке конечного пользователя.
void __fastcall TForm1::btn1Click(TObject *Sender) { if (dlgOpen->Execute()) { // create object of class "TApplicationVersion" TApplicationVersion *app = new TApplicationVersion(dlgOpen->FileName); // main information ListBox->Items->Add(app->Comments); ListBox->Items->Add(app->CompanyName); ListBox->Items->Add(app->FileDescription); ListBox->Items->Add(app->FileVersion); ListBox->Items->Add(app->InternalName); ListBox->Items->Add(app->LegalCopyright); ListBox->Items->Add(app->LegalTrademarks); ListBox->Items->Add(app->OriginalFilename); ListBox->Items->Add(app->ProductName); ListBox->Items->Add(app->ProductVersion); // addition information ListBox->Items->Add(DateTimeToStr(app->Create)); ListBox->Items->Add(DateTimeToStr(app->LastAccess)); ListBox->Items->Add(DateTimeToStr(app->Modified)); // getting languade of file ListBox->Items->Add(app->Language.lngHex); ListBox->Items->Add(app->Language.lngStr); // delete object of class delete app; } }
3) Автор
Ильяшенко Геннадий Юрьевич, aka Evil_Smile
sigismund.freud@gmail.com
www.devil-smile.narod.ru