На каком языке написан 1С?

http://www.sources.ru/cpp/cpp_mfc_under_the_hood.shtml

Простейшее MFC приложение: Менее 20-ти строк кода

Далее мы рассмотрим простейшую структуру MFC приложения. Так как наша задача обеспечить присутствие в приложении WinMain и WndProc, то необходимо унаследовать для этих функций MFC классы.

Класс приложения мы будем наследовать от MFC класса CWinApp. CWinApp все необходимые функции и переменные для инициализации, запуска и закрытия приложения. CWinApp так же содержит указатель m_pMainWnd, который указывает на объект класса основного окна. Каждое MFC проложение имеет один и только один объект, наследованный непосредственно от CWinApp. В примере, приведённом ниже, он имеет название "CMyApp."

Класс, обслуживающий окно, будем наследовать от CFrameWnd. CFrameWnd так же имеет все необходимые функции и переменные, необходимые для создания и управления окнами. Обратите внимание, что фактически создание объекта окна не влечёт за собой непосредственное создание самого окна, а только содержит в себе функцию Create(), необходимую для создания окна.

Давайте посмотрим, что происходит при запуске нашей программы. Эти этапы можно отследить в приведённом ниже примере:
WinMain начинает работать с точки: CMyApp app; Создаётся объект типа CMyApp с именем "app." App содержит все переменные-члены и функции CWinApp, которые необходимы для запуска и завершения нашего приложения.
Затем WinMain вызывает функцию InitInstance( ) нашего app. InitInstance() создаёт новый объект CMyWnd с m_pMainWnd = new CMyWnd;
Конструктор CMyWnd вызывает функцию Create( ), которая создаёт экземпляр окна, но не отображает его.
Далее функция InitInstance() отображает окно командой m_pMainWnd-> ShowWindow(m_nCmdShow);
WinMain вызывает функцию Run( ), которая посылает сообщения остальной части приложения.

А вот собственно сам пример:

#include <afxwin.h>

//наследуем наш класс окна от CFrameWnd
class CMyWin: public CFrameWnd
{
public:
CMyWin( );
DECLARE_MESSAGE_MAP( )
};

//объявляем конструктор для нашего класса окна:
CMyWin::CMyWin( )
{
Create(0, "This Text Will Appear in the Title Bar");
}

//наследуем класс приложения от CWinApp
class CMyApp: public CWinApp
{
public:
virtual BOOL InitInstance( );
};

//определяем функцию InitInstance( ) длдя класса приложения
BOOL CMyApp::InitInstance( )
{
m_pMainWnd = new CMyWin( );
m_pMainWnd->ShowWindow(m_nCmdShow);
m_pMainWnd->UpdateWindow();
return TRUE;
}

//далее следует карта сообщений нашего приложения
BEGIN_MESSAGE_MAP(CMyWin, CFrameWnd)
// здесь располагается список сообщений, которые
// будут обработаны классом CMyWin.
END_MESSAGE_MAP( )

//создаём объект нашего приложения
CMyApp app;