Return to threadcreate.cpp CVS log

Up to [Synchronet] / sbbs / xpdev / clx / threadcreate

Annotation of sbbs/xpdev/clx/threadcreate/threadcreate.cpp, revision 1.1.1.1

1.1       root        1: //---------------------------------------------------------------------------
                      2: 
                      3: #include <clx.h>
                      4: #pragma hdrstop
                      5: USEFORM("MainUnit.cpp", Form1);
                      6: //---------------------------------------------------------------------------
                      7: #if defined(_WIN32)
                      8: WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
                      9: #else
                     10: int main(void)
                     11: #endif
                     12: {
                     13:        try
                     14:        {
                     15:                Application->Initialize();
                     16:                Application->CreateForm(__classid(TForm1), &Form1);
                     17:                Application->Run();
                     18:        }
                     19:        catch (Exception &exception)
                     20:        {
                     21:                Application->ShowException(&exception);
                     22:        }
                     23:        catch(...)
                     24:        {
                     25:                try
                     26:                {
                     27:                        throw Exception("");
                     28:                }
                     29:                catch(Exception &exception)
                     30:                {
                     31:                        Application->ShowException(&exception);
                     32:                }
                     33:        }
                     34:        return 0;
                     35: }
                     36: //---------------------------------------------------------------------------

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.