So ich habe den Rad umgesetzt und fertig ist die version von schnellstarter 1.1!
ich hoffe es gefällt euch die funktion ( enter ) habe ich nicht mit rein genommen denn ich bekomm das nicht hin das wenn ich in ein anderen fenster ( enter ) betetige das er kein befehl im schnell-starter ausführt.
Vieleicht hat ja einer von euch anregungen für mich ich habe die funktion die ich getestet habe in die Zip getahn!
Jetzt wünsch ich euch viel spass mit dem schnell-starter!
Spoiler anzeigen
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <Process.au3>
#include <GUIConstants.au3>
#include <GuiEdit.au3>
#include <EditConstants.au3>
#include <StaticConstants.au3>
#include <File.au3>
#include<ButtonConstants.au3>
#include<Guilistview.au3>
#include <Misc.au3>
Opt("TrayMenuMode", 1)
_Main()
Func _Main()
Local $hGUI
Local $b1, $b2, $b3, $b4, $msg, $About, $Exit, $in, $bo, $al, $bb, $bw, $bs, $bd, $ba
$hGUI = GUICreate(" >> © 2009 by Simon <<",401, 71, 0, 0, $WS_CAPTION)
GUISetBkColor (0xbbfb15)
$b1 = GUICtrlCreateButton("C:\Programme", 81, 2, 79, 19)
$b2 = GUICtrlCreateButton("C:\", 1, 2, 79, 19)
$b3 = GUICtrlCreateButton("User-Ordner",161, 2, 79, 19)
$b4 = GUICtrlCreateButton("Anwen-Ordner",241, 2, 79, 19)
$b5 = GUICtrlCreateButton("Tmp", 321, 2, 79, 19)
$bw = GUICtrlCreateButton("Windows", 81, 25, 79, 19)
$bs = GUICtrlCreateButton("System32", 161, 25, 79, 19)
$bd = GUICtrlCreateButton("Desktop", 241, 25, 79, 19)
$ba = GUICtrlCreateButton("Autostart", 321, 25, 79, 19)
$bb = GUICtrlCreateButton("Beenden", 321, 48, 79, 19)
$in = GUICtrlCreateInput("", 2, 48, 250, 19)
$bo = GUICtrlCreateButton("OK", 260, 48, 50, 19)
$widthCell = 70
GUICtrlCreateLabel("Befehlszeile", 10, 27, $widthCell)
TraySetClick("9")
$About = TrayCreateItem("About")
$Exit = TrayCreateItem("Exit")
TrayTip("» Schnell-Starter « © by Siomon ", ">>>>>>>>>>> Zum Beenden <<<<<<<<<<<<" , 5, 1)
GUISetState(@SW_SHOW)
While 1
$msg = GUIGetMsg()
Select
Case $msg = $b1
ShellExecute(@ProgramFilesDir)
Case $msg = $b2
ShellExecute(@HomeDrive)
Case $msg = $b3
ShellExecute(@UserProfileDir)
case $msg = $b4
ShellExecute(@AppDataDir)
Case $msg = $b5
ShellExecute(@TempDir)
Case $msg = $bw
ShellExecute(@WindowsDir)
Case $msg = $bs
ShellExecute(@SystemDir)
Case $msg = $bd
ShellExecute(@DesktopDir)
Case $msg = $ba
ShellExecute(@StartupDir)
Case $msg = $bb
ExitLoop
Exit
Case $msg = $bo
$al = GUICtrlRead($in, 1)
RunWait(@ComSpec & " /c " & $al)
EndSelect
$msg = TrayGetMsg()
Select
Case $msg = $Exit
ExitLoop
Exit
Case $msg = $About
MsgBox(64,"About","» Schnell-Starter «" & @CRLF & @CRLF &"© 2009 by Simon")
EndSelect
WEnd
EndFunc
[/autoit]und hir die Zip mit .au3 - .exe
autoit.de/wcf/attachment/6025/
_