Додаток А Лістинг головної програми

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include <tchar.h>

#include "main.h"

//---------------------------------------------------------------------------

USEFORM("wait.cpp", Waiting);

USEFORM("main.cpp", Window);

//---------------------------------------------------------------------------

WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)

{

try

{

Application->Initialize();

Application->MainFormOnTaskBar = true;

Application->CreateForm(__classid(TWindow), &Window);

Application->CreateForm(__classid(TWaiting), &Waiting);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

catch (...)

{

try

{

throw Exception("");

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

}

return 0;

}

//---------------------------------------------------------------------------