Exit function with FileOpen

[ghost11996]

Hello

Im having a problem with Exit

When the FileOpen FileOpenDialog was presenting

I tried to Exit with the tray but I need to press Cancel/Close on FileOpen FileOpenDialog to make Autoit Exit

#include <TrayConstants.au3>
#NoTrayIcon
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 3)
Opt("TrayOnEventMode", 1)
Global $iExit = TrayCreateItem("Exit")
TraySetState(1)
TrayItemSetOnEvent($iExit,"_exit")
$checking = False
While $checking = False
$FileOpen = FileOpenDialog("Open Texts", @UserProfileDir , "Text (*.txt)")
If Not @error Then
    MsgBox(0,"Text Opened","")
$checking = True
EndIf
WEnd

While 1
    Sleep(1)
WEnd

Func _exit()
    Exit 0
EndFunc

Sorry for my bad english

____________

Edit : Function Mistake

Edited May 17, 2014 by ghost11996

[JohnOne]

First of all there is no FileOpen function in your script, but if you mean FileOpenDialog then that is a blocking function and will act the same as MsgBox does.

[water]

You need to use something like this:

$FileOpen = FileOpenDialog("Open Texts", @UserProfileDir , "Text (*.txt)")
If @error <> 0 Then Exit

[javiwhite]

I believe the issue is due to the fact that AutoIT doesn't support multithreading.

When the dialog box is open, The script will wait until the user has finished with the dialog box before processing any further requests.

The easiest way to see what i mean is, Add a consoleWrite() to your exit function, and then try and see when exactly the exit code runs. (i believe it will run as soon as the FileOpenFolder is closed.)

The way around this would be to have two separate scripts, The parent and child; With the child being the FileOpenFolder. the parent script would call the FileOpenFolder script, and then, when required, Kill the script and then exit itself...

Here is your script that i modified and tested with, and it works for me:

parent:

#include <TrayConstants.au3>
#NoTrayIcon
Opt("TrayAutoPause", 0)
Opt("TrayMenuMode", 3)
Opt("TrayOnEventMode", 1)
Global $iExit = TrayCreateItem("Exit")
TraySetState(1)
TrayItemSetOnEvent($iExit,"_exit")
run(@workingDir & "\FileOpenTxt.exe")

While 1
    Sleep(1)
WEnd

Func _exit()
   ProcessClose("FileOpenTxt.exe")
       Exit 0

EndFunc

Child

$checking = False
if $checking = False Then
   $FileOpen = FileOpenDialog("Open Texts", @UserProfileDir , "Text (*.txt)")
   If Not @error Then
      MsgBox(0,"Text Opened","")
   $checking = True
   EndIf
EndIf

In this example however, I did have to compile the script as an exe called FileOpenTxt.exe (this is so it would have its own process in task manager), But you could experiment with WinClose.

As the saying goes; There's always more than one way to skin a cat.

also, why do you have a while loop running around the folderopendialog? The dialog should pause the script until the user exits the command anyway. If you're looking too ensure they select a file, just set the options param to 1 and it should achieve the same result Link
 

I hope this helps

-Javi

[ghost11996]

@JohnOne: Yea Sorry My mistake

@water: I think you misunderstand my question...

@Javiwhite:

Nice resolution I guess I will put it in my code Thanks

Ps: The code was just an example for asking