Version... example for C++ Builder

This example puts the version information into a string and displays the string in a message box.

void __fastcall TForm1::Button3Click(TObject *Sender)

{
    System::AnsiString LevelStr, cMsg;

    if (Lead1->VersionLevel == TOOLKIT_LEVEL_EXP) 
       LevelStr = "Document/Medical editions ";
    else 
       LevelStr = "Professional Edition";
    cMsg = Lead1->VersionProduct + "\n" + LevelStr + "\n";
    cMsg = cMsg + "Version: " + IntToStr(Lead1->VersionMajor) + ".";
    cMsg = cMsg + IntToStr(Lead1->VersionMinor) + "\n";
    cMsg = cMsg + "Date produced: " + Lead1->VersionDate + "\n";
    cMsg = cMsg + "Time produced: " + Lead1->VersionTime + "\n";

// Display the message box
Application->MessageBox(cMsg.c_str(), "Version Info", MB_OK);

}