1
2 //---------------------------------------------------------------------------
3
4 #include <vcl.h>
5
6 #include <DBTables.hpp>
7 #pragma hdrstop
8 #include "Unit1.h"
9 //---------------------------------------------------------------------------
10 #pragma package(smart_init)
11 #pragma resource "*.dfm"
12 TForm1 *Form1;
13 //---------------------------------------------------------------------------
14 __fastcall TForm1::TForm1(TComponent* Owner)
15 : TForm(Owner)
16 {
17 }
18
19 void fDbiGetSysVersion(TStringList* List){
20
21 WORD Month, Day, iHour, iMin, iSec;
22 Smallint Year;
23 SYSVersion Ver;
24
25 Check(DbiGetSysVersion(Ver));
26 List->Clear();
27 List->Add("ENGINE VERSION="+IntToStr( Ver.iVersion));
28 List->Add("INTERFACE LEVEL="+ IntToStr(Ver.iIntfLevel));
29 Check(DbiDateDecode(Ver.dateVer, Month, Day, Year));
30 List->Add("VERSION DATE="+ DateToStr(EncodeDate(Year, Month, Day)));
31 Check(DbiTimeDecode(Ver.timeVer, iHour, iMin, iSec));
32 List->Add("VERSION TIME="+ TimeToStr(EncodeTime(iHour, iMin, iSec / 1000, iSec /
33 100)));
34 }
35
36 //---------------------------------------------------------------------------
37
38 void __fastcall TForm1::Button1Click(TObject *Sender)
39 {
40
41 TStringList* SL = new TStringList;
42 try
43 {
44 fDbiGetSysVersion(SL);
45 }
46 catch (...)
47 {
48 ShowMessage("BDE not installed !");
49 }
50
51 Memo1->Lines->Assign(SL);
52 SL->Free();
53 }
54 //---------------------------------------------------------------------------
|
