Последние записи

made in programmersforum 3

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

30th
Июл

Проверить выполнение функции

Posted by micher under Delphi

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

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

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

Заведите себе глобальную переменную 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;

Вот и все.

Пост написан при поддержке HiFi-Trade — Интернет — магазин — проекторы, акустика, плазменные телевизоры, плазменные панели, lcd телевизоры, ЖК телевизоры,тумбы под тв, акустические системы.

Мы заботимся о наших покупателях, именно поэтому мы 7 дней в неделю работаем над улучшением качества информационных материалов, увеличением ассортимента и повышением уровня обслуживания.

Мы считаем, что при продаже высококлассного оборудования нельзя ограничиваться предоставлением информации о товаре, очень важно иметь возможность увидеть качество изображения видеоисточника или послушать выбранную акустику «вживую», именно поэтому несколько лет назад мы открыли салон аудиотехники.

У нас Вы сможете не просто «оформить заказ через оператора», а получить полноценную консультацию у специалистов отделов Hi-Fi техники и AV-мебели как по телефону, так и подъехав к нам офис.

тема на форуме