Hi @ all,
ich habe mir einen Autostart Manager gebaut der Dateien in den Autostart ordner kopiert und wieder löschen kann...
die im Autostart vorhandenen Dateien werden in einer ListView angezeigt.
Edit:
Version 0.2
Was ist Neu?:
- Neues Design
- Programm muss nicht neu Gestartet werden um den Autostart zu Aktuallisieren
Anmerkung:
Bug immernoch vorhanden
Spoiler anzeigen
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include<File.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Autostart Manager", 481, 447, 192, 124)
$Button1 = GUICtrlCreateButton("Auswählen", 40, 48, 59, 17, 0)
$Input1 = GUICtrlCreateInput("", 104, 48, 121, 21)
$Button2 = GUICtrlCreateButton("In Autostart Kopieren", 104, 80, 115, 25, 0)
$Group1 = GUICtrlCreateGroup("In Autostart einfügen", 32, 16, 209, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button3 = GUICtrlCreateButton("Auswählen", 256, 48, 59, 17, 0)
$Input2 = GUICtrlCreateInput("", 320, 48, 121, 21)
$Button4 = GUICtrlCreateButton("Aus Autostart entfernen", 320, 80, 123, 25, 0)
$Group2 = GUICtrlCreateGroup("Aus Atostart entfernen", 248, 16, 201, 105)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$List1 = GUICtrlCreateListView("Programm ", 128, 144, 241, 231)
$files = _FileListToArray(@UserProfileDir&"\Startmenü\Programme\Autostart")
For $i = 1 To UBound($files)-1
GUICtrlCreateListViewItem($files[$i], $List1)
Next
$Group3 = GUICtrlCreateGroup("Dateien im Autostart", 96, 120, 289, 265)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
$FOD1=FileOpenDialog("Suchen...","","Anwendungen(*.exe)")
GuiCtrlSetData($Input1,$FOD1)
Case $Button2
FileCreateShortcut(GuiCtrlRead($FOD1)&".exe",@StartupDir&"\"&$FOD1&".lnk")
MsgBox(0,"Erfolg","Die Datei wurde erfolgreich in den Autostart kopiert. Um alle Dateien anzeigen zu lassen muss der Autostart Manager neu gestartet werden.")
Case $Button3
$FOD2=FileOpenDialog("Suchen...",@StartupDir,"Verknüpfungen(*.lnk)")
GuiCtrlSetData($Input2,$FOD2)
Case $Button4
FileDelete($FOD2&"\.lnk")
MsgBox(0,"Erfolg","Die Datei wurde erfolgreich aus dem Autostart Ordner Entfernt.Damit der Eintrag der Datei verschwindet muss der Autostart Manager neu gestartet werden.")
EndSwitch
WEnd
Bekannte Bugs:
- Datei aus Autostart löschen funktioniert nicht(in arbeit)
To Do:
- Bugs entfernen
Gruß Roggazzz
Click Ctrl-C to copy. (hides when lost focus)