| 2263 |
kivins |
1 |
//---------------------------------------------------------------------------
|
|
|
2 |
|
|
|
3 |
#include <vcl.h>
|
|
|
4 |
#pragma hdrstop
|
|
|
5 |
//---------------------------------------------------------------------------
|
|
|
6 |
USEFORM("DataModule.cpp", Data_Module); /* TDataModule: File Type */
|
|
|
7 |
USEFORM("GenerationProperties.cpp", GenerationPropertiesForm);
|
|
|
8 |
USEFORM("InitProgress.cpp", InitValuesProgressForm);
|
|
|
9 |
USEFORM("Login.cpp", LoginForm);
|
|
|
10 |
USEFORM("Main.cpp", MainForm);
|
|
|
11 |
USEFORM("ParameterScope.cpp", ParameterScopeForm);
|
|
|
12 |
USEFORM("ScenarioParameters.cpp", ScenarioParamsForm);
|
|
|
13 |
USEFORM("TestScenarioProperties.cpp", TestScenarioPropertiesForm);
|
|
|
14 |
USEFORM("TransactionConfig.cpp", TxnConfig);
|
| 2265 |
kivins |
15 |
USEFORM("About.cpp", AboutForm);
|
| 2263 |
kivins |
16 |
//---------------------------------------------------------------------------
|
|
|
17 |
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
|
|
|
18 |
{
|
|
|
19 |
try
|
|
|
20 |
{
|
|
|
21 |
Application->Initialize();
|
|
|
22 |
Application->Title = "Transaction Test Manager";
|
|
|
23 |
Application->CreateForm(__classid(TData_Module), &Data_Module);
|
|
|
24 |
Application->CreateForm(__classid(TMainForm), &MainForm);
|
|
|
25 |
Application->CreateForm(__classid(TLoginForm), &LoginForm);
|
|
|
26 |
Application->CreateForm(__classid(TTxnConfig), &TxnConfig);
|
|
|
27 |
Application->CreateForm(__classid(TScenarioParamsForm), &ScenarioParamsForm);
|
|
|
28 |
Application->CreateForm(__classid(TParameterScopeForm), &ParameterScopeForm);
|
|
|
29 |
Application->CreateForm(__classid(TInitValuesProgressForm), &InitValuesProgressForm);
|
|
|
30 |
Application->CreateForm(__classid(TTestScenarioPropertiesForm), &TestScenarioPropertiesForm);
|
|
|
31 |
Application->CreateForm(__classid(TGenerationPropertiesForm), &GenerationPropertiesForm);
|
| 2265 |
kivins |
32 |
Application->CreateForm(__classid(TAboutForm), &AboutForm);
|
| 2263 |
kivins |
33 |
Application->Run();
|
|
|
34 |
}
|
|
|
35 |
catch (Exception &exception)
|
|
|
36 |
{
|
|
|
37 |
Application->ShowException(&exception);
|
|
|
38 |
}
|
|
|
39 |
catch (...)
|
|
|
40 |
{
|
|
|
41 |
try
|
|
|
42 |
{
|
|
|
43 |
throw Exception("");
|
|
|
44 |
}
|
|
|
45 |
catch (Exception &exception)
|
|
|
46 |
{
|
|
|
47 |
Application->ShowException(&exception);
|
|
|
48 |
}
|
|
|
49 |
}
|
|
|
50 |
return 0;
|
|
|
51 |
}
|
|
|
52 |
//---------------------------------------------------------------------------
|