Узнать о завершении работы Windows

Previous  Top  Next

    
 

 

Если текст в Memo1 был изменен, то программа не разрешает завершения сеанса Windows.

Code:

...

private

   procedure WMQueryEndSession(var Msg: TWMQueryEndSession); message WM_QUERYENDSESSION;

...

procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);

begin

Msg.Result := integer(not Memo1.Modified);

end;

 

©Drkb::01673

Автор советов: Даниил Карапетян

e-mail: delphi4all@narod.ru

 

Автор справки: Алексей Денисов

e-mail: aleksey@sch103.krasnoyarsk.su

 

 


 

Как корректно перехватить сигнал выгрузки операционной системы, если в моей программе нет окна

 

Автор: Nomadic 

 

 

Используй GetMessage(), в качестве HWND окна пиши NULL (на Паскале - 0). Если в очереди сообщений следующее - WM_QUIT, то эта функция фозвращает FALSE. Если ты пишешь программу для Win32, то запихни это в отдельный поток, организующий выход из программы.

©Drkb::01674

http://delphiworld.narod.ru/

DelphiWorld 6.0