Как определить что вызвало событие FormCloseQuery?

@Melfis · Регистрация: 08.02.2010

Author24 — интернет-сервис помощи студентам

Как в этой процедуре определить что это пользователь пытается закрыть окно а не компьютер пытается выключится или перезагрузиться? То есть закрывать приложение если попытка закрыть его была вызвана системой а не пользователем. А то не удается ни выключить ни перезагрузить комп при запущенном приложении.

Delphi

procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose:=false; //Окно не может быть закрыто.
  GoTray(); //Свернуть приложение в трей.
end;

Добавлено через 4 часа 3 минуты
Если кто то сюда забредет то вот так можно отличить является ли попытка закрытия окна действием пользователя или попыткой ОС перезагрузиться или завершить работу.

Delphi

  private
    { Private declarations } 
    procedure WMQueryEndSession (var Msg : TWMQueryEndSession); message WM_QueryEndSession;
  public
    { Public declarations }
    SysClose:integer;
  end;
 
var
..........................
 
implementation
 
...............................
 
procedure TfrMMain.WMQueryEndSession (var Msg : TWMQueryEndSession);
begin
  SysClose:=1;
  frmMain.Close;
  Msg.Result := 1; //Можно закрывать
end;
 
 
...............................
 
procedure TfrmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  if SysClose = 1 then
  begin
  Disconnect();
  CanClose:=true;
  end
  else
  begin
  CanClose:=false;
  frmMain.Hide;
  end;
end;

	20.12.2010, 20:14