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