PAlign2/palign2.cpp at master · gasilvis/PAlign2 · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
USERES("palign2.res");
USEFORM("Unit1.cpp", Form1);
USEFORM("aboutbox.cpp", fAbout);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   try
   {
      Application->Initialize();
      Application->HelpFile = "C:\\projects\\astro\\palign2\\palign2.hlp";
       Application->Title = "Polar Align 2 Star";
       Application->CreateForm(__classid(TForm1), &Form1);
      Application->CreateForm(__classid(TfAbout), &fAbout);
      Application->Run();
   }
   catch (Exception &exception)
   {
      Application->ShowException(&exception);
   }
   return 0;
}
//---------------------------------------------------------------------------