Не получается проверить выполнение функции

[g-davicelli]

Хай! Есть функция отлавливающая сообщение о завершении работы окна. Но я не нему праиельно её проверить. Кто знает в чём тут проблема...

function WindowsMessageQueryEndSession(var PostMessage: TMessage): Boolean;
begin
  Result := False;
  if PostMessage.Msg = WM_QUERYENDSESSION then
  begin
    Windows.Beep(1000, 100);
    Exit;
  end;
  Result := True;
end;

Проверяю собственно вот так...

if not WindowsMessageQueryEndSession(0, WM_QUERYENDSESSION, 0, 0) then

Но не выходит, что сделать что бы всё работало нормально?

Извините за беспокойство, только что сам разобрался в чём проблема. Тему оставлю может всё же кто наилучшее решение предложит...

[Stilet]

Интересно... Обьявлен один параметр а передается четыре... И компиль это пропустил?

о завершении работы окна.

Может не окна а сеанса? Если я помню верно это сообщение поступает при выключении компа.

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

Мдя.... ТС ну вы даёте....
Цикл сообщений постоянный, а ваша "функция" никоим образом никогда работать вообще не будет. И на этот как минимум 2 основных причины:

1. Цепочка сообщений движется как конвер. По этому ваш обработчик никогда не отпределит WM_QUERTYENDSESSION т.к. на тот момент в очереди будет другое сообщение, и это причина того, что нужно ставить обработчик на это сообщение. для программы.

2. Данный код просто заставит повиснуть ВАШУ программу, и не корректно завершит другие программы в системе т.к. вы не передаёте сообщение дальше по цепочке т.е. на вашей программе извещение от системы о том, что "пришёл абзац" прекратиться и другие программы не узнают о завершении и не будут к нему готовы.


Надо вот как:
Заведите себе глобальную переменную IsWindowsEndSession типа boolean, далее
в шапке модуля обьявите процедуру:

procedure WindowsEndSessionHook(var msg: TMessage); message WM_QUERYENDSESSION;

далее код:

procedure TMainForm.WindowsEndSessionHook(var msg: TMessage);
begin
  if msg.WParam = WM_QUERYENDSESSION then
  begin
        IsWindowsEndSession := True;
  end;
  inherited; //Пускаем сообщение дальше по цепочки в системе(на нас оно не зависает).
end;

Вот и все.

Stilet, вполне возможно. Есть ли разница в том что, если указть на сам TMessage или указать его содержимое? Ведь компилятор в результате всеравно указывает содержимое...