Original von Analyzer
dann mußte aber schon alle Funktionen übernehmen und nicht welche rauslassen!
Was passiert denn jetzt bei dir, wenn ein USB Stick oder ein anderes Wechselmedium angeschlossen wird ???
Mfg
Analyzer
Ich habe nichts rausgelassen! Ich habe nur das was du zur Verfügung gestellt hast lauffähig gemacht! 
Im übrigen passiert beim mir das gleiche wie bei deiner, nämlich nix! Bei deiner kompilierten Version wird gar kein Laufwerk angezeigt!
Hallo!
Ich habe die Toolbar.au3 noch ein bisschen überarbeitet:
#include <Guiconstants.au3>
#Include <process.au3>
#include <ModernMenu.au3>
; In den OnEvent-Modus wechseln (-> AutoIt kömmert sich um das Weiterreichen der Events an die einzelnen Controls
Opt("TrayIconHide", 1)
Opt("GUIOnEventMode", 1)
Opt("RunErrorsFatal", 0)
Opt("TrayMenuMode", 1) ; Traymenü entfernen
Global $laufwerke[1]
Global $WinWidth = @DesktopWidth
$title = "***"
If WinExists($title) Then
Exit
EndIf
GUICreate($title, $WinWidth, 50, -1, 0, $WS_POPUPWINDOW + $WS_VISIBLE + $DS_SETFOREGROUND, $WS_EX_TOOLWINDOW)
GUISetFont(8, 400, 1, "Courier New Bold")
WinSetOnTop($title, "", 1)
;######################################################################
;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Arbeitsplatz ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;
;######################################################################
$Arbeitsplatz = GUICtrlCreateMenu("Arbeitsplatz")
$Arbeitsplatz_Laufwerke = GUICtrlCreateMenu("Laufwerke", $Arbeitsplatz, 1)
$var = DriveGetDrive("all")
If Not @error Then
ReDim $laufwerke[$var[0] + 1]
$laufwerke[0] = $var[0]
For $i = 1 To $var[0]
$name = DriveGetLabel($var[$i])
Switch DriveGetType($var[$i])
Case "REMOVABLE"
$drive = 6
Case "FIXED"
$drive = 8
Case "NETWORK"
$drive = 9
Case "CDROM"
$drive = 11
Case "RAMDisk"
$drive = 12
Case Else
$drive = 23
EndSwitch
$laufwerke[$i] = _GUICtrlCreateODMenuitem (" [" & StringUpper($var[$i]) & "] " & $name, $Arbeitsplatz_Laufwerke, @SystemDir & "\Shell32.dll", $drive)
GUICtrlSetOnEvent($laufwerke[$i], "open")
Next
EndIf
;-------------------------- Ende Menü ------------------------
$ende = GUICtrlCreateIcon(@SystemDir & "\shell32.dll", 27, $WinWidth - 25, 7, 16, 16)
GUICtrlSetOnEvent($ende, "schliessen")
GUISetOnEvent($GUI_EVENT_CLOSE, "schliessen")
GUISetState()
While 1
;~ $msg = GUIGetMsg()
;~ Select
;~ Case $msg = $GUI_EVENT_CLOSE
;~ ExitLoop
;~ Case $msg = $ende
;~ Exit
;~ EndSelect
Sleep(100)
WEnd
Func schliessen()
Exit
EndFunc ;==>schliessen
Func open()
For $k = 1 To $laufwerke[0]
If $laufwerke[$k] = @GUI_CtrlId Then
$oShell = ObjCreate("shell.application")
$oShell.Explore($var[$k] & "\")
ExitLoop
EndIf
Next
;~ CDTray($var[$k], "open")
EndFunc ;==>openHallo!
Kannst du mal mit _ArrayDisplay das $delArray ausgeben und als Hardcopy posten?
Ohne '{' und '}' !
Hallo!
So bringt das nichts, am besten die RunZeile mal posten!
Hallo!
Da ist ein Fehler in der Event-Behandlung:
#include<Guiconstants.au3>
#Include <process.au3>
#include <ModernMenu.au3>
; In den OnEvent-Modus wechseln (-> AutoIt kömmert sich um das Weiterreichen der Events an die einzelnen Controls
Opt("TrayIconHide", 1)
Opt("GUIOnEventMode", 1)
Opt("RunErrorsFatal", 0)
Opt("TrayMenuMode", 1) ; Traymenü entfernen
Global $laufwerke[100]
$title = "***"
If WinExists($title) Then
Exit
EndIf
GUICreate($title, @DesktopWidth, 50, 0, 0, $WS_POPUPWINDOW + $WS_VISIBLE + $DS_SETFOREGROUND, $WS_EX_TOOLWINDOW)
GUISetFont(8, 400, 1, "Courier New Bold")
WinSetOnTop($title, "", 1)
;######################################################################
;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Arbeitsplatz ~~~~~~~~~~~~~~~~~~~~~~~~~~~~
;
;######################################################################
$Arbeitsplatz = GUICtrlCreateMenu("Arbeitsplatz")
$Arbeitsplatz_Laufwerke = GUICtrlCreateMenu("Laufwerke", $Arbeitsplatz, 1)
$var = DriveGetDrive("all")
If Not @error Then
For $i = 1 To $var[0]
$name = DriveGetLabel($var[$i])
If DriveGetType($var[$i]) = "CDROM" Then
$drive = "Icons\CDROM.ico"
ElseIf DriveGetType($var[$i]) = "FIXED" Then
$drive = "Icons\HDD.ico"
ElseIf DriveGetType($var[$i]) = "NETWORK" Then
$drive = "Icons\Net-HDD.ico"
ElseIf DriveGetType($var[$i]) = "REMOVABLE" Then
$drive = "Icons\Rem.ico"
Else
EndIf
$laufwerke[$i] = _GUICtrlCreateODMenuitem (" (" & StringUpper($var[$i]) & ") " & $name, $Arbeitsplatz_Laufwerke, $drive)
GUICtrlSetOnEvent($laufwerke[$i], "open")
Next
EndIf
;-------------------------- Ende Menü ------------------------
$pos = @DesktopWidth - 25
$ende = GUICtrlCreateIcon(@ScriptDir & "\Icons\ende.ico", 0, $pos, 7, 16, 16)
GUICtrlSetOnEvent($ende, "schliessen")
GUISetOnEvent($GUI_EVENT_CLOSE, "schliessen")
GUISetState()
While 1
;~ $msg = GUIGetMsg()
;~ Select
;~ Case $msg = $GUI_EVENT_CLOSE
;~ ExitLoop
;~ Case $msg = $ende
;~ Exit
;~ EndSelect
Sleep(100)
WEnd
Func schliessen()
Exit
EndFunc ;==>schliessen
Func open()
For $k = 1 to 100
If $laufwerke[$k] = "" or $laufwerke[$k] = @GUI_CtrlId Then ExitLoop
Next
CDTray($var[$i], "open")
EndFuncPS: ende.ico fehlt auch noch im ICON-Verzeichnis!
Ich weiß nicht warum du Send() benutzt ab dann geht's so!
Send(@YEAR & @MON & @MDAY)Hallo und :willkommen:,
Das geht auch einfacher:
einfach
$Datum = @YEAR & @MON & @MDAY
schreiben
Dann enthält $Datum das aktuelle Datum in der Form JJJJMMDD
probiers mal so:
;~ help
; ##############################
;- Hilfetext
; ##############################
$helptext =" HILFETEXT "
$frmHelp = GuiCreate($skript &" ~ HELP", 640, 480,-1, -1 , BitOR($WS_OVERLAPPEDWINDOW, $WS_CLIPSIBLINGS))
$headline = GuiCtrlCreateLabel("Hilfe Version 1.0", 20, 5, 100, 20)
$help = GuiCtrlCreateEdit($helptext, 20, 20, 600, 420)
$close = GuiCtrlCreateButton("schliessen", 550, 450, 70, 20)
GuiSetState(@SW_SHOW,$frmHelp)
While 1
$msg = GuiGetMsg()
Select
Case $msg = $close or $msg = $GUI_EVENT_CLOSE
GuiSetState(@SW_HIDE,$frmHelp)
ExitLoop
Case Else
;;;
EndSelect
WEndAlso bei mir geht's!
Original von BugFix
Nach dem Schließen des Adressbuchs, wird mit "Alt+d" und "b" Thunderbird geschlossen.
@SW_RESTORE hatte ich eigentlich schon probiert, aber ich teste es gleich nochmal.
In den anderen Funktionen benutzt du @SW_MINIMIZE und @SW_RESTORE, das ist ja richtig!
Dann kannst du die beiden Send-Befehle weglassen, bei mir, ich habs mal testweise installiert, wird Thunderbird geschlossen sobald im Adressbuch Strg-Q gedrückt wird und das machst du ja kurz davor.
Also einen Fehler hab ich schon mal entdeckt, Fenster die mit @SW_HIDE versteckt werden müssen mit @SW_SHOW wieder sichtbar gemacht werden, nicht mit @SW_RESTORE. @SW_RESTORE ist um ein minimiertes Fenster wieder herzustellen.
@edit1:
An welches Fenster sollen den "Alt-d" und "b" gesendet werden?
Hallo und :willkommen:,
da kann man bestimmt Funktionen aus der user32.dll für nutzen, ich werde heute abend mal was probieren (wenn sich bis dahin keiner mehr meldet)!
Hallo!
Das ist grundsätzlich möglich Stichwort Obj/COM Reference in der AutoIt-Hilfe!
Original von peethebee
Das mit den mehrdimensionalen ist nur so, wenn die Funktion das so setzt. bei eigenen kannst du [0][0] selbst füllen, oder täusche ich mich da?peethebee
Nein du täuschst dich nicht, gilt aber auch für eindimensionale Arrays, auch da gibt es Funktionen die im 1. Element die Anzahl eintragen.
Hallo!
Das ist ein klarer Fall für StringFormat:
$Output = ""
For $i = 1 to 10
$Output &= StringFormat("%04i. Lauf", $i) & @CRLF
Next
MsgBox(0,"",$Output)Hallo!
Kannst ja mal schauen ob er unter HKEY_LOCAL_MACHINE\HARDWARE\DEVICEMAP\SERIALCOMM angezeigt wird!
Was meinst du genau mit Statusbar unter Maus? Was willst da angezeigt bekommen?