www.pudn.com > 2.rar > ProLogin.cpp, change:2004-05-09,size:2188b

//--------------------------------------------------------------------------- 
 
#include <vcl.h> 
#pragma hdrstop 
#include "Flash.h" 
//--------------------------------------------------------------------------- 
USEFORM("login.cpp", Fmlogin); 
USEFORM("Flash.cpp", FmFlash); 
USEFORM("manage.cpp", main); 
USEFORM("datamodal.cpp", DM); /* TDataModule: File Type */ 
USEFORM("help.cpp", About); 
USEFORM("qrep.cpp", Report); 
USEFORM("calss.cpp", Fmclass); 
USEFORM("password.cpp", pwd); 
USEFORM("lookto.cpp", look); 
//--------------------------------------------------------------------------- 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) 
{ 
        try 
        { 
                 Application->Initialize(); 
 
                 TFmFlash * FlashFm = new TFmFlash(Application); 
                 FlashFm->Show(); 
                 FlashFm->Update(); 
                 Sleep(1000); 
 
                 Application->CreateForm(__classid(TFmlogin), &Fmlogin); 
                 Application->CreateForm(__classid(TFmFlash), &FmFlash); 
                 Application->CreateForm(__classid(Tmain), &main); 
                 Application->CreateForm(__classid(TDM), &DM); 
                 Application->CreateForm(__classid(TAbout), &About); 
                 Application->CreateForm(__classid(TReport), &Report); 
                 Application->CreateForm(__classid(TFmclass), &Fmclass); 
                 Application->CreateForm(__classid(Tpwd), &pwd); 
                 Application->CreateForm(__classid(Tlook), &look); 
                 FlashFm->Hide(); 
                 FlashFm->Close(); 
                  
                 Application->Run(); 
        } 
        catch (Exception &exception) 
        { 
                 Application->ShowException(&exception); 
        } 
        catch (...) 
        { 
                 try 
                 { 
                         throw Exception(""); 
                 } 
                 catch (Exception &exception) 
                 { 
                         Application->ShowException(&exception); 
                 } 
        } 
        return 0; 
} 
//---------------------------------------------------------------------------