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

    +109

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    procedure TForm2.ExitButtonClick(Sender: TObject);
begin
Close;
Form1.Close;
end;

    Об Application.Terminate даже и не догадываемся...

    Запостил: PEMOHT, 12 Декабря 2010

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

    • ava TarasB 12.12.2010 22:58 # 0

      Halt;
      чтоб наверняка
      Ответить

      • ava inkanus-gray 12.12.2010 23:58 # 0 

        asm
@@1: HLT
JMP @@1
end;


        Чтоб точно ничего не выполнялось.
        Ответить

        • ava bugmenot 12.12.2010 23:59 # +3

          cli забыл
          Ответить

          • ava inkanus-gray 13.12.2010 00:01 # +2

            А как же NMI? Нужно перейти в нулевое кольцо и что-нибудь записать в контроллер прерываний, чтобы ещё NMI залочить.
            Ответить

          • ava ctm 14.12.2010 20:06 # 0

            во время 95-х виндов пробовал:)
            более того, если сделать cli и выполнять какой-то код, то там перестает работать многозадачность (в смысле все остальные задачи висят, кнопки типа Alt+Tab тоже не действуют). А вот в более поздних виндах не пробовал.
            Ответить

          • ava adli__82 13.01.2011 20:59 # 0

            тогда уже:
            asm
  cli
  lock hlt
end;
            Ответить

        • ava Lure Of Chaos 13.12.2010 00:13 # 0

          ммм....

          RST 0
          Ответить

    • ava bugmenot 12.12.2010 23:30 # 0

      Это такой особый эхит, terminate and stay resident
      Ответить

    • ava PEMOHT 12.12.2010 23:56 # +1

      вообще, такой код вполне оправдан, когда надо выполнить OnClose, но вот закрытие второй формы - явно лишнее.
      Ответить

      • ava ctm 14.12.2010 20:01 # 0

        или когда ни Form1, ни Form2 не являются главной формой приложения.
        if Assinged(OnClose) then OnClose(Sender);
        Ответить

        • ava FadedInto 15.12.2010 19:48 # 0

          А потом внезапно делаем CanClose := false; в OnCloseQuery...
          Ответить

          • ava TyVin 31.01.2011 17:23 # 0

            надо Action := caNone, правда не помню есть ли такое
            Ответить

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