Hallo, ich bin ein ziemlicher anfänger in AutoIT, lese aber schon lange und wirklich sehr oft hier im board, hat mich bisher sehr weit gebracht. Aber jetz bin ich an einem problem da finde ich keine lösung ich versuche gerade ein Programm zu schreiben was es mir erleichtert HTML grundgerüste zu erstellen.
das kopieren der dateien in den richtigen ordner ist nicht so das problem, ich hätte aber gerne ein fenster was zusätzlich aufpoppt und mich nach dem zu erstellenden Ordnernamen, und dem Pfad fragt.
Das habe ich auch, aber wenn ich dann auf "Erstellen" klicke bleibt das zusätzlich fenster offen, das soll aber wieder zugehen, beim klick auf das [x] schließt sich das komplette programm, und nciht nur das fenster.
Wie kann ich beinflussen das sich nur das Fenster schließt?
$mainwindow = GuiCreate("Format auswählen", 400, 400)
GuiSetIcon(@SystemDir & "\mspaint.exe", 0)
#AutoIt3Wrapper_Au3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 5 -w 6
#include <GUIConstantsEx.au3>
#include <GuiButton.au3>
#include <WindowsConstants.au3>
Global $btn, $rdo, $chk, $iMemo
$Button1 = GUICtrlCreateButton("3 Zeiler",75, 20, 75, 25, 0)
$Button2 = GUICtrlCreateButton("3 Spalter",75, 50, 75, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
_3zeilen ()
Case $Button2
_3spalten ()
EndSwitch
WEnd
Func _3zeilen ()
$Window = GUICreate("Pfad und Ordner wählen", 476, 56, @DesktopHeight / 2.5, @DesktopWidth / 4)
$Location = GUICtrlCreateInput("", 8, 16, 257, 21)
$Locate = GUICtrlCreateButton("Pfad", 272, 16, 97, 25, 0)
$Install = GUICtrlCreateButton("Erstellen", 376, 16, 89, 25, 0)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Switch $msg
Case $GUI_EVENT_CLOSE
Exit
Case $Locate
$var = FileSelectFolder("Choose a folder to install to.", "", 5)
If Not @error Then
GUICtrlSetData($Location, $var)
EndIf
Case $Install
$path = GUICtrlRead($Location)
If $path = '' Then
MsgBox(64, "Warning", "You need to select a folder to install to.")
ElseIf DirCreate($path) And DirCreate($path & "\Docs") Then
FileInstall(".\Files\AVE2.exe", $path & '', 1)
FileInstall(".\Docs\readme.txt", $path & '', 1)
Else
MsgBox(64, "Warning", "Install failed.")
EndIf
EndSwitch
WEnd
MsgBox(4096,"","Der Ordner wurder erstellt")
EndFunc
Func _3spalten ()
EndFunc
; ENDE
GuiSetState()
While GuiGetMsg() <> $GUI_EVENT_CLOSE
WEnd
Alles anzeigen