Post by Ahk_fan » 10 Jan 2019, 17:34
Hi,
hier ein Ansatz
Code: Select all
#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir c:\Program Files\ffmpeg ; Ensures a consistent starting directory.
Gui, Font, s10, Verdana
Gui, Add, Text,, Ein Profil zum Ausführen auswählen.`nESCAPE oder Fenster schließen, um den Vorgang abzubrechen.
Gui, Font, s12, Verdana
Gui, Add, ListBox, vMeineListBox gMeineListBox w430 r10
Gui, add, edit, vInhaltDatei x+10 w200 r10
Gui, Add, Button, Default, OK
Loop, c:\Program Files\ffmpeg\profiles\*.* ; Ordner und musterbasierte Suche je nach Bedarf anpassen.
{
GuiControl,, MeineListBox, %A_LoopFileName%
}
Gui, Show
return
MeineListBox:
if (A_GuiEvent <> "DoubleClick")
{
GuiControlGet, MeineListBox ; Ermittelt die aktuelle Auswahl in der ListBox.
FileRead, DateiInhalt, c:\Program Files\ffmpeg\profiles\%MeineListBox%
GuiControl, ,InhaltDatei, %DateiInhalt%
}
return
; Ansonsten wurde ein Doppelklick auf einen Listeneintrag gemacht, also wie OK-Dr?cken behandeln
; und zum nächsten Label übergehen.
ButtonOK:
Gui, submit, nohide
GuiControlGet, MeineListBox ; Ermittelt die aktuelle Auswahl in der ListBox.
If MeineListBox =
msgbox, Keine Auswahl
MsgBox, 4,, Wollen Sie das folgende Profil wirklich ausführen ?`n`n%MeineListBox%
IfMsgBox, No
return
; Ansonsten versuchen zu starten:
Run, c:\Program Files\ffmpeg\profiles\%MeineListBox%,, UseErrorLevel
if (ErrorLevel = "ERROR")
{
MsgBox Das angegebene Profil konnte nicht ausgeführt werden.
return
}
else
{
Gui, Destroy
Gui, new
Gui, add, checkbox, vShutdown gCheckShutdown, Shutdown?
gui, add, Text, vShutdownAktiv w140, NICHT aktiv
gui, Show, w150 h150 ,Shutdown-Auswahl
}
return
CheckShutdown:
gui, submit, nohide
If Shutdown = 1
{
GuiControl, ,ShutdownAktiv, AKTIV
WinWaitClose, C:\WINDOWS\system32\cmd.exe
; hier den aktivieren
;Shutdown, 0
}
If Shutdown = 0
{
GuiControl, ,ShutdownAktiv, NICHT aktiv
}
return
GuiClose:
GuiEscape:
ExitApp
Gruß
Hi,
hier ein Ansatz
[code]#NoEnv ; Recommended for performance and compatibility with future AutoHotkey releases.
; #Warn ; Enable warnings to assist with detecting common errors.
SendMode Input ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir c:\Program Files\ffmpeg ; Ensures a consistent starting directory.
Gui, Font, s10, Verdana
Gui, Add, Text,, Ein Profil zum Ausführen auswählen.`nESCAPE oder Fenster schließen, um den Vorgang abzubrechen.
Gui, Font, s12, Verdana
Gui, Add, ListBox, vMeineListBox gMeineListBox w430 r10
Gui, add, edit, vInhaltDatei x+10 w200 r10
Gui, Add, Button, Default, OK
Loop, c:\Program Files\ffmpeg\profiles\*.* ; Ordner und musterbasierte Suche je nach Bedarf anpassen.
{
GuiControl,, MeineListBox, %A_LoopFileName%
}
Gui, Show
return
MeineListBox:
if (A_GuiEvent <> "DoubleClick")
{
GuiControlGet, MeineListBox ; Ermittelt die aktuelle Auswahl in der ListBox.
FileRead, DateiInhalt, c:\Program Files\ffmpeg\profiles\%MeineListBox%
GuiControl, ,InhaltDatei, %DateiInhalt%
}
return
; Ansonsten wurde ein Doppelklick auf einen Listeneintrag gemacht, also wie OK-Dr?cken behandeln
; und zum nächsten Label übergehen.
ButtonOK:
Gui, submit, nohide
GuiControlGet, MeineListBox ; Ermittelt die aktuelle Auswahl in der ListBox.
If MeineListBox =
msgbox, Keine Auswahl
MsgBox, 4,, Wollen Sie das folgende Profil wirklich ausführen ?`n`n%MeineListBox%
IfMsgBox, No
return
; Ansonsten versuchen zu starten:
Run, c:\Program Files\ffmpeg\profiles\%MeineListBox%,, UseErrorLevel
if (ErrorLevel = "ERROR")
{
MsgBox Das angegebene Profil konnte nicht ausgeführt werden.
return
}
else
{
Gui, Destroy
Gui, new
Gui, add, checkbox, vShutdown gCheckShutdown, Shutdown?
gui, add, Text, vShutdownAktiv w140, NICHT aktiv
gui, Show, w150 h150 ,Shutdown-Auswahl
}
return
CheckShutdown:
gui, submit, nohide
If Shutdown = 1
{
GuiControl, ,ShutdownAktiv, AKTIV
WinWaitClose, C:\WINDOWS\system32\cmd.exe
; hier den aktivieren
;Shutdown, 0
}
If Shutdown = 0
{
GuiControl, ,ShutdownAktiv, NICHT aktiv
}
return
GuiClose:
GuiEscape:
ExitApp[/code]
Gruß