---------------------------------------------------------------------------
| 18 | extern bool bHideToTray; |
| 19 | //--------------------------------------------------------------------------- |
| 20 | WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR ParamStr, int) |
| 21 | { |
| 22 | bHideToTray = SameText(ParamStr, "tray"); |
| 23 | try |
| 24 | { |
| 25 | Application->Initialize(); |
| 26 | SetApplicationMainFormOnTaskBar(Application, true); |
| 27 | Application->Title = "Visual Syslog Server"; |
| 28 | Application->CreateForm(__classid(TMainForm), &MainForm); |
| 29 | Application->Run(); |
| 30 | } |
| 31 | catch (Exception &exception) |
| 32 | { |
| 33 | Application->ShowException(&exception); |
| 34 | } |
| 35 | catch (...) |
| 36 | { |
| 37 | try |
| 38 | { |
| 39 | throw Exception(""); |
| 40 | } |
| 41 | catch (Exception &exception) |
| 42 | { |
| 43 | Application->ShowException(&exception); |
| 44 | } |
| 45 | } |
| 46 | return 0; |
| 47 | } |
| 48 | //--------------------------------------------------------------------------- |
nothing calls this directly
no test coverage detected