threads5.cpp

来自「SQLDirect Component Library is a light-w」· C++ 代码 · 共 26 行

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
USERES("Threads5.res");
USEFORMNS("Main.pas", Main, MainFrm);
USEUNIT("InsThrd.pas");
USEFORMNS("Login.pas", Login, LoginDlg);
USEFORMNS("DataMod.pas", Datamod, dmMain); /* TDataModule: DesignClass */
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
        Application->Initialize();
        Application->CreateForm(__classid(TdmMain), &dmMain);
        Application->CreateForm(__classid(TMainFrm), &MainFrm);
        Application->Run();
    }
    catch (Exception &exception)
    {
        Application->ShowException(&exception);
    }
    return 0;
}
//---------------------------------------------------------------------------