procedure CreateMainWindow;
var
 AMessage: TMsg;
 AWindowClassEx: TWndClassEx;
begin
 MainMenu := CreateMenu;
 AWindowClassEx.cbSize:= sizeOf(TWndClassEx);
 AWindowClassEx.lpszClassName:= WINDOW_CLASS_NAME;
 AWindowClassEx.style:= CS_VREDRAW or CS_HREDRAW;
 AWindowClassEx.hInstance:= HInstance;
 AWindowClassEx.lpfnWndProc:= @HandlerToMainWindow;
 AWindowClassEx.cbClsExtra:= 0;
 AWindowClassEx.cbWndExtra:= 0;
 AWindowClassEx.hIcon:= LoadIcon(hInstance, MakeIntResource('MAINICON'));
 AWindowClassEx.hIconSm:= LoadIcon(hInstance, MakeIntResource('MAINICON'));
 AWindowClassEx.hCursor:= LoadCursor(0, idc_Arrow);
 AWindowClassEx.hbrBackground:= 16;
 AWindowClassEx.lpszMenuName:= nil;
 if RegisterClassEx(AWindowClassEx) = 0
 then
   PostQuitMessage(0)
 else
 begin
   MenuFile:= CreatePopupMenu;
   MenuAbout:= CreatePopupMenu;
   AWindowHandle:= CreateWindowEx(0,
                                  AWindowClassEx.lpszClassName,
                                  WINDOW_TITLE,
                                  DS_MODALFRAME or
                                  WS_MINIMIZEBOX or
                                  WS_CAPTION or
                                  WS_SYSMENU,
                                  ALeft, ATop,
                                  WINDOW_WIDTH, WINDOW_HEIGHT,
                                  0,
                                  MainMenu,
                                  HInstance,
                                  nil);
   CreateMenuItem(MainMenu, MenuFile, 'Файл', 0, MENU_FILE, False);
   CreateMenuItem(MenuFile, 0, 'Выход', 0, SUBMENU_EXIT, False);
   CreateMenuItem(MainMenu, MenuAbout, 'Справка', 0, MENU_ABOUT, False);
   CreateMenuItem(MenuAbout, 0, 'О программе...', 0, SUBMENU_ABOUT, False);
   DrawMenuBar(AWindowHandle);
   CreateControls;
   RegisterHotkey(AWindowHandle, 1, MOD_ALT,ord('A'));
   if AWindowHandle = 0
   then
     PostQuitMessage(0)
   else
   begin
     ShowWindow(AWindowHandle, SW_SHOWNORMAL);
     while GetMessage(AMessage, 0, 0, 0) do
     begin
       TranslateMessage(AMessage);
       DispatchMessage(AMessage);
     end; {while}
   end; {else}
 end; {else}
end;

function CreateMenuItem(hMenu, SubMenu: HMENU; Cap: PChar;
                       _uID, _wID: UINT; Sep: Boolean): Boolean;
var
 Mi: MENUITEMINFO;
begin
 with Mi do
   begin
     cbSize:= SizeOf(Mi);
     fMask:= MIIM_STATE or MIIM_TYPE or MIIM_SUBMENU or MIIM_ID;
     if not Sep
       then fType:= MFT_STRING
       else fType:= MFT_SEPARATOR;
     fState:= MFS_ENABLED;
     wID:= _wID;
     hSubMenu:= SubMenu;
     dwItemData:= 0;
     dwTypeData:= Cap;
     cch:= SizeOf(Cap);
   end;
 Result:= InsertMenuItem(hMenu, _uID, false, Mi);
end;