Subversion Repositories DevTools

Rev

Rev 2218 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
2218 sbetterm 1 
//---------------------------------------------------------------------------
2 
 
3 
#include <vcl.h>
4 
#pragma hdrstop
5 
//---------------------------------------------------------------------------
6 
USEFORM("Unit1.cpp", MainForm);
7 
//---------------------------------------------------------------------------
8 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
9 
{
10 
	try
11 
	{
12 
		Application->Initialize();
13 
		Application->Title = "GridTest";
14 
		Application->CreateForm(__classid(TMainForm), &MainForm);
15 
		Application->Run();
16 
	}
17 
	catch (Exception &exception)
18 
	{
19 
		Application->ShowException(&exception);
20 
	}
21 
	catch (...)
22 
	{
23 
		try
24 
		{
25 
			throw Exception("");
26 
		}
27 
		catch (Exception &exception)
28 
		{
29 
			Application->ShowException(&exception);
30 
		}
31 
	}
32 
	return 0;
33 
}
34 
//---------------------------------------------------------------------------