[Resolved] How to check startup param?

[nguyenbason]

I have following code:

expandcollapse popup

#include <File.au3>
#Include <Array.au3>

Opt("GUIoneventmode",1)
HotKeySet("{ESC}","_exit")

;Check startup param for default action
If $CmdLine[$CmdLine[0]] <> "0" Then
    $GetEXT = StringSplit($CmdLine[$CmdLine[0]],"\")
    $Ext = StringSplit($GetEXT[$GetEXT[0]],".")
    If $Ext[$Ext[0]] = "txt"Then
        _Open($CmdLine[$CmdLine[0]])
    EndIf
EndIf

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Test fuction", 153, 73, -1, -1)
$Button = GUICtrlCreateButton("Open File", 20, 24, 113, 25)
GUICtrlSetOnEvent(-1,"_Read")
GUISetOnEvent($GUI_EVENT_CLOSE, "_exit")
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1 
    Sleep(100)
WEnd

Func _Read()
    $File = FileOpenDialog("Open a file",@MyDocumentsDir,"Text file only (*.txt)")
    _Open($File)
EndFunc

Func _Open($FileName)
    Dim $aArray
     _FileReadToArray($FileName,$aArray)
    _ArrayDisplay($aArray)
EndFunc

Func _Exit()
    Exit
EndFunc

But if i click on a text file and choose "Open with" with my program then how can i set it default action is _Open()?

Thanks,

Edited June 20, 2009 by nguyenbason

[nguyenbason]

Still looking for the help

[November]

Code please

[nguyenbason]

Code please

Edited on the first post. Check it out please. Hope you are all understanding my question. Thanks

[nguyenbason]

Resolved by adding following code at the nearly top of the code (Edited to first post) to check command line param:

If $CmdLine[$CmdLine[0]] <> "0" Then
    $GetEXT = StringSplit($CmdLine[$CmdLine[0]],"\")
    $Ext = StringSplit($GetEXT[$GetEXT[0]],".")
    If $Ext[$Ext[0]] = "txt"Then
        _Open($CmdLine[$CmdLine[0]])
    EndIf
EndIf

Thanks for your attention

Edited June 20, 2009 by nguyenbason