home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 March / Chip_2000-03_cd.bin / zkuste / Delphi / kompon / d345 / gui2console.EXE / demos / BCB3 / DOSShell.cpp < prev    next >
C/C++ Source or Header  |  1998-05-08  |  708b  |  22 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl.h>
  3. #pragma hdrstop
  4. USERES("DOSShell.res");
  5. USEFORM("Unit1.cpp", Form1);
  6. //---------------------------------------------------------------------------
  7. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  8. {
  9.         try
  10.         {
  11.                  Application->Initialize();
  12.                  Application->CreateForm(__classid(TForm1), &Form1);
  13.                  Application->Run();
  14.         }
  15.         catch (Exception &exception)
  16.         {
  17.                  Application->ShowException(&exception);
  18.         }
  19.         return 0;
  20. }
  21. //---------------------------------------------------------------------------
  22.