TheFreeSongSinger/ProjectTFS2.cpp at main · JacobBaartse/TheFreeSongSinger · 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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
/*
Open source not for commercial deployment
*/
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("GlobalUnit.cpp", MainForm);
USEFORM("OutputScreenUnit.cpp", OutputScreen);
USEFORM("Setup.cpp", SetupScreen);
USEFORM("EditSong.cpp", EditSongForm);
USEFORM("DirectEdit.cpp", DirectEditForm);
USEFORM("EditPlaylist.cpp", FormEditPlaylist);
USEFORM("PreviewUnit.cpp", Preview);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->Title = "The Free Song Singer 2";
                 Application->CreateForm(__classid(TMainForm), &MainForm);
                 Application->CreateForm(__classid(TOutputScreen), &OutputScreen);
                 Application->CreateForm(__classid(TSetupScreen), &SetupScreen);
                 Application->CreateForm(__classid(TEditSongForm), &EditSongForm);
                 Application->CreateForm(__classid(TDirectEditForm), &DirectEditForm);
                 Application->CreateForm(__classid(TFormEditPlaylist), &FormEditPlaylist);
                 Application->CreateForm(__classid(TPreview), &Preview);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 //Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         //Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------