Узнать о завершении работы Windows
Falk0ner, вс, 06/07/2008 - 15:34.
Если текст в Memo1 был изменен, то программа не разрешает завершения сеанса Windows.
...
private
procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
...
procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
Msg.Result := integer(not Memo1.Modified);
end;
private
procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;
...
procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
Msg.Result := integer(not Memo1.Modified);
end;
Автор советов: Даниил Карапетян
e-mail: delphi4all@narod.ru
Автор справки: Алексей Денисов
e-mail: aleksey@sch103.krasnoyarsk.su
Как корректно перехватить сигнал выгрузки операционной системы, если в моей программе нет окна
Автор: Nomadic
Используй GetMessage(), в качестве HWND окна пиши NULL (на Паскале - 0). Если в очереди сообщений следующее - WM_QUIT, то эта функция фозвращает FALSE. Если ты пишешь программу для Win32, то запихни это в отдельный поток, организующий выход из программы.
http://delphiworld.narod.ru/
DelphiWorld 6.0
Отправить комментарий