Cancel an Exit Event

[DemonAngel]

Hi Guys,

 

This is probably a simple question but im bumping my head against a wall currently.

 

I have a script/app that I do not want a use to close by mistake when a certain Task is in progress. As such I created an Exit function and posed a question within the function that asks a user if they are sure they want to exit as the Task is still running.

The problem I have is regardless on wether the user clicks on YES or NO the script still exits when it his the end of the function. Here is a sample of my code.

expandcollapse popup

$oMyError = ObjEvent("AutoIt.Error","MyErrFunc")
OnAutoItExitRegister("ExitDaApp")

$CaptureStatus = True


#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>

Global $GuiMain = GUICreate("Test", 943, 523, 176, 129)

GUISetState(@SW_SHOW)

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    If $CaptureStatus = True Then
        ReadLogs()
    EndIf
    Sleep(10)
WEnd


;-----------------------------------------------------------------------------
;ExitDaApp - FUNCTION TO
;-----------------------------------------------------------------------------
Func ExitDaApp()
    SplashOff()
    If $CaptureStatus = True Then
        If Not IsDeclared("iMsgBoxAnswer") Then Local $iMsgBoxAnswer
        $iMsgBoxAnswer = MsgBox(262420,"EXIT","Capture currently running, Are you sure you want to exit?")
        If $iMsgBoxAnswer = "6" Then
            Exit
        Else
            Return
        EndIf
    Else
        Exit
    EndIf
EndFunc ;===> ExitDaApp

;-----------------------------------------------------------------------------
;ReadLogs - FUNCTION TO
;-----------------------------------------------------------------------------
Func ReadLogs()

    ;just read through soem log files.

EndFunc ;===> ReadLogs

[JustSomeone]

Change this

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch

    If $CaptureStatus = True Then
        ReadLogs()
    EndIf
    Sleep(10)
WEnd 

to this

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            ExitDaApp()
    EndSwitch

    If $CaptureStatus = True Then
        ReadLogs()
    EndIf
    Sleep(10)
WEnd

and it will be ok, working for me when changed

[Melba23]

DemonAngel,

You are checking too late - OnAutoItExit only runs the function once the exit has been initiated and is unstoppable.

Run the check as you receive the [X] event so that you can prevent the exit being initiated and then it will work:

Case $GUI_EVENT_CLOSE
            ExitDaApp()

Do not forget to remove the OnAutoItExitRegister line.

M23

[DemonAngel]

Lol ... simple ...

Thanks guys.