www.pudn.com > 一个利用VC Socket进行文件传输的例子.rar > Project1.cpp

//--------------------------------------------------------------------------- 
 
#include  
#pragma hdrstop 
//--------------------------------------------------------------------------- 
USEFORM("Unit1.cpp", Form1); 
//--------------------------------------------------------------------------- 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) 
{ 
	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; 
} 
//---------------------------------------------------------------------------