First commit 18/11/2001
This commit is contained in:
26
Esergui -BDE utilizando API/EserguiBDE/ESERGUISA.cpp
Normal file
26
Esergui -BDE utilizando API/EserguiBDE/ESERGUISA.cpp
Normal file
@ -0,0 +1,26 @@
|
||||
//---------------------------------------------------------------------------
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
USERES("ESERGUISA.res");
|
||||
USEFORM("Principal.cpp", Form1);
|
||||
USEUNIT("Esergui.cpp");
|
||||
USELIB("BDEMONTREL.lib");
|
||||
USEFORM("Report.cpp", QuickReport1); /* TQuickRep: DesignClass */
|
||||
USEUNIT("Dialogo.cpp");
|
||||
//---------------------------------------------------------------------------
|
||||
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
|
||||
{
|
||||
try
|
||||
{
|
||||
Application->Initialize();
|
||||
Application->CreateForm(__classid(TForm1), &Form1);
|
||||
Application->CreateForm(__classid(TQuickReport1), &QuickReport1);
|
||||
Application->Run();
|
||||
}
|
||||
catch (Exception &exception)
|
||||
{
|
||||
Application->ShowException(&exception);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
Reference in New Issue
Block a user