ftpsdemob6.cpp

来自「著名的SecureBlackBox控件完整源码」· C++ 代码 · 共 49 行

#undef SetPort
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("FTPUnit.cpp", FTPForm);
USEFORM("AboutForm.cpp", frmAbout);
USEFORM("ConnPropsForm.cpp", frmConnProps);
#include "SBUtils.hpp"

//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 SetLicenseKey((AnsiString)"1B7E829FC081C1788415E9079933176672F293A4BCCE78C035672F35F0D91AB3" +
                                           "D2D1EBC93824EDBFEA2CB623971EA31C90210B279D21A11C1FA5088A3D162A94" +
                                           "6738D97F9B70B3372CA1691226F4F1479E17FCDF22176B1DA3D19487B9C61E32" +
                                           "B61B7577F11F869D031EAD1702F852A26F91155CB956E4CB3E0814B0680A3517" +
                                           "6CD51FE61CF7C642E26F3D2E2AFF14AEC197B253611DEE6B6EBD429065112DD2" +
                                           "B7E37562C2683CAC49FE76563FC8E56E1FDC340709FB0DF16F94F85CEA044622" +
                                           "ADFBCE6DBBB0C7E1F5C9B0348ECB0E5995382C5A5DCE8916DAC3AFEC77F6865A" +
                                           "E313C65C9A9B0829DD5647E0D729F27B272D200F20D4BD8ED4A917A67295D446");
                 Application->Initialize();
                 Application->CreateForm(__classid(TFTPForm), &FTPForm);
                 Application->CreateForm(__classid(TfrmAbout), &frmAbout);
                 Application->CreateForm(__classid(TfrmConnProps), &frmConnProps);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        catch (...)
        {
                 try
                 {
                         throw Exception("");
                 }
                 catch (Exception &exception)
                 {
                         Application->ShowException(&exception);
                 }
        }
        return 0;
}
//---------------------------------------------------------------------------