Перехватить завершение ОС первее всех. Возможно ли?

[Человек_Борща]

Доброго времени суток!

Мне нужно перехватить этап подготовки к завершению работы(WM_QUERTYENDSESSION) ОС самым первым.

Данное сообщение рассылается окнам в порядке их очереди. Как стоять первым в этой очереди постоянно?

Может можно как-то ещё, первым, узнать о желании юезра завершить ОСь?

[Stilet]

Хук делай на сообщения. Кто последний на хуке - тот первый получит уведомление.

[waleri]

Документированого способа нет

[Человек_Борща]

Stilet, нужные мне программы не должны получить это сообщение до меня.
А они могут стоятьи впереди и позади меня, первее чем я.

[volvo877]

Есть функция SetProcessShutdownParameters, но как будет себя вести система, если несколько приложений установят одинаковый Level - непонятно. Информации об этом я нигде не нашел.

[Человек_Борща]

Спасибо! Но с 1-м параметром не поняно. Мне нужно:

300-3FF Application reserved first shutdown range.

Мне нужно указать в HEX-варианте число?

GetProcessShutdownParameters($300,SHUTDOWN_NORETRY); //$300 <=> 0x300(c++)

Думаю, там конфликтов не будет т.к. система запускается на это уровне:

400-4FF System reserved first shutdown range.

Update
Разобрался, работает =)

procedure TMainForm.APMWinMsgHandler(var MSG: TWMQueryEndSession);
var
  i, i2: Integer;
begin
  if MSG.MSG = WM_QUERYENDSESSION then //< - нужно ли делать эту проверку?
  begin
    if RM.Enabled and UseRulesMgrChk.Checked then
    begin
      for i := 0 to RM.Count - 1 do
      begin
        if RM[i].flag_Kill then
        begin
          RM[i].Ignore := true;
          for i2 := 0 to RM[i].Targets.Count - 1 do
            RM[i].Targets[i2].Kill;
        end;
      end;
    end;
    MSG.Result := 1;
  end;
  // inherited; <=Нужно ли вызывать это? 
end;

[volvo877]

Мне нужно указать в HEX-варианте число?

Если хочешь первым, кто получит уведомление - то указывай $3FF (или 1023, без разницы), потому как "The system shuts down processes from high dwLevel values to low" - чем выше dwLevel тем быстрее получаешь уведомление

[Человек_Борща]

а по поводу дополнения можно что-нибудь сказать?

[volvo877]

Проверку делать не надо, насколько я вижу из прототипа функции, она принимает TWMQueryEndSession, т.е., описана с "message WM_QUERYENDSESSION", и отработает только тогда, когда пришло именно это сообщение. Inherited я бы тоже оставил. Дефолтный обработчик в ответ на WM_QUERYENDSESSION возвращает True, так что хуже он не сделает.