Autoit.ES

Código: Seleccionar todo

#include <GUIConstants.au3>
#Include <GuiEdit.au3>
$GUI = GUICreate ("Run Output", 400, 200)
$Btn_Run = GUICtrlCreateButton ("Run Program", 300, 0, 100, 27)
$txt_edit = GUICtrlCreateEdit ("", 0, 0, 300, 200)
GUISetState (@SW_SHOW)

While 1
    $msg = GUIGetMsg ()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            Exit
        Case $msg = $Btn_Run

    EndSelect
WEnd

Func _RunFile ($file)

EndFunc

Código: Seleccionar todo

#include <GUIConstantsEx.au3>

Example()

Func Example()

	GUICreate("My GUI combo")  ; will create a dialog box that when displayed is centered

	$combo = GUICtrlCreateCombo("item1", 10, 10) ; create first item
	GUICtrlSetData(-1, "item2|item3", "item3") ; add other item snd set a new default
	$button = Guictrlcreatebutton("test",100,100,100,100)
	GUISetState()

	; Run the GUI until the dialog is closed
	While 1
		$msg = GUIGetMsg()

		If $msg = $GUI_EVENT_CLOSE Then ExitLoop
		If $msg = $button then
			msgbox(0,"","El item del combo seleccionado es... "&Guictrlread($combo))
		Endif
	WEnd
EndFunc   ;==>Example

Código: Seleccionar todo

#include <GUIConstants.au3>
#include <GuiEdit.au3>
#include <File.au3>
#include <Array.au3>
$GUI = GUICreate("Run Output", 400, 200)
$Btn_Run = GUICtrlCreateButton("Run Program", 300, 0, 100, 27)
$listview = GUICtrlCreateList("123", 0, 0, 300, 200)
$FileList = _FileListToArray("C:", "*", 1)

GUISetState(@SW_SHOW)

While 1
	$msg = GUIGetMsg()
	Select
		Case $msg = $GUI_EVENT_CLOSE
			Exit

		Case $msg = $Btn_Run
			GUICtrlRead($FileList)
			GUICtrlSetData($listview, "hola")
			_ArrayDisplay($FileList)
	EndSelect
WEnd
 

Código: Seleccionar todo

#include <GUIConstants.au3>
#include <GuiEdit.au3>
#include <File.au3>
#include <Array.au3>
$GUI = GUICreate("Run Output", 400, 200)
$Btn_Run = GUICtrlCreateButton("Run Program", 300, 0, 100, 27)
$listview = GUICtrlCreateList("", 0, 0, 300, 200)
$FileList = _FileListToArray("C:", "*", 1)
For $n=1 To $FileList[0]
	GUICtrlSetData($listview, $FileList[$n])
Next
GUISetState(@SW_SHOW)

While 1
   $msg = GUIGetMsg()
   Select
      Case $msg = $GUI_EVENT_CLOSE
         Exit

      Case $msg = $Btn_Run
         GUICtrlRead($FileList)
         GUICtrlSetData($listview, "hola")
         _ArrayDisplay($FileList)
   EndSelect
WEnd

Código: Seleccionar todo

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <SliderConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <GuiButton.au3>
#include <GuiListView.au3>
#include <Constants.au3>
#include <Misc.au3>
#include <GuiToolTip.au3>
#include <Array.au3>

Global $ITEMID, $Lista1
Global $CABECERA = "Archivo                 |Ruta                     "   ; <----------?????????????????????????????????'No quiero que me salga Ruta pero si lo elimino no me funcciona el boton ejecutar

$Ancho = 333
$Alto = 300
#Region ### START Koda GUI section ###
$Form1 = GUICreate("Aplicacion", $Ancho, $Alto, 318, 184, -1, BitOR($WS_EX_ACCEPTFILES, $WS_EX_WINDOWEDGE))
;;;; LISTA
$Lista1 = GUICtrlCreateListView($CABECERA, 0, 0, $Ancho, 257)
GUICtrlSetState($Lista1, $GUI_DROPACCEPTED)
_GUICtrlListView_SetExtendedListViewStyle($Lista1, BitOR($LVS_EX_FULLROWSELECT, $LVS_EX_GRIDLINES, $LVS_EX_INFOTIP))

;;;; BOTONES
$BTNAGREGAR = GUICtrlCreateButton("Agregar archivos", 15, 265, 90, 25)
GUICtrlSetTip(-1, 'Añadir archivos ')
$BTNEMPEZAR = GUICtrlCreateButton("Ejecutar", 123, 265, 90, 25)
GUICtrlSetTip(-1, 'Ejecutar')
$BTNBORARSELECT = GUICtrlCreateButton("Borrar", 230, 265, 90, 25)
GUICtrlSetTip(-1, 'Borrar')

GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$msg = GUIGetMsg()
	Switch $msg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $BTNAGREGAR
			_Agregararchivo()
		Case $BTNEMPEZAR
			_SelectArchivo()
		Case $BTNBORARSELECT
			_BorrarSeleccionado()
	EndSwitch
WEnd



Func _Agregararchivo()
	$Carpeta = FileOpenDialog('Añadir archivos', '', 'Todo (*)', 5, '', $Form1)  ;<-------------???????????????? Quiero poner que me muestre siempre el contenido de una carpeta sin selectionarla por ejemplo C:\Pruebas\   dentro hai aplicaciones .exe

	$Filediv = StringSplit($Carpeta, '|') ;Divido en variables la ruta anteriormente dada por $Music dependiendo de '|'
	If $Filediv[0] <> 1 Then ;Si el valor es diferente a 1 entonces
		For $N = 2 To $Filediv[0] ;Añadir varios archivos
			$ITEMID = _GUICtrlListView_AddItem($Lista1, StringTrimRight($Filediv[$N], 4))
			_GUICtrlListView_AddSubItem($Lista1, $ITEMID, $Filediv[1] & '\' & $Filediv[$N], 1)
		Next
	Else
		$Filediv = StringSplit($Carpeta, '\') ;Añadir un archivo
		$ITEMID = _GUICtrlListView_AddItem($Lista1, StringTrimRight($Filediv[$Filediv[0]], 4))
		_GUICtrlListView_AddSubItem($Lista1, $ITEMID, $Carpeta, 1)
	EndIf
EndFunc   ;==>_Agregararchivo


Func _SelectArchivo()
	If _GUICtrlListView_GetItemCount($Lista1) <> 0 Then
		$A = 0
		Do
			$A = $A + 1
			If _GUICtrlListView_GetItemSelected($Lista1, $A) = True Then
				$Archivo = $A
				_Aplicar(_GUICtrlListView_GetItemText($Lista1, $A, 1))
				$A = _GUICtrlListView_GetItemCount($Lista1)
				$Selection = 0
			Else
				$Selection = 1
			EndIf
		Until $A = _GUICtrlListView_GetItemCount($Lista1)
		If $Selection = 1 Then
			$Archivo = 0
			_Aplicar(_GUICtrlListView_GetItemText($Lista1, 0, 1))
			_GUICtrlListView_SetItemSelected($Lista1, 0)
		EndIf
	EndIf
EndFunc   ;==>_SelectArchivo


Func _Aplicar($RUTAF)
	$Aplicar = ShellExecute($RUTAF)
EndFunc   ;==>_Aplicar

Func _BorrarSeleccionado()
	$var = MsgBox("1", "Atencion", "Estas seguro que quieres Borarlo?")
	If $var = 1 then
	$ELIMINADO = _GUICtrlListView_GetSelectedCount($Lista1)
	_GUICtrlListView_DeleteItemsSelected(GUICtrlGetHandle($Lista1))

	FileDelete($ELIMINADO)    ;  <--------------------???????????????????????????????????????????????????????? quiero que elimine tambien el archivo

	$ITEMID = $ITEMID - $ELIMINADO

Else
	EndIf
EndFunc   ;==>_BorrarSeleccionado

Código: Seleccionar todo

 $FileList = _FileListToArray("C:\pruebas", "*", 1)