[sariman]

Код:

WM_COMMAND:
    case LoWord(wParam) of
      ID_ADDFILES: AddFiles;
      ID_HOTKEYS: MessageBox(Wnd, MsgHotKeys, MsgHotKeysCap, 64);
      ID_REDUCENAME:
      case ((GetMenuState(Menu, LOWORD(wParam), MF_BYCOMMAND) and
        MF_CHECKED) = MF_CHECKED) of
        True: begin
          CheckMenuItem(Menu, LOWORD(wParam), MF_BYCOMMAND or MF_UNCHECKED);
        end;
        False: begin CheckMenuItem(Menu, LOWORD(wParam), MF_BYCOMMAND or
          MF_CHECKED);
        end;
      end;
      ID_ONTOP:
      case ((GetMenuState(Menu, LOWORD(wParam), MF_BYCOMMAND) and
        MF_CHECKED) = MF_CHECKED) of
        True: begin
          // Снмаеи чек элемента
          CheckMenuItem(Menu, LOWORD(wParam), MF_BYCOMMAND or MF_UNCHECKED);
          SetWindowPos(Wnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
        end;
        False: begin
          // Ставим чек элементу
          CheckMenuItem(Menu, LOWORD(wParam), MF_BYCOMMAND or
            MF_CHECKED);
                    SetWindowPos(Wnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
        end;
      end;