Ich nutze den Freecommander, nur hat dieser kein editiebares Menü oder Toolbar, also habe ganz einfach selbst eine geschrieben mit Autoit.
Diese Toolbar behinhaltet Icons, Ordnerfavoriten und ein Menü
[Blockierte Grafik: http://img105.imageshack.us/img105/4812/unbenannt0ne.png]
Spoiler anzeigen
Code
#include<guiconstants.au3>
; scroll constants
Global Const $SB_LINEDOWN = 1
Global Const $SB_LINEUP = 0
Global Const $SB_PAGEDOWN = 3
Global Const $SB_PAGEUP = 2
Global Const $SB_SCROLLCARET = 4
Global Const $EM_SCROLLCARET = 0x00B7
Global Const $EM_SCROLL = 0xB5
;-----------------------------------Spezielle Constants---------------------------------Ende---------------------
;Opt("TrayIconDebug", 1)
Opt("TrayIconHide", 1)
Dim $pos_2, $pos_3, $arbeitsplatz, $systemsteurung, $verwaltung, $drucker, $bao, $baoboot, $baoaudio, $autoitmacro, $eac, $bootisogui, $7zipgui, $lister, $scite, $pspad, $uniex, $keeppasss, $netdrive, $clipput, $cmd_fc, $7zip_pack, $unlocker, $firefox, $thunderbird, $processexplorer, $neustart, $desktop, $filenew, $papierkorb
$fc = ControlGetHandle("freeCommander", "", "TfcCustomPanel15")
Opt("WinTitleMatchMode", 4)
GUICreate("OpenDir", 810, 110, -1, -1, $WS_POPUPWINDOW + $WS_VISIBLE + $DS_SETFOREGROUND,$WS_EX_TOOLWINDOW, $fc)
;GUICreate("OpenDir", 450, 60, -1, -1,$WS_POPUPWINDOW,BitOr($WS_EX_TOOLWINDOW,$fc), $fc)
GUISetFont(8, 400, 1, "Courier New Bold")
AdlibEnable ( "FC_Start" , 250)
;--------------------------Menü------------------------
$extras = GUICtrlCreateMenu("DateiTools")
$extras_umb = GUICtrlCreateMenuitem("Multi-Umbenennen", $extras)
;grafik
$grafik = GUICtrlCreateMenu("Grafik")
$grafik_pf = GUICtrlCreateMenuitem("PhotoPhiltre", $grafik)
$grafik_futurix = GUICtrlCreateMenuitem("Futurix", $grafik)
$grafik_pe = GUICtrlCreateMenuitem("PhotoExplorer", $grafik)
$grafik_fpr = GUICtrlCreateMenuitem("FastStone Photo Resizer", $grafik)
;brennen
$brennen = GUICtrlCreateMenu("Brennen")
$brennen_eac = GUICtrlCreateMenuitem("ExactAudioCopy", $brennen)
$brennen_cdimage = GUICtrlCreateMenuitem("CDMage", $brennen)
$brennen_bootisogui = GUICtrlCreateMenuitem("BootIsoGui", $brennen)
$brennen_bao = GUICtrlCreateMenuitem("BAO", $brennen)
$brennen_baoboot = GUICtrlCreateMenuitem("BAO-Boot", $brennen)
$brennen_baoaudio = GUICtrlCreateMenuitem("BAO-Audio", $brennen)
$brennen_nero = GUICtrlCreateMenuitem("Nero", $brennen)
$brennen_nero_boot = GUICtrlCreateMenuitem("Nero Boot-DVD", $brennen)
$brennen_qemu = GUICtrlCreateMenuitem("Qemu", $brennen)
;office
$o_progs = GUICtrlCreateMenu("Office")
$o_progs_fr = GUICtrlCreateMenuitem("Finereader", $o_progs)
;tools
$tools = GUICtrlCreateMenu("Tools")
$tools_aida = GUICtrlCreateMenuitem("Aida", $tools)
$tools_auotstart = GUICtrlCreateMenuitem("AutoStart", $tools)
$tools_taskmgr = GUICtrlCreateMenuitem("Taskmanager", $tools)
$regshot = GUICtrlCreateMenuitem("RegShot", $tools)
$tools_serconf = GUICtrlCreateMenuitem("ServConf", $tools)
$tools_siw = GUICtrlCreateMenuitem("SIW", $tools)
$tools_uninstaller = GUICtrlCreateMenuitem("Uninstaller", $tools)
GUICtrlCreateMenuitem('', $tools)
$tools_suche = GUICtrlCreateMenuitem("Suche", $tools)
GUICtrlCreateMenu("-------")
;ordner
$daten = GUICtrlCreateMenu("Daten")
$daten_doks = GUICtrlCreateMenuitem("Dokumente", $daten)
$daten_kh = GUICtrlCreateMenuitem("Gesundheit", $daten)
$daten_bilder = GUICtrlCreateMenuitem("Bilder", $daten)
$lager_filme = GUICtrlCreateMenuitem('Filme', $daten)
$lager_musik = GUICtrlCreateMenuitem('Musik', $daten)
;office
$office = GUICtrlCreateMenu("Office")
$office_office = GUICtrlCreateMenuitem("Office", $office)
$office_toolsmm = GUICtrlCreateMenuitem("ToolsMM", $office)
$office_grafik = GUICtrlCreateMenuitem("Grafik", $office)
$office_o_tools = GUICtrlCreateMenuitem("Tools-Office", $office)
$office_pspad = GUICtrlCreateMenuitem("PsPad", $office)
GUICtrlCreateMenuitem("", $office)
$office_prog = GUICtrlCreateMenuitem("Programme", $office)
$office_prog_1 = GUICtrlCreateMenuitem("Programme1", $office)
GUICtrlCreateMenuitem("", $office)
$office_autoit = GUICtrlCreateMenuitem("Autoit", $office)
$office_brennen = GUICtrlCreateMenuitem("Brennen", $office)
$office_fc = GUICtrlCreateMenuitem("FC", $office)
$office_fc_tools = GUICtrlCreateMenuitem("FC-Tools", $office)
$office_kk = GUICtrlCreateMenuitem("Kommunikartion", $office)
$office_tools = GUICtrlCreateMenuitem("Tools", $office)
$office_system = GUICtrlCreateMenuitem("System", $office)
;sys
$sys = GUICtrlCreateMenu("System")
$sys_temp = GUICtrlCreateMenuitem("Temp", $sys)
$sys_sys = GUICtrlCreateMenuitem("System32", $sys)
$sys_win = GUICtrlCreateMenuitem("Windows", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
$sys_ = GUICtrlCreateMenuitem("", $sys)
;xpcd
$xpcd = GUICtrlCreateMenu("XPCD")
$xpcd_packs = GUICtrlCreateMenuitem('Packs', $xpcd)
$xpcd_root = GUICtrlCreateMenuitem('XPCD', $xpcd)
$xpcd_install = GUICtrlCreateMenuitem('Install', $xpcd)
$xpcd_install_xptricks = GUICtrlCreateMenuitem('XP-TRICKS', $xpcd)
GUICtrlCreateMenuitem('', $xpcd)
$xpcd_oem = GUICtrlCreateMenuitem('$OEM$', $xpcd)
$xpcd_oem_win = GUICtrlCreateMenuitem('$$', $xpcd)
$xpcd_oem_sys = GUICtrlCreateMenuitem('System32', $xpcd)
GUICtrlCreateMenuitem('', $xpcd)
$xpcd_docs = GUICtrlCreateMenuitem('$DOCS', $xpcd)
$xpcd_docs_au = GUICtrlCreateMenuitem('All Users', $xpcd)
$xpcd_docs_au_ad = GUICtrlCreateMenuitem('Anwendungsdaten', $xpcd)
$xpcd_docs_au_sm = GUICtrlCreateMenuitem('Startmenü', $xpcd)
GUICtrlCreateMenuitem('', $xpcd)
$xpcd_docs_default = GUICtrlCreateMenuitem('DEFAULT USER', $xpcd)
$xpcd_docs_default_ad = GUICtrlCreateMenuitem('Anwendungsdaten', $xpcd)
$xpcd_docs_default_ql = GUICtrlCreateMenuitem('Quick Launch', $xpcd)
$xpcd_docs_default_sm = GUICtrlCreateMenuitem('Startmenü', $xpcd)
;Lager
$lager = GUICtrlCreateMenu("Lager")
$lager_down = GUICtrlCreateMenuitem('Downloads', $lager)
$lager_soft = GUICtrlCreateMenuitem('Software', $lager)
$lager_softdvd = GUICtrlCreateMenuitem('SoftDVD', $lager)
$lager_treiber = GUICtrlCreateMenuitem('Treiber', $lager)
;g
$g = GUICtrlCreateMenu("G:\")
$g_root = GUICtrlCreateMenuitem('Root G:', $g)
$g_guides = GUICtrlCreateMenuitem('Guides', $g)
$g_temp = GUICtrlCreateMenuitem('Temp', $g)
;ftp
$ftp = GUICtrlCreateMenu("FTP")
$ftp_avm_dsl = GUICtrlCreateMenuitem('DSL-Protect', $ftp)
$ftp_ata = GUICtrlCreateMenuitem('Firmware', $ftp)
$ftp_fax = GUICtrlCreateMenuitem('Fax4Box', $ftp)
$ftp_tapi = GUICtrlCreateMenuitem('Tapi', $ftp)
GUICtrlCreateMenuitem('', $ftp)
$ftp_gn = GUICtrlCreateMenuitem('German-nLite', $ftp)
$ftp_downloads = GUICtrlCreateMenuitem('Downloads', $ftp)
$ftp_addons = GUICtrlCreateMenuitem('Addons', $ftp)
$ftp_help = GUICtrlCreateMenuitem('Helpfiles', $ftp)
GUICtrlCreateMenuitem('', $ftp)
$ftp_packer = GUICtrlCreateMenuitem('Packer', $ftp)
$ftp_brenner = GUICtrlCreateMenuitem('Brenner', $ftp)
GUICtrlCreateMenu("-------")
;Hilfe
$hilfe = GUICtrlCreateMenu("Hilfe")
$hilfe_autoit = GUICtrlCreateMenuitem('Autoit', $hilfe)
$hilfe_autoit_b = GUICtrlCreateMenuitem('Autoit Beta', $hilfe)
$hilfe_autoit_udf = GUICtrlCreateMenuitem("Autoit UDF's", $hilfe)
$hilfe_fc = GUICtrlCreateMenuitem('FC Hilfe', $hilfe)
$hilfe_winfaq = GUICtrlCreateMenuitem('WINFAQ', $hilfe)
$hilfe_7zip = GUICtrlCreateMenuitem('7zip', $hilfe)
;sonstiges
GUICtrlCreateMenu("-------")
$project = GUICtrlCreateMenu("Projecte")
$project_xpcd = GUICtrlCreateMenuitem('XPCD', $project)
$project__ordner = GUICtrlCreateMenuitem('Toolbar', $project)
;Buttons
$bao = GUICtrlCreateIcon(@ScriptDir & "\icos\bao-16x16.ico", -1, 0, 3, 16, 16)
$baoboot = GUICtrlCreateIcon(@ScriptDir & "\icos\baoboot-16x16.ico", -1, 25, 3, 16, 16)
$baoaudio = GUICtrlCreateIcon(@ScriptDir & "\icos\baoaudio-16x16.ico", -1, 50, 3, 16, 16)
$autoitmacro = GUICtrlCreateIcon(@ScriptDir & "\icos\amg-16x16.ico", -1, 75, 3, 16, 16)
$eac = GUICtrlCreateIcon(@ScriptDir & "\icos\eac-16x16.ico", -1, 100, 3, 16, 16)
$bootisogui = GUICtrlCreateIcon(@ScriptDir & "\icos\bootisogui-16x16.ico", -1, 125, 3, 16, 16)
$7zipgui = GUICtrlCreateIcon(@ScriptDir & "\icos\7zip-16x16.ico", -1, 150, 3, 16, 16)
$lister = GUICtrlCreateIcon(@ScriptDir & "\icos\lister-16x16.ico", -1, 175, 3, 16, 16)
$scite = GUICtrlCreateIcon(@ScriptDir & "\icos\SCITE-16x16.ico", -1, 200, 3, 16, 16)
$pspad = GUICtrlCreateIcon(@ScriptDir & "\icos\pspad-16x16.ico", -1, 225, 3, 16, 16)
$uniex = GUICtrlCreateIcon(@ScriptDir & "\icos\uni-16x16.ico", -1, 250, 3, 16, 16)
$keeppasss = GUICtrlCreateIcon(@ScriptDir & "\icos\keepass-16x16.ico", -1, 275, 3, 16, 16)
$netdrive = GUICtrlCreateIcon(@ScriptDir & "\icos\netdrive-16x16.ico", -1, 300, 3, 16, 16)
$clipput = GUICtrlCreateIcon(@ScriptDir & "\icos\clipput-16x16.ico", -1, 325, 3, 16, 16)
$cmd_fc = GUICtrlCreateIcon(@ScriptDir & "\icos\cmd-16x16.ico", -1, 350, 3, 16, 16)
$7zip_pack = GUICtrlCreateIcon(@ScriptDir & "\icos\7zip-16x16.ico", -1, 375, 3, 16, 16)
$unlocker = GUICtrlCreateIcon(@ScriptDir & "\icos\unlocker.ico", -1, 400, 3, 16, 16)
$firefox = GUICtrlCreateIcon(@ScriptDir & "\icos\ff-16x16.ico", -1, 425, 3, 16, 16)
$thunderbird = GUICtrlCreateIcon(@ScriptDir & "\icos\tb-16x16.ico", -1, 450, 3, 16, 16)
$processexplorer = GUICtrlCreateIcon(@ScriptDir & "\icos\pe16x16.ico", -1, 475, 3, 16, 16)
$neustart = GUICtrlCreateIcon(@ScriptDir & "\icos\neu-16x16.ico", -1, 500, 3, 16, 16)
$desktop = GUICtrlCreateIcon(@ScriptDir & "\icos\desktop-16x16.ico", -1, 575, 3, 16, 16)
$filenew = GUICtrlCreateIcon(@ScriptDir & "\icos\filenew-16x16.ico", -1, 625, 3, 16, 16)
$papierkorb = GUICtrlCreateIcon(@ScriptDir & "\icos\papierkorb-16x16.ico", -1, 700, 50, 16, 16)
$ende = GUICtrlCreateIcon(@ScriptDir & "\icos\ende-16x16.ico", -1, 780, 3, 16, 16)
;Systemordner
$arbeitsplatz = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\arbeitsplatz.ico", -1, 450, 30, 32, 32)
$systemsteurung = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\systemsteurung.ico", -1, 490, 30, 32, 32)
$verwaltung = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\verwaltung.ico", -1, 540, 30, 32, 32)
;$ordneroptionen = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\ordner.ico", -1, 580, 30, 32, 32)
$drucker = GUICtrlCreateIcon(@ScriptDir & "\icos\systemicos\drucker.ico", -1, 620, 30, 32, 32)
;favoriten
$fav_progs = GUICtrlCreateButton('Progs1', 10, 65, 45, 20)
$fav_sys = GUICtrlCreateButton('System', 60, 65, 55, 20)
$fav_packs = GUICtrlCreateButton('Packs', 120, 65, 40, 20)
$fav_fc = GUICtrlCreateButton('FC', 165, 65, 25, 20)
$fav_inet = GUICtrlCreateButton('Internet', 205, 65, 65, 20)
$fav_downlods = GUICtrlCreateButton('Donloads', 275, 65, 60, 20)
$fav_xpcd = GUICtrlCreateButton('XPCD', 340, 65, 40, 20)
$fav_temp = GUICtrlCreateButton('Temp', 400, 65, 40, 20)
$fav_brennen = GUICtrlCreateButton('Brennen', 10, 35, 60, 20)
$fav_office_tools = GUICtrlCreateButton('Office-Tools', 80, 35, 90, 20)
$seite = GUICtrlCreateCheckbox('Links', 230, 35, 60, 20)
GUICtrlSetFont($seite, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_progs, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_packs, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_fc, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_downlods, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_xpcd, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_inet, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_sys, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_brennen, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_temp, 8, 800, 1, 'Verdana')
GUICtrlSetFont($fav_office_tools, 8, 800, 1, 'Verdana')
;-------------------------Kommandozeile--------------------------------
;~ Dim $file
;~ If $CmdLine[0] = 1 Then
;~ $file = $CmdLine[1]
;~ If StringInStr ($CmdLine[1], '.txt') or StringInStr ($CmdLine[1], '.ini' ) or StringInStr ($CmdLine[1], '.log' ) or StringInStr ($CmdLine[1], '.bat' )> 1 Then
;~ $test = StringInStr ($CmdLine[1], '.txt' )
;~ Run('E:\office\tools\PSPad\PSPad.exe "' & $CmdLineRaw & '"')
;~ Exit
;~ Else
;~ GUICtrlSetData($input, $file)
;~ EndIf
;~ EndIf
;-------------------------Kommandozeile Ende--------------------------------
GUISetState()
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
;extras
Case $msg = $extras_umb
Run('E:\TOOLS\SYSTEM\freeCommander\tools\rename\lupas_fc.exe')
;grafik
Case $msg = $grafik_pe
Run('E:\Office\Grafik\PhotoExplorer\ViewItPhotoExplorer_pro.exe')
Case $msg = $grafik_pf
Run('E:\Office\Grafik\PhotoFiltre\PhotoFiltre.exe')
Case $msg = $grafik_futurix
Run('E:\Office\Grafik\FuturixImager\fximager.exe')
Case $msg = $grafik_fpr
Run('E:\Office\Grafik\FastStone Photo Resizer\FSResizer.exe')
;brennen
Case $msg = $brennen_eac
Run('E:\tools\brennen\EAC\eac1.exe', "E:\TOOLS\BRENNEN\EAC")
Case $msg = $brennen_bao
Run('E:\tools\brennen\burnatonce\burnatonce.exe', "E:\tools\brennen\burnatonce")
Case $msg = $brennen_baoaudio
Run('E:\tools\brennen\burnatonce\burnatonce-audio.exe', "E:\tools\brennen\burnatonce")
Case $msg = $brennen_baoboot
Run('E:\tools\brennen\burnatonce\burnatonce-start.exe', "E:\tools\brennen\burnatonce")
Case $msg = $brennen_bootisogui
Run('E:\tools\brennen\cdimagegui\cdimage-iso-brennen.exe', "E:\tools\brennen\cdimagegui")
Case $msg = $brennen_cdimage
Run('E:\tools\brennen\cdmage\CDmage.exe', "E:\tools\brennen\cdmage")
Case $msg = $brennen_nero
Run('E:\tools\brennen\Nero\Nero-Start.exe', "E:\tools\brennen\Nero")
Case $msg = $brennen_nero_boot
Run('E:\tools\brennen\Nero\nero-boot.exe', "E:\tools\brennen\Nero")
Case $msg = $brennen_qemu
Run('E:\tools\system\QemuManager\QemuManager.exe', 'E:\tools\system\QemuManager')
;o_progs
Case $msg = $o_progs_fr
Run('E:\Office\buero\finereader\HomeEdition.exe')
;tools
Case $msg = $tools_aida
Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\aida32.exe')
Case $msg = $tools_auotstart
Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\autoruns\autoruns.exe')
Case $msg = $tools_taskmgr
Run('taskmgr.exe')
Case $msg = $tools_serconf
Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\ServConf\ServConf.exe')
Case $msg = $regshot
Run('E:\tools\system\regcool\regshot.exe', 'E:\tools\system\regcool')
Case $msg = $tools_uninstaller
Run('E:\TOOLS\SYSTEM\freeCommander\tools\uninstaller\utool.exe')
Case $msg = $tools_suche
Run('E:\TOOLS\SYSTEM\freeCommander\tools\Suche\locate_fc.exe')
Case $msg = $tools_siw
Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\siw\siw-start.exe')
;Hilfe
Case $msg = $hilfe_autoit
Run('cmd.exe /C E:\Office\Tools\pspad\help\AutoItdeutsch.chm', "", @SW_HIDE)
Case $msg = $hilfe_autoit_b
Run('cmd.exe /C E:\tools\SYSTEM\Autoit3\AutoIt3-beta.chm', "", @SW_HIDE)
Case $msg = $hilfe_autoit_udf
Run('cmd.exe /C E:\tools\SYSTEM\Autoit3\UDFs3.chm', "", @SW_HIDE)
Case $msg = $hilfe_fc
Run('cmd.exe /C E:\TOOLS\SYSTEM\freeCommander\FreeCommander.chm', "", @SW_HIDE)
Case $msg = $hilfe_winfaq
Run('cmd.exe /C E:\Office\Tools\pspad\help\winfaq.chm', "", @SW_HIDE)
Case $msg = $hilfe_7zip
Run('cmd.exe /C E:\TOOLS\SYSTEM\freeCommander\7zip\7-zip.chm', "", @SW_HIDE)
;projecte
Case $msg = $project_xpcd
Run('E:\Office\Tools\PSPad\PSPad.exe E:\Office\Tools\PSPad\projecte\XPC.ppr')
FileCopy('E:\Office\Tools\PSPad\projecte\XPC.ppr', 'E:\Office\Tools\PSPad\projecte\XPC2.ppr')
Case $msg = $project__ordner
Run('E:\tools\system\Autoit3\scite-start.exe E:\TOOLS\SYSTEM\freeCommander\openfile\ordner.au3')
;buttons
Case $msg = $bao
Run('E:\tools\brennen\burnatonce\burnatonce.exe')
Case $msg = $baoaudio
Run('E:\tools\brennen\burnatonce\burnatonce-audio.exe')
Case $msg = $baoboot
Run('E:\tools\brennen\burnatonce\burnatonce-start.exe')
Case $msg = $autoitmacro
Run('E:\tools\SYSTEM\Autoit3\AutoItMacroGenerator02.exe')
Case $msg = $eac
Run('E:\TOOLS\BRENNEN\EAC\eac1.exe', "E:\TOOLS\BRENNEN\EAC")
Case $msg = $bootisogui
Run('E:\tools\brennen\cdimagegui\bootisogui.exe')
Case $msg = $7zipgui
Run('E:\TOOLS\SYSTEM\freeCommander\7zip\7zipgui_fc.exe')
Case $msg = $lister
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\lister\lister-fc.exe')
Case $msg = $scite
Run('E:\tools\SYSTEM\Autoit3\SciTe_fc.exe')
Case $msg = $pspad
Run('E:\Office\Tools\pspad\pspad_fc.exe')
Case $msg = $uniex
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\universalextractor\bin\uniex_fc.exe')
Case $msg = $keeppasss
Run('E:\tools\system\passwort\KeePass Password Safe\KeePass.exe')
Case $msg = $netdrive
Run('E:\tools\kommunikation\netdrive\netdrive_dienst.exe')
Case $msg = $clipput
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\clip-ftp.exe')
Case $msg = $cmd_fc
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\cmd-start.exe')
Case $msg = $7zip_pack
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\7zip_fc.exe')
Case $msg = $unlocker
Run('E:\tools\system\Unlocker\unlocker-start.exe')
Case $msg = $firefox
Run('E:\tools\kommunikation\firefox\PortableFirefox.exe')
Case $msg = $thunderbird
Run('E:\tools\kommunikation\PortableThunderbird\PortableThunderbird.exe')
Case $msg = $processexplorer
Run(@WindowsDir & '\system32\taskmgr.exe')
Case $msg = $neustart
Run(@ScriptDir & '\neustart.exe')
Case $msg = $desktop
Run('cmd.exe /C "' & @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\Desktop anzeigen.scf"', "", @SW_HIDE)
Case $msg = $filenew
WinActivate("freeCommander", "3. Bearbeiten")
Send("^!{INS}")
$file = InputBox('Neue Datei erstellen', "Dateinamen eingeben", "", "", 100, 100, -1, -1)
$file_2 = ClipGet()
FileWrite($file_2 & '\' & $file, ".")
Case $msg = $arbeitsplatz
_dir('E:\System\Arbeitsplatz')
Case $msg = $drucker
_dir('E:\System\Drucker')
Case $msg = $systemsteurung
_dir('E:\System\Systemsteurung')
Case $msg = $verwaltung
_dir('E:\System\Verwaltung')
Case $msg = $papierkorb
Run('subst.exe P: G:\Papierkorb', '', @SW_HIDE)
Case $msg = $ende
WinActivate( "freeCommander" , "Bearbeiten")
Send("!{F4}")
While 1
ProcessClose('ordner.exe')
WEnd
Exit
;ordner
Case $msg = $daten_doks
_dir('D:\Dokummente')
Case $msg = $daten_kh
_dir('D:\Dokummente\Gesundheit')
Case $msg = $daten_bilder
_dir('D:\Bilder')
Case $msg = $lager_filme
_dir('F:\filme')
Case $msg = $lager_musik
_dir('F:\musik')
;office
Case $msg = $office_tools
_dir('E:\Tools')
Case $msg = $office_office
_dir('E:\Office')
Case $msg = $office_toolsmm
_dir('E:\Office\mm\toolsMM')
Case $msg = $office_o_tools
_dir('E:\Office\Tools')
Case $msg = $fav_office_tools
_dir('E:\Office\Tools')
Case $msg = $office_grafik
_dir('E:\Office\Grafik')
Case $msg = $office_pspad
_dir('E:\Office\Tools\pspad')
Case $msg = $office_prog
_dir('E:\Programme')
Case $msg = $office_prog_1
_dir('E:\Programme1')
Case $msg = $fav_progs
_dir('E:\Programme1')
;tools
Case $msg = $office_kk
_dir('E:\tools\kommunikation')
Case $msg = $fav_inet
_dir('E:\tools\kommunikation')
Case $msg = $office_brennen
_dir('E:\tools\brennen\')
Case $msg = $fav_brennen
_dir('E:\tools\brennen\')
Case $msg = $office_system
_dir('E:\tools\system')
Case $msg = $fav_sys
_dir('E:\tools\system')
Case $msg = $office_fc
_dir('E:\TOOLS\SYSTEM\freeCommander\')
Case $msg = $fav_fc
_dir('E:\TOOLS\SYSTEM\freeCommander\')
Case $msg = $office_autoit
_dir('E:\tools\SYSTEM\Autoit3')
Case $msg = $office_fc_tools
_dir('E:\TOOLS\SYSTEM\freeCommander\tools\')
;sys
Case $msg = $sys_temp
_dir(@TempDir)
Case $msg = $sys_sys
_dir(@SystemDir)
Case $msg = $sys_win
_dir(@WindowsDir)
;xpcd
Case $msg = $xpcd_packs
_dir('E:\TOOLS\SYSTEM\nLite\packs')
Case $msg = $fav_packs
_dir('E:\TOOLS\SYSTEM\nLite\packs')
Case $msg = $xpcd_root
_dir('F:\soft\XPCD\')
Case $msg = $fav_xpcd
_dir('F:\soft\XPCD\')
Case $msg = $xpcd_oem
_dir('F:\soft\XPCD\$OEM$')
Case $msg = $xpcd_docs
_dir('F:\soft\XPCD\$OEM$\$Docs')
Case $msg = $xpcd_docs_au
_dir('F:\soft\XPCD\$OEM$\$Docs\All Users')
Case $msg = $xpcd_docs_au_ad
_dir('F:\soft\XPCD\$OEM$\$Docs\All Users\Anwendungsdaten')
Case $msg = $xpcd_docs_au_sm
_dir('F:\soft\XPCD\$OEM$\$Docs\All Users\Startmenü')
Case $msg = $xpcd_docs_default
_dir('F:\soft\XPCD\$OEM$\$Docs\Default User')
Case $msg = $xpcd_docs_default_ad
_dir('F:\soft\XPCD\$OEM$\$Docs\Default User\Anwendungsdaten')
Case $msg = $xpcd_docs_default_ql
_dir('f:\soft\XPCD\$OEM$\$Docs\Default User\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch')
Case $msg = $xpcd_docs_default_sm
_dir('F:\soft\XPCD\$OEM$\$Docs\Default User\Startmenü')
Case $msg = $xpcd_oem_win
_dir('f:\soft\XPCD\$OEM$\$$')
Case $msg = $xpcd_oem_sys
_dir('f:\soft\XPCD\$OEM$\$$\system32')
Case $msg = $xpcd_install
_dir('F:\soft\XPCD\install\')
Case $msg = $xpcd_install_xptricks
_dir('f:\soft\XPCD\install\xp-tricks')
;lager
Case $msg = $lager_down
_dir('F:\downloads')
Case $msg = $fav_downlods
_dir('F:\downloads')
Case $msg = $lager_soft
_dir('F:\soft')
Case $msg = $lager_softdvd
_dir('F:\soft\softdvd')
Case $msg = $lager_treiber
_dir('F:\soft\softdvd\Treiber')
;g
Case $msg = $g_temp
_dir('G:\temp')
Case $msg = $fav_temp
_dir('G:\temp')
Case $msg = $g_guides
_dir('G:\Guides\German-nLite-Guides')
Case $msg = $g_root
_dir('G:\')
;ftp
Case $msg = $ftp_avm_dsl
_dir('R:\fritz.box\fritzdsl\deutsch')
Case $msg = $ftp_ata
_dir('R:\fritz.box\fritzbox.fon_ata\firmware\deutsch')
Case $msg = $ftp_fax
_dir('R:\fritz.box\tools\fax4box')
Case $msg = $ftp_tapi
_dir('R:\fritz.box\tools\tapi4box')
Case $msg = $ftp_downloads
_dir('U:\johnystools')
Case $msg = $ftp_addons
_dir('U:\johnystools\JohnysAddons')
Case $msg = $ftp_help
_dir('U:\helpfiles')
Case $msg = $ftp_gn
_dir('S:\guides')
Case $msg = $ftp_packer
_dir('V:\pub\pc\pack')
Case $msg = $ftp_brenner
_dir('Q:\pub\filepilot\windows\cd-brenner')
;~ Case $msg = $ende
;~ Exit
;ExitLoop
EndSelect
WEnd
;Exit
;---------------------------Funktionen-------
Func _dir($dir)
Opt("WinTitleMatchMode", 4)
WinActivate("freeCommander ","")
;MsgBox("", "", GUICtrlRead($seite))
$dll = DllOpen("user32.dll")
If GUICtrlRead($seite) = 1 Or _IsPressed('10', $dll) Then
DllClose($dll)
;If
ControlClick("freeCommander","","TfcDirView2")
ElseIf GUICtrlRead($seite) = 4 Or Not _IsPressed('10', $dll) Then
DllClose($dll)
ControlClick("freeCommander","","TfcDirView1")
EndIf
ControlSetText("freeCommander","Bearbeiten","Edit1", $dir)
ControlClick("freeCommander","Bearbeiten","Edit1")
Send("{Enter}")
WinActivate("freeCommander","Bearbeiten")
WinActivate("OpenDir", "")
DllClose($dll)
;Exit
EndFunc
Func _RunDOS($sCommand)
Return RunWait(@ComSpec & " /C " & $sCommand, "", @SW_HIDE)
EndFunc ;==>_RunDOS
;E:\TOOLS\SYSTEM\AutoIt3\beta\Aut2Exe\Aut2exe.exe
EXIT
Func FC_Start()
GUICtrlSetTip($bao, 'Burnatonce')
GUICtrlSetTip($baoboot, 'Burnatonce-Boot-DVD')
GUICtrlSetTip($baoaudio, 'Burnatonce-Audio')
GUICtrlSetTip($autoitmacro, 'AutoitMacro')
GUICtrlSetTip($eac, 'ExactAudioCopy')
GUICtrlSetTip($bootisogui, 'Boot-Iso-Gui')
GUICtrlSetTip($7zipgui, '7zip-SFX')
GUICtrlSetTip($lister, 'Lister')
GUICtrlSetTip($scite, 'Scite')
GUICtrlSetTip($pspad, 'PsPad')
GUICtrlSetTip($uniex, 'Entpacker')
GUICtrlSetTip($keeppasss, 'KeepPass')
GUICtrlSetTip($netdrive, 'NetDrive')
GUICtrlSetTip($clipput, 'Pfad Kopieren')
GUICtrlSetTip($cmd_fc, 'Eingabeaufforderung')
GUICtrlSetTip($7zip_pack, '7zip Archiv anlegen')
GUICtrlSetTip($unlocker, 'Unlocker')
GUICtrlSetTip($firefox, 'Firefox')
GUICtrlSetTip($thunderbird, 'Thunderbird')
GUICtrlSetTip($processexplorer, 'ProcessExplorer')
GUICtrlSetTip($neustart, 'Windows Herunterfahren')
GUICtrlSetTip($desktop, 'Desktop Anzeigen')
GUICtrlSetTip($filenew, 'Datei Anlegen')
GUICtrlSetTip($papierkorb, 'Papierkorb')
;Systemordner
GUICtrlSetTip($arbeitsplatz, 'Arbeitsplatz')
GUICtrlSetTip($systemsteurung, 'Systemsteurung')
GUICtrlSetTip($verwaltung, 'Verwaltung')
GUICtrlSetTip($drucker, 'Drucker')
GUICtrlSetTip($baoboot, 'Burnatonce-Boot-DVD')
GUICtrlSetTip($baoaudio, 'Burnatonce-Audio')
GUICtrlSetTip($autoitmacro, 'AutoitMacro')
GUICtrlSetTip($eac, 'ExactAudioCopy')
GUICtrlSetTip($bootisogui, 'Boot-Iso-Gui')
GUICtrlSetTip($7zipgui, '7zip-SFX')
GUICtrlSetTip($lister, 'Lister')
GUICtrlSetTip($scite, 'Scite')
GUICtrlSetTip($pspad, 'PsPad')
GUICtrlSetTip($uniex, 'Entpacker')
GUICtrlSetTip($keeppasss, 'KeepPass')
GUICtrlSetTip($netdrive, 'NetDrive')
GUICtrlSetTip($clipput, 'Pfad Kopieren')
GUICtrlSetTip($cmd_fc, 'Eingabeaufforderung')
GUICtrlSetTip($7zip_pack, '7zip Archiv anlegen')
GUICtrlSetTip($unlocker, 'Unlocker')
GUICtrlSetTip($firefox, 'Firefox')
GUICtrlSetTip($thunderbird, 'Thunderbird')
GUICtrlSetTip($processexplorer, 'ProcessExplorer')
GUICtrlSetTip($neustart, 'Windows Herunterfahren')
GUICtrlSetTip($desktop, 'Desktop Anzeigen')
GUICtrlSetTip($filenew, 'Datei Anlegen')
GUICtrlSetTip($papierkorb, 'Papierkorb')
;Systemordner
GUICtrlSetTip($arbeitsplatz, 'Arbeitsplatz')
GUICtrlSetTip($systemsteurung, 'Systemsteurung')
GUICtrlSetTip($verwaltung, 'Verwaltung')
GUICtrlSetTip($drucker, 'Drucker')
;Aktualisierung
Dim $pos_2, $pos_3, $pos
If WinExists( "freeCommander" , "Bearbeiten") Then
HotKeySet("{F9}", "Uniextract")
HotKeySet("{F8}", "ClipGetFtp")
HotKeySet("{F10}", "pack_7zip")
HotKeySet("!{DEL}", "loeschen")
HotKeySet("{NUMPADSUB}", "_links")
HotKeySet("{BROWSER_BACK}", '_zurueck')
HotKeySet("{BROWSER_FORWARD}", '_vorwaerts')
$pos = WinGetPos ( "freeCommander" , "Bearbeiten")
$pos_2 = $pos[0] + 300
$pos_3 = $pos[1] + 23
EndIf
WinMove ( "OpenDir", "", $pos_2, $pos_3)
EndFunc
Func _zurueck()
Send("!{LEFT}")
EndFunc
Func _vorwaerts()
Send('!{RIGHT}')
EndFunc
Func _links()
WinActivate("OpenDir","")
;MsgBox("", "", GUICtrlRead($seite))
If GUICtrlRead($seite) = 4 Then
GUICtrlSetState($seite, $GUI_CHECKED)
Else
GUICtrlSetState($seite, $GUI_UNCHECKED)
EndIf
EndFunc
Func pack_7zip()
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\7zip_fc.exe')
EndFunc
Func ClipGetFtp()
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\clip-ftp.exe')
EndFunc
Func Uniextract()
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\universalextractor\bin\uniex_fc.exe')
EndFunc
Func loeschen()
Run('E:\TOOLS\SYSTEM\freeCommander\openfile\loeschen.exe')
EndFunc
Func _datei()
$file = InputBox('Neue Datei erstellen', "Dateinamen eingeben", "", "*", 50, 50, -1, -1)
Send("^!{INS}")
$file_2 = ClipGet()
FileWrite($file_2 & '\' & $file, "")
EndFunc
Alles anzeigen
Ein Dank geht an euch für den Tip mit der Info für die Icons und an Cyclops für die Funktion um die Toolbar an den FC dauerhaft zu heften