www.pudn.com > C++ Builder 6 编程实例教程.zip > Server.cpp, change:2002-04-14,size:726b

//--------------------------------------------------------------------------- 
 
#include <vcl.h> 
#pragma hdrstop 
USERES("Server.res"); 
USEFORM("MyServer.cpp", ServerForm); 
//--------------------------------------------------------------------------- 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) 
{ 
        try 
        { 
                 Application->Initialize(); 
                 Application->CreateForm(__classid(TServerForm), &ServerForm); 
                 Application->Run(); 
        } 
        catch (Exception &exception) 
        { 
                 Application->ShowException(&exception); 
        } 
        return 0; 
} 
//---------------------------------------------------------------------------