#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Array.au3>
#include <TrayConstants.au3>
#RequireAdmin

Global $Caminho
Global $idCheckbox
Global $Warning

$Path = IniRead(@ScriptDir & "/config.ini", "Cfg", "Caminho","")
$word = IniRead(@ScriptDir & "/config.ini", "Cfg", "Palavra","")
$iMsgBoxAnswer = IniRead(@ScriptDir & "/config.ini", "Cfg", "Checkbox","")

;~ $CheckDuplo = "Find N Delet"
;~ If WinExists($CheckDuplo) Then
;~ MsgBox(0,"","Already Running",1)
;~ Exit ; It's already running
;~ EndIf


#Region ### START Koda GUI section ### Form=
$width = 290
$height = 100
$Form1 = GUICreate("Find N Delet", 290, 106,  @DesktopWidth/2 - $width/2, @DesktopHeight/2 - $height/2, $GUI_SS_DEFAULT_GUI, BitOR($WS_EX_TRANSPARENT,$WS_EX_WINDOWEDGE))
GUISetIcon(@ScriptDir & '\icone.ico', -1)
TraySetIcon (@ScriptDir & '\icone.ico', -1)
$Label1 = GUICtrlCreateLabel("Palavra", 8, 16, 40, 17, $SS_CENTER)
$Label2 = GUICtrlCreateLabel("Caminho", 8, 40, 45, 17, $SS_CENTER)
$Checkbox = GUICtrlCreateCheckbox("Avisar deleção", 184, 16, 97, 17)
if $iMsgBoxAnswer == 1 Then
   GUICtrlSetState(-1, $GUI_CHECKED)
   EndIf
$idCheckbox = GUICtrlRead($CheckBox)
$Button1 = GUICtrlCreateButton("Capturar", 16, 72, 259, 25)
$Input1 = GUICtrlCreateInput("", 56, 16, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_CENTER))
GUICtrlSetData(-1,$word)
$Input2 = GUICtrlCreateInput("", 56, 40, 121, 21, BitOR($GUI_SS_DEFAULT_INPUT,$ES_LEFT))
GUICtrlSetData(-1,$Path)
$Button2 = GUICtrlCreateButton("Caminho", 184, 40, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


if FileExists(@ScriptDir & "\config.ini") Then
 FileSetAttrib(@ScriptDir & "\config.ini", "+H")
Else
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Caminho",'')
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Palavra",'')
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Checkbox",'')
 FileSetAttrib(@ScriptDir & "\config.ini", "+H")
EndIf

    TrayCreateItem("Captura Rápida")
	TrayItemSetOnEvent(-1,"duplound")
	  TrayCreateItem("")
    TrayCreateItem("Captura")
	TrayItemSetOnEvent(-1,"rastrei")
	  TrayCreateItem("")
    TrayCreateItem("Exit")
	TrayItemSetOnEvent(-1,"_exit")
		TraySetState($TRAY_ICONSTATE_SHOW)
    Opt("TrayAutoPause", 0)
    Opt("TrayMenuMode", 3)
	   Opt("TrayIconHide", 0)
	opt("TrayOnEventMode", 1)

While 1
   If ProcessExists ("Finder.exe") Then
	  TraySetState(4)
   Else
	  TraySetState(1)
   EndIf

	$nMsg = GUIGetMsg()
	Switch $nMsg
  Case $CheckBox
            If GUICtrlRead($CheckBox) = $GUI_CHECKED Then
                Global $idCheckbox = 1
                Global $Path = $idCheckbox
            Else
                Global $idCheckbox = 3
                Global $Path = $idCheckbox
            EndIf
		 Case $Button1
			RegEscrever()
			FazerMagiaAcontecer()
		  Case $Button2
	  Global $Caminho  = selectfolder()
 GUICtrlSetData($Input2, $Caminho)



;~ MsgBox(0,"",$Caminho  )
		Case $GUI_EVENT_CLOSE
			Exit

	EndSwitch
 WEnd

#Region ### Funcoes ###
Func duplound()
	      if $Caminho == '' Then $Caminho = $Path
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Caminho",$Caminho)
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Palavra",GUICtrlRead($Input1))
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Checkbox",4)
			FazerMagiaAcontecer()
   EndFunc
   Func rastrei()
	      if $Caminho == '' Then $Caminho = $Path
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Caminho",$Caminho)
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Palavra",GUICtrlRead($Input1))
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Checkbox",1)
			FazerMagiaAcontecer()

   EndFunc
Func RegEscrever()
    if $Caminho == '' Then $Caminho = $Path

IniWrite(@ScriptDir & "/config.ini", "Cfg", "Caminho",$Caminho)
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Palavra",GUICtrlRead($Input1))
IniWrite(@ScriptDir & "/config.ini", "Cfg", "Checkbox",$idCheckbox)
EndFunc
Func _exit()
   Exit
EndFunc

Func FazerMagiaAcontecer()
Run(@ScriptDir & "\finder.exe")
EndFunc
Func selectfolder()
    ; Create a constant variable in Local scope of the message to display in FileSelectFolder.
    Local Const $sMessage = "Select a folder"

    ; Display an open dialog to select a file.
    Local $sFileSelectFolder = FileSelectFolder($sMessage, "")
    If @error Then
        ; Display the error message.
        MsgBox($MB_SYSTEMMODAL, "", "Nenhuma pasta foi selecionada.")
    Else
        ; Display the selected folder.
;~         MsgBox($MB_SYSTEMMODAL, "", "You chose the following folder:" & @CRLF & $sFileSelectFolder)
    EndIf
	Return $sFileSelectFolder
 EndFunc   ;==>Example


#EndRegion ### Funcoes ###