2021-07-01 18:02:16 +02:00
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
|
|
|
|
#include <vcl.h>
|
|
|
|
#pragma hdrstop
|
|
|
|
#include <tchar.h>
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
#include <Vcl.Styles.hpp>
|
|
|
|
#include <Vcl.Themes.hpp>
|
|
|
|
USEFORM("ConfigFormUnit.cpp", ConfigForm);
|
|
|
|
//---------------------------------------------------------------------------
|
|
|
|
int WINAPI _tWinMain(HINSTANCE, HINSTANCE, LPTSTR, int)
|
|
|
|
{
|
|
|
|
try
|
|
|
|
{
|
|
|
|
Application->Initialize();
|
|
|
|
Application->MainFormOnTaskBar = true;
|
2023-08-04 11:45:21 +02:00
|
|
|
TStyleManager::TrySetStyle("Windows10");
|
2021-07-01 18:02:16 +02:00
|
|
|
Application->CreateForm(__classid(TConfigForm), &ConfigForm);
|
|
|
|
Application->Run();
|
|
|
|
}
|
|
|
|
catch (Exception &exception)
|
|
|
|
{
|
|
|
|
Application->ShowException(&exception);
|
|
|
|
}
|
|
|
|
catch (...)
|
|
|
|
{
|
|
|
|
try
|
|
|
|
{
|
|
|
|
throw Exception("");
|
|
|
|
}
|
|
|
|
catch (Exception &exception)
|
|
|
|
{
|
|
|
|
Application->ShowException(&exception);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
//---------------------------------------------------------------------------
|