Ich bin gerade dabei ein Installationsscript zu schreiben.
An einigen Stellen hängt's aber und ich finde keinen Ausweg.
1. Problem:
Wenn ich das Programm ausführe, wird mir gesagt,
Variabel $Durchsuchen wurde nicht deklariert,
wobei ich das meiner Meinung nach eine Zeile davor getan habe:
$Durchsuchen = GUICtrlCreateButton("Durchsuchen",215,80)
GUICtrlSetOnEvent($Durchsuchen, "_Suchen")
[BEHOBEN]
2. Problem:
Ich möchte gern den Fortschritt der Installation anzeigen
mithilfe einer 'Progressbar'
Lässt es sich einrichten dass diese voll sein soll wenn fileinstall fertig ist,
und sich bis dahin gleichmäßig auffüllt?
3. Problem:
Gibt es einen Filter beim openfiledialog,
der dem Programm sagt es soll den Ordnerpfad auswählen?
$Suchen = FileOpenDialog("Durchsuchen ...", @DesktopDir, "(*.exe)")
GUICtrlSetData($Direktion, $Suchen)
Hier noch einmal das ganze bisherige Script:
Spoiler anzeigen
#include
#include
#include
#include
#include
Opt("GUIOnEventMode", 1)
[/autoit] [autoit][/autoit] [autoit]; ---------- Angaben tätigen ----------------;
$Programname = " "
$Programautor = "Buckiuxx"
; ---------- Angaben tätigen ----------------;
Global $i, $Dir = "C:\Programme\AJGadgets", $durchsuchen, $Direktion, $Suchen, $wirdinstalliert, $Fortschritt
[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]$Form1 = GUICreate($Programname & " Installer", 310, 217, 346, 263)
GUISetOnEvent($GUI_EVENT_CLOSE, "_Ende")
$Ende = GUICtrlCreateButton("Abbrechen", 24, 152, 129, 49, 0)
GUICtrlSetOnEvent($Ende, "_Ende")
$Start = GUICtrlCreateButton("Weiter ->", 160, 152, 129, 49, 0)
GUIctrlsetOnEvent($Start, "_Start")
$Titel = GUICtrlCreateLabel("Installation von " & $Programname, 1, 13, 310, 44, $SS_CENTER)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$Willkommen = GUICtrlCreateLabel("Herzlich Willkommen zur Installation von " & $Programname, 1, 88, 310, 25, $SS_CENTER)
GUISetState(@SW_SHOW)
While 1
Sleep(10)
WEnd
Func _Ende()
MsgBox(64,"Abgebrochen", "Vergang wurde Abgebrochen!" & @crlf & "Das Programm wird beendet...")
Exit
EndFunc
Func _Start()
GUICtrlDelete($Willkommen)
GUICtrlDelete($Start)
$Instal = GUICtrlCreateButton("Weiter -->", 160, 152, 129, 49, 0)
GUICtrlSetOnEvent($Instal, "_Instal")
$Durchsuchen = GUICtrlCreateButton("Durchsuchen",215,80)
GUICtrlSetOnEvent($Durchsuchen, "_Suchen")
$Direktion = GUICtrlCreateInput($Dir,25,81,185)
EndFunc
Func _Suchen()
$Suchen = FileOpenDialog("Durchsuchen ...", @DesktopDir, "(*.exe)")
GUICtrlSetData($Direktion, $Suchen)
EndFunc
Func _Instal()
GUICtrlDelete($Durchsuchen)
GUICtrlDelete($Direktion)
$wirdinstalliert = GUICtrlCreateLabel("Das Programm wird installiert...", 20, 60)
$Fortschritt = GUICtrlCreateProgress(20,80)
EndFunc
Vielen Dank im Vorraus!