1. Pascal / Говнокод #5642

    +110

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    procedure TMainForm.ApplicationEventsShortCut(var Msg: TWMKey;
  var Handled: Boolean);
begin
  if msg.CharCode <> vk_F11 then
    exit;
  raise Exception.Create('Вы хотите выйти из программы?');
end;

procedure TMainForm.ApplicationEventsException(Sender: TObject;
  E: Exception);
begin
  if Application.MessageBox(pchar('Произошла ошибка:'#13#10 + e.Message
    +
    #13#10'Нажмите Retry продолжить работу c программой.'#13#10'Нажмите Сancel чтобы завершить работу программы.'),
    'Ошибка', MB_RETRYCANCEL or MB_ICONINFORMATION or MB_SYSTEMMODAL) =
    ID_CANCEL then try
    MainData.MainDataBaseBeforeDisconnect(nil);
    Close;
  finally
    Application.Terminate;
  end;
  if not CaptureError(E) then
    Close;
end;

    предыдущий автор одного проекта таким вот нетривиальным образом сделал подтверждение выхода из программы. так понравилось, что не стал убивать, просто закомментарил. сейчас весть этот код заменен одной строчкой в OnCloseQuery.

    поясню, на всякий случай. по нажатию F11 поднимается эспепшен "Вы хотите выйти из программы?", этот экспепшен перехватывается на уровне TApplication, выводится сообщение "Произошла ошибка: "Вы хотите выйти из программы?"" с педалями "Retry" и "Cancel", и при нажатии на отмену прога тупо рубиться по Application.Terminate.

    непростое детство было у песателя, по ходу.

    Запостил: x77, 11 Февраля 2011

    Комментарии (5) RSS

    • ava Lure Of Chaos 11.02.2011 19:50 # 0

      эксепшон для выхода это пять.
      Ответить

      • ava x77 11.02.2011 21:59 # 0

        на самом деле, там еще один кусок кода есть, который в OnClose формы имитирует нажатие на F11. но это уже мелочи.
        Ответить

        • ava bugmenot 11.02.2011 23:14 # +5

          о, это же самый дельфи-стайл, сначала наложить большую кучу, а потом ровно размазать
          Ответить

          • ava x77 13.02.2011 22:43 # 0

            бог с ним, со стайлом, но логика, блять завораживает. как то же он, сцуко, додумался до этого?
            Ответить

            • ava FadedInto 15.02.2011 11:43 # 0

              Как, как...
              http://img.artlebedev.ru/kovodstvo/idioteka/i/47F65561-F784-42A4-84D2-914D11966FEC.jpg
              Ответить

    Добавить комментарий