Zusätzliche Sybolleiste per Script?

FourOne

Hei Leutz.

Ich hätte da mal ne Frage:
[Erklärung] Anstatt meine Verknüpfungen zu den Laufwerken im Arbeitsplatz zu nutzen, erstelle ich mir immer eine zusätzliche Symbolleiste mit all meinen HD's und DVD's, dem Arbeitsplatz und den Eigenen Dateien. Diese Verknüpfungen befinden sich bei mir im "Programme/DVD, HD" Ordener und Ich ziehe sie per Drag & Drop an den oberen Bildschirmrand.

So aber wie kann ich das in ein Script integrieren [Möglichst so das er automatisch die Anzahl der Laufwerke erkennt]? Und gut wäre auch wenn er den Anfang nicht so zeigt: (C) Sys, sondern so: [C] Sys.

Vielleicht nutz ein anderer ja auch eine ähnliche Symbolleiste und kann mir helfen oder findet die Idee gut und hilft mir.
Mfg, Four One.

EDIT: Ist natürlich für meine WinInstallation das Script.

**bernd670**

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)!

**peethebee**

Analyser hat ziemlich genau das gleiche, wenn ich dich richtig verstehe.
Meld dich doch mal per PN bei ihm und poste das Ergebnis dann hier.

peethebee

Analyzer

Moin,

ja ich bin dabei mir so eine Toolbar zu machen, doch dies soll was besonderes werden

Ich hänge mal ein paar Screens mit an ... vielleicht hat ja einer interesse dran.

Das besondere an dieser Toolbar ist, das nach Programmen gesucht wird, und wenn diese existieren in der jeweiligen Kategorie angezeigt werden, genauso auch mit den Laufwerken. Unter das Menü, wo ja noch Platz ist, soll später noch eine Ausführ Box rein, Google Suche und vielleicht ein paar QuickLink Buttons mit Programm Favoriten.

Aber wie peethebee schon sagt, ich bin gerade erst dabei, es fehlen noch sehr viele Sachen

Mfg

Analyzer

**Xenobiologist**

Hi,

wie wäre es, wenn du einfach deinen Code schon mal postest? dann könnte er die Laufwerkssache kopieren. :irre:

So long,

Mega

**GtaSpider**

Hallo!

oder guck dir mal die befelhe Drive... an (z.b. DriveGetName) oder auch DriveGetDrive.

MFg Spider

Analyzer

Zitat

Original von th.meger
Hi,

wie wäre es, wenn du einfach deinen Code schon mal postest? dann könnte er die Laufwerkssache kopieren. :irre:

So long,

Mega

Sobald der Code ohne Fehler läuft habe ich damit kein Problem

**peethebee**

Der Ansatz lief ja. Also her damit *justkidding*

peetehebee

johny

@Analyzer, auch grosses Interesse

Analyzer

Moin,

hier ist dann mal das Arbeitsplatzmenü! Wie aber schon erwähnt befindet sich das ganze noch in der Entwicklung!

Die ModerMenu.au3 muß ins AutoIt/Include Verzeichnis.

Mfg

Analyzer

-== Edit ==-

Anhang aktualisiert.

-== Edit ==-

**peethebee**

ModernMenu.au3 kann auch im Skriptverzeichnis bleiben, wenn der Compiler es nicht im Include-Verzeichnis findet, sucht er noch im ScriptDir, nur am Rande...

peethebee

**Gun-Food**

ahh ein sunshine live hörer. sehr gut. jetzt ja auch im berliner kabel.

edit: bei mir schließt es sich sofort wieder obwohl ich kurzzeitig den Arbeitsplatz sehe.

**bernd670**

Hallo!

Da ist ein Fehler in der Event-Behandlung:

Spoiler anzeigen

C

#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")
EndFunc

Alles anzeigen

PS: ende.ico fehlt auch noch im ICON-Verzeichnis!

DJMANU

@Analyzer Kann ich vielleicht an deiner Toolbar mitprogrammieren, weil ich wollte mal so eine ähnliche machen

**peethebee**

@DJMANU:
Sorry, aber ich muss das jetzt mal loswerden: Du hast doch noch mindestens 3 andere (z.T. eigene) Projekte, an denen du mitwirken willst. Mach doch erst mal die fertig, sonst kommst du nie zu was. Es gibt ja noch einiges zu tun, z.B. hier (Installations-Assistent).

peethebee

**bernd670**

Hallo!

Ich habe die Toolbar.au3 noch ein bisschen überarbeitet:

Spoiler anzeigen

C

#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   ;==>open

Alles anzeigen

Analyzer

Zitat

Original von bernd670
Hallo!

Ich die Toolbar.au3 noch ein bisschen überarbeitet:

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

**bernd670**

Zitat

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!

MythoS

also die taskleiste finde ich erstmal endgeil.....

aber ich bekomme immer diesen fehler wenn ich ein Laufwerk über das programm öffnen will (egal ob hdd oder cd-dvd LW)

[img=http://img477.imageshack.us/img477/9749/unbenanntag7.jpg]

vlt. weiß ja wer weiter.

RieSeR

ich find das auch richtig geil.
Nur wenn man programme maximiert hat sieht man die oberen icons nicht wäre es möglich das zu beheben? (bin nicht so der pro [2tage erfahrung und erst 15])