Subversion Repositories NedoOS

Rev

Rev 8 | Blame | Compare with Previous | Last modification | View Log | Download

  1. //---------------------------------------------------------------------------
  2.  
  3. #include <vcl.h>
  4. #pragma hdrstop
  5. USERES("gui.res");
  6. USEFORM("guiUnit1.cpp", Form1);
  7. //---------------------------------------------------------------------------
  8. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  9. {
  10.         try
  11.         {
  12.                  Application->Initialize();
  13.                  Application->CreateForm(__classid(TForm1), &Form1);
  14.                  Application->Run();
  15.         }
  16.         catch (Exception &exception)
  17.         {
  18.                  Application->ShowException(&exception);
  19.         }
  20.         return 0;
  21. }
  22. //---------------------------------------------------------------------------
  23.