embeddedide.cpp

嵌入式IDE

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("ConJoinHost.cpp", ConJoinDockHost);
USEFORM("DockForm.cpp", DockableForm);
USEFORM("FileBrowser.cpp", FileBrowserForm);
USEFORM("IDE.cpp", IdeForm);
USEFORM("Logo.cpp", LogoForm);
USEFORM("OutputWindow.cpp", OutputWindowForm);
USEFORM("ProjectWindow.cpp", ProjectWindowForm);
USEFORM("SourceEditor.cpp", SourceEditorForm);
USEFORM("TabHost.cpp", TabDockHost);
USEFORM("WatchWindow.cpp", WatchWindowForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
	CreateMutex(NULL,true,"__EMBEDDED_IDE__");
    if(GetLastError() == ERROR_ALREADY_EXISTS)
    {
        HWND HIdeForm = FindWindow("TIdeForm", NULL);
        if(HIdeForm)
        {
            if(IsIconic(HIdeForm))
                ShowWindow(HIdeForm,SW_RESTORE);
            else
                SetForegroundWindow(HIdeForm);
        }
        return 0;
    }
    try
    {
         Application->Initialize();
         Application->CreateForm(__classid(TIdeForm), &IdeForm);
         Application->CreateForm(__classid(TConJoinDockHost), &ConJoinDockHost);
         Application->CreateForm(__classid(TDockableForm), &DockableForm);
         Application->CreateForm(__classid(TFileBrowserForm), &FileBrowserForm);
         Application->CreateForm(__classid(TLogoForm), &LogoForm);
         Application->CreateForm(__classid(TOutputWindowForm), &OutputWindowForm);
         Application->CreateForm(__classid(TProjectWindowForm), &ProjectWindowForm);
         Application->CreateForm(__classid(TTabDockHost), &TabDockHost);
         Application->CreateForm(__classid(TWatchWindowForm), &WatchWindowForm);
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    catch (...)
    {
         try
         {
             throw Exception("");
         }
         catch (Exception &exception)
         {
             Application->ShowException(&exception);
         }
    }
    return 0;
}
//---------------------------------------------------------------------------