| 2218 |
sbetterm |
1 |
//---------------------------------------------------------------------------
|
|
|
2 |
|
|
|
3 |
#include <vcl.h>
|
|
|
4 |
#pragma hdrstop
|
|
|
5 |
//---------------------------------------------------------------------------
|
|
|
6 |
USEFORM("DataModule.cpp", Data_Module); /* TDataModule: File Type */
|
|
|
7 |
USEFORM("InitProgress.cpp", InitValuesProgressForm);
|
|
|
8 |
USEFORM("IterationConfig.cpp", IterationConfigForm);
|
|
|
9 |
USEFORM("Login.cpp", LoginForm);
|
|
|
10 |
USEFORM("Main.cpp", MainForm);
|
|
|
11 |
USEFORM("ParameterScope.cpp", ParameterScopeForm);
|
|
|
12 |
USEFORM("ProjectConfig.cpp", ProjectConfigForm);
|
|
|
13 |
USEFORM("RunTests.cpp", RunTestsForm);
|
|
|
14 |
USEFORM("ScenarioParameters.cpp", ScenarioParamsForm);
|
|
|
15 |
USEFORM("TestDirectorImport.cpp", TestDirectorImportForm);
|
|
|
16 |
USEFORM("TestDirectorLogin.cpp", TestDirectorLoginForm);
|
|
|
17 |
USEFORM("TestScenarioProperties.cpp", TestScenarioPropertiesForm);
|
|
|
18 |
USEFORM("TransactionConfig.cpp", TxnConfig);
|
|
|
19 |
//---------------------------------------------------------------------------
|
|
|
20 |
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
|
|
|
21 |
{
|
|
|
22 |
try
|
|
|
23 |
{
|
|
|
24 |
Application->Initialize();
|
|
|
25 |
Application->Title = "Transaction Test Manager";
|
|
|
26 |
Application->CreateForm(__classid(TData_Module), &Data_Module);
|
|
|
27 |
Application->CreateForm(__classid(TMainForm), &MainForm);
|
|
|
28 |
Application->CreateForm(__classid(TProjectConfigForm), &ProjectConfigForm);
|
|
|
29 |
Application->CreateForm(__classid(TIterationConfigForm), &IterationConfigForm);
|
|
|
30 |
Application->CreateForm(__classid(TTxnConfig), &TxnConfig);
|
|
|
31 |
Application->CreateForm(__classid(TRunTestsForm), &RunTestsForm);
|
|
|
32 |
Application->CreateForm(__classid(TTestDirectorImportForm), &TestDirectorImportForm);
|
|
|
33 |
Application->CreateForm(__classid(TLoginForm), &LoginForm);
|
|
|
34 |
Application->CreateForm(__classid(TScenarioParamsForm), &ScenarioParamsForm);
|
|
|
35 |
Application->CreateForm(__classid(TParameterScopeForm), &ParameterScopeForm);
|
|
|
36 |
Application->CreateForm(__classid(TInitValuesProgressForm), &InitValuesProgressForm);
|
|
|
37 |
Application->CreateForm(__classid(TTestDirectorLoginForm), &TestDirectorLoginForm);
|
|
|
38 |
Application->CreateForm(__classid(TTestScenarioPropertiesForm), &TestScenarioPropertiesForm);
|
|
|
39 |
Application->Run();
|
|
|
40 |
}
|
|
|
41 |
catch (Exception &exception)
|
|
|
42 |
{
|
|
|
43 |
Application->ShowException(&exception);
|
|
|
44 |
}
|
|
|
45 |
catch (...)
|
|
|
46 |
{
|
|
|
47 |
try
|
|
|
48 |
{
|
|
|
49 |
throw Exception("");
|
|
|
50 |
}
|
|
|
51 |
catch (Exception &exception)
|
|
|
52 |
{
|
|
|
53 |
Application->ShowException(&exception);
|
|
|
54 |
}
|
|
|
55 |
}
|
|
|
56 |
return 0;
|
|
|
57 |
}
|
|
|
58 |
//---------------------------------------------------------------------------
|