Советы по Delphi

         

в приложениях Delphi при завершении


События, происходящие в приложениях Delphi при завершении работы Windows Я провел небольшое исследование, и вот что я выяснил:

При закрытии приложения (используя системное меню или вызывая метод закрытия формы), возникают следующие события:

  1. FormCloseQuery - действие по умолчанию, устанавливает переменную CanClose в значание TRUE и продолжает закрытие формы.
  2. FormClose
  3. FormDestroy
Если приложение активно и вы пытаетесь завершить работу Windows (Shut Down), происходят следующие события (с соблюдением последовательности):

  1. FormCloseQuery
  2. FormDestroy
Мы видим, что метод FormClose в этом случае не вызывается.

Теперь воспроизведем всю последовательность событий, происходящую при попытке завершить работу Windows:

  1. Windows посылает сообщение WM_QUERYENDSESSION всем приложениям и ожидает ответ.
  2. Каждое приложение получает сообщение и возвращает одну из величин: не равную нулю - приложение готово завершить свою работу, 0 - приложение не может завершить свою работу.
  3. Если одно из приложений возвращает 0, Windows не завершает свою работу, а снова рассылает всем окнам сообщение, на этот раз WM_ENDSESSION.
  4. Каждое приложение должно снова подтвердить свою готовность завершить работу, поэтому операционная система ожидает ответа TRUE, резонно предполагая, что оставшиеся приложения с момента предыдущего сообщения закрыли свои сессии и готовы завершить работу. Теперь посмотрим, как на это реагирует Delphi-приложение: приложение возвращает значение TRUE и немедленно вызывает метод FormDestroy, игнорируя при этом метод FormClose. Налицо проблема.
  5. Завершение работы Windows.
Первое решение проблемы: приложение Delphi на сообщение WM_QUERYENDSESSION должно возвратить 0, не дав при этом Windows завершить свою работу. При этом бессмысленно пытаться воспользоваться методом FormCloseQuery, поскольку нет возможности определить виновника завершения работы приложения (это может являться как результатом сообщения WM_QUERYENDSESSION, так и просто действием пользователя при попытке закрыть приложение).



Другое решение состоит в том, чтобы при получении сообщения WM_QUERYENDSESSION самим выполнить необходимые действия, вызвав метод FormClose.

Пример:
    unit Unit1;
interface
uses

SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls, Forms, Dialogs;
type
TForm1 = class(TForm) procedure FormClose(Sender: TObject; var Action: TCloseAction); private {--------------------------------------------------------} { Объявляем свой обработчик сообщения WM_QUERYENDSESSION } {--------------------------------------------------------} procedure WMQueryEndSession( var Message: TWMQueryEndSession); message WM_QUERYENDSESSION; public { Public declarations } end; var
Form1    : TForm1;
implementation
{$R *.DFM}

{--------------------------------------------------------------}
{ Создаем процедуру обработки сообщения WM_QUERYENDSESSION.    }
{ Приложение получит только это сообщение при попытке Windows  }
{ завершить работу                                             }
{--------------------------------------------------------------}
procedure TForm1.WMQueryEndSession(var Message: TWMQueryEndSession);
begin
inherited;   { сначала сообщание должен обработать наследуемый метод } {--------------------------------------------------------------------} { в этой точке вы также можете сообщить Windows о неготовности       } { приложения завершить работу...                                     } { Message.Result:=0;                                                 } {-------------------------------------------или----------------------} { вызов процедуры освобождения ресурсов, предусмотренной в FormClose } { MyCleanUpProcedure;                                                } {--------------------------------------------------------------------} end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
MyCleanUpProcedure; end;

end.
Я не тестировал этот код, но могу предположить, что он должен работать. Сообщите, если это не так! [000018]
Завершение работы Windows Каким образом запустить процесс завершения работы операционной системы (функция ExitWindows) из кода моей программы? Мне необходимо перезапустить операционную систему без перезапуска компьютера.

Ok, приводим обе функции для перезапуска операционной системы:

    procedure TMainForm.RestartWindowsBtnClick(Sender: TObject); begin if not ExitWindows(EW_RestartWindows, 0) then ShowMessage('Приложение не может завершить работу'); end;
    procedure TMainForm.RebootSystemBtnClick(Sender: TObject); begin if not ExitWindows(EW_RebootSystem, 0) then ShowMessage('Приложение не может завершить работу'); end;
Функция ExitWindows не была правильно задокументирована Microsoft'ом и не содержит описания возвращаемого значения. Более того, информация о этой функции практически не встречается в других источниках. Вот правильное определение этой функции:

    function ExitWindows (dwReturnCode: Longint; Reserved: Word): Bool;
[000019]



Выключение питания ATX коpпуса из-под DOS mov ax,5301h sub bx, bx int 15h jb stop mov ax,530eh sub bx,bx int 15h jb stop mov ax,5307h mov bx,0001h mov cx,0003h int 15h stop: int 20h Код прислал Колесников Сергей Александрович [mailto:rovd@inbox.ru] [000611]



Delphi 1

Определение завершения работы Windows НОМЕР ДОКУМЕНТА: TI3133
ПРОДУКТ: Delphi
Версия: 1.0
ОС: Windows
Дата: 1 октября, 1996
Тема: Определение завершения работы Windows

Существует ли возможность определения завершения работы Windows для нормального завершения работы работающего приложения Delphi?

Самым простым решением является создание обработчика события главной формы OnCloseQuery. Данное событие возникает как результат сообщения WM_QUERYENDSESSION, которое посылается всем работающим приложениям Windows в момент инициализации процесса окончания работы Windows. Логическая переменная CanClose, передаваемая обработчику как var-параметр, может позволить программе (и Windows) завершить свою работу, если имеет значение True, значение же False не позволит программе завершить свою работу.

Следующий код демонстрирует как можно воспользоваться данным событием.

Демонстрационный код

    procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
{Спрашиваем пользователя, если инициировано завершение работы.} if MessageDlg('Вы уверены?', mtConfirmation, mbYesNoCancel, 0) = mrYes then CanClose := true    {Разрешаем завершение работы.} else CanClose := false;  {Не разрешаем завершение работы.} end;
[001063]



Как консольное приложение может узнать, что Винды завершаются? Nomadic рекомендует следующий код:

Все процессы получают сигналы CTRL_CLOSE_EVENT, CTRL_LOGOFF_EVENT и CTRL_SHUTDOWN_EVENT. А делается это (грубо говоря :) так: BOOL Ctrl_Handler( DWORD Ctrl ) { if( (Ctrl == CTRL_SHUTDOWN_EVENT) || (Ctrl == CTRL_LOGOFF_EVENT) ) { // Вау! Юзер обламывает! } else { // Тут что-от другое можно творить. А можно и не творить :-) } return TRUE; }
    function Ctrl_Handler(Ctrl: Longint): LongBool;
begin
if
Ctrl in [CTRL_SHUTDOWN_EVENT, CTRL_LOGOFF_EVENT] then begin // Вау, вау end else begin // Am I creator? end; Result := true; end;
А где-то в программе:

    SetConsoleCtrlHandler( Ctrl_Handler, TRUE );
Таких обработчиков можно навесить кучу. Если при обработке какого-то из сообщений обработчик возвращает FALSE, то вызывается следующий обработчик. Можно настроить таких этажерок, что ого-го :-)))

Короче, смотри описание SetConsoleCtrlHandler -- там всё есть. [001152]



Как корректно перехватить сигнал выгрузки операционной системы, если в моей программе нет окна? Nomadic рекомендует следующий способ:

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



Постепенное умирание The_Sprite пишет:

Вопрос: А как реализовать в одном компоненте такие функции как выключение компьютера, перезагрузка, завершение сеанса работы пользователя, Eject CD, выключение питания монитора и т.д.? Ответ: предлагаем посмотреть следующий пример ...

Совместимость: все версии Delphi

Пример:

    procedure TForm1.Button1Click(Sender: TObject);

begin
PowerControl1.Action:=actCDEject;// Или... actLogOFF, actShutDown... PowerControl1.Execute; end;
Component Code:

    unit
PowerControl; interface
uses
WinTypes, WinProcs, Messages,
SysUtils, Classes, Controls, Forms, Graphics, MMSystem; type
TAction = (actLogOFF,actShutDown,actReBoot,actForce,actPowerOFF,
actForceIfHung,actMonitorOFF,actMonitorON,actCDEject,actCDUnEject);

type
TPowerControl = class(TComponent)
private
FAction : TAction;
procedure SetAction(Value : TAction); protected
public
function
Execute : Boolean; published
property
Action : TAction read FAction write SetAction; end;
procedure Register;
implementation
procedure
Register
; begin
RegisterComponents('K2', [TPowerControl]); end;
procedure TPowerControl.SetAction(Value
: TAction); begin
FAction := Value;
end;
function TPowerControl.Execute : Boolean;
begin

with
(Owner as TForm) do
case
FAction of
actLogOff: ExitWindowsEx(EWX_LOGOFF,1);
actShutDown: ExitWindowsEx(EWX_SHUTDOWN,1);
actReBoot: ExitWindowsEx(EWX_REBOOT,1);
actForce: ExitWindowsEx(EWX_FORCE,1);
actPowerOff: ExitWindowsEx(EWX_POWEROFF,1);
actForceIfHung: ExitWindowsEx(EWX_FORCEIFHUNG,1);
actMonitorOFF: SendMessage(Application.Handle,
WM_SYSCOMMAND, SC_MONITORPOWER, 0);
actMonitorON: SendMessage(Application.Handle, WM_SYSCOMMAND,

SC_MONITORPOWER, -1);
actCDEject: mciSendstring('SET CDAUDIO DOOR OPEN

WAIT',nil,0, Handle);
actCDUnEject: mciSendstring('SET CDAUDIO DOOR CLOSED

WAIT',nil,0, Handle); end; {Case}
Result := True; end;
end.
[001539]



Как выполнить shutdown для удалённого компьютера? Nomadic делится сиплюсплюсным кодом:

int main(int argc, char **argv) { HANDLE hToken; TOKEN_PRIVILEGES tkp; //------------------- char *name=""; // address of name of computer to shut down char *msg=""; //address of message to display in dialog box DWORD time=0; // time to display dialog box bool force=true; // force applications with unsaved changes flag bool reboot=true; //reboot flag //--------------------------------------------------------------------- OpenProcessToken(GetCurrentProcess(),TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY, &hToken); if(!LookupPrivilegeValue(name, SE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid)){ printf ("SE_SHUTDOWN_NAME Privilege облом \n"); return 1 ;}; tkp.PrivilegeCount =1; tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,(PTOKEN_PRIVILEGES)NULL, 0); if(!LookupPrivilegeValue(name, SE_REMOTE_SHUTDOWN_NAME,&tkp.Privileges[0].Luid)){ printf("SE_REMOTE_SHUTDOWN_NAME Privilege облом \n"); return 2 ;}; tkp.PrivilegeCount =1; tkp.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED; AdjustTokenPrivileges(hToken, FALSE, &tkp, 0,(PTOKEN_PRIVILEGES)NULL, 0); if (InitiateSystemShutdown(name,msg,time,force,reboot)) printf("%s shutdown Ok\n",name); else printf("Can't shutdown %s \n",name); return 0; } //***************************************************************************// [001587]



Как перегрузить Windows? Nomadic делится своим опытом:

1) ExitWinndowsEx(EWX_FORCE+EWX_REBOOT,0) 2) mov al,0F0h out 64h,al [001718]


Содержание раздела