Hi,
nicht nur, um johny zu zeigen, wie sehr mit das freeCommander-AuswahlBox-Skript gefällt
[Edit]
..und natürlich jonk als Autor,
(ich glaub, ich hab da was zerwechselt, sry jonk :blush: )
habe ich ein StartSkript geschrieben, das mir den freeCommander mit der AuswahlBox startet.
Voraussetzung:fcAuswahlBox.au3 ist kompiliert im Verzeichnis <AutoIt3Dir>/au3/fcAuswahlBox.exe
Beim Schreiben ist mir noch Folgendes aufgefallen:
Die AuswahlBox wird (noch) nicht minimiert, wenn der fc minimiert wird.
Da gibt es also noch etwas zu tun, falls das möglich ist
Das Skript prüft nicht, ob AutoIt installiert ist, denn diese Prüfung ist imho genauso sinnvoll,
wie eine Prüfung, ob Windows überhaupt installiert ist :rofl2:
Die DateiAblageBox ist noch nicht integriert, kommt noch..
[Edit]
Die DateiAblageBox ist ein tolles Skript, aber im fc nicht direkt nötig..
..deshalb lasse ich sie (erstmal) raus(fc soll ja auch mal irgendwann starten )
Nicht böse sein
Gruß
ytwinky
Achso ja, das Skript:
Spoiler anzeigen
;<AutoItScript>
Opt("MustDeclareVars", 1) ;0=ohne, 1=erfordert Variablen-Deklaration
#NoTrayIcon ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
;+----------------------------------------------------------------------------+
;| Header: Bestimmen der Übergabeparameter |
;| ( Alles Strings(!!!), bis auf ArgC ) |
;| FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins |
Const $Autor="fcstarten.au3 ©2006 by ytwinky, MD"; |
;| EMail: PIII1kSystem-AutoIt3Forum@yahoo.de |
;| AutoIt3-Version: aktuelle beta |
;| Editor: SciTE aktuelle Version, feste Schriftart |
;| Zweck : freeCommander mit AuswahlBox starten |
;| Tab auf 2 setzen wg. Lesbarkeit |
;+----------------------------------------------------------------------------+
Const $fc="freeCommander"
Dim $installLocation=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" &$fc &"_is1", "InstallLocation")
Dim $fchnd=ControlGetHandle($fc, "", "TfcCustomPanel15")
Dim $fcAuswahl=RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\AutoIt v3\", "InstallDir") &"\au3\fcAuswahlBox.exe"
If $installLocation="" Then fcNotFound()
If $fchnd Then
WinSetState($fc, "", @SW_RESTORE Or @SW_ENABLE)
Else
If Not FileExists($installLocation &$fc &".exe") Then fcNotFound()
Run($installLocation &$fc &".exe", "", @SW_MINIMIZE)
Do
Sleep(1)
Until ControlGetHandle($fc, "", "TfcCustomPanel15")
Run($fcAuswahl)
EndIf
Exit
Func fcNotFound()
MsgBox(4096, "Ooops..", "The " &$fc &" is not (properly) installed.." &@CrLf &"Get it from http://www." &$fc &".com and (re-)install it..")
Exit
EndFunc
;</AutoItScript>
Alles anzeigen