Return to threadcreate.cpp CVS log

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

3.12a Javascript

//---------------------------------------------------------------------------

#include <clx.h>
#pragma hdrstop
USEFORM("MainUnit.cpp", Form1);
//---------------------------------------------------------------------------
#if defined(_WIN32)
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
#else
int main(void)
#endif
{
	try
	{
		Application->Initialize();
		Application->CreateForm(__classid(TForm1), &Form1);
		Application->Run();
	}
	catch (Exception &exception)
	{
		Application->ShowException(&exception);
	}
	catch(...)
	{
		try
		{
			throw Exception("");
		}
		catch(Exception &exception)
		{
			Application->ShowException(&exception);
		}
	}
	return 0;
}
//---------------------------------------------------------------------------

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