procedure TForm1.FormCreate(Sender: TObject);
begin
SetProcessShutDownParameters($100, 0);
end;
procedure TForm1.WMQueryEndSession(var Msg: TWMQueryEndSession);
begin
WinSesionFin := true;
inherited;
end;
procedure TForm1.WMEndSession(var Msg: TWMEndSession);
begin
WinSesionFin := Msg.EndSession;
inherited;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if WinSesionFin then
begin
GuardarDatosSalida;
CanClose := true;
end
else
begin
ExitWindowsEx(EWX_FORCE,0);
Application.Terminate;
end;
end;