Eigene Toolbar in Dateicommander integrieren

johny

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

**peethebee**

Hallo!

Super-Sache. Hätte nie an diese ANwendungsmöglihckeit von AutoIt gedacht. Man wird immer wieder positiv überrascht.

peethebee

jonk

Hi,

ich habe mir gerade mal den freeCommander heruntergeladen und bin angenehm überrascht. Bisher habe ich wenn überhaupt FAR genutzt. Der
freeCommander gefällt mir bis jetzt wirklich gut. Deine Toolbar werde ich mir
noch angucken. Der Screenshot sieht ja schonmal vielversprechend aus .

ytwinky

Hi,
der freeCommander ist echt ein tolles Programm!
Ich habe Marek gefragt, ob er in die neue Version einen FTP-Client einbauen würde und er meinte vllt..
..naja, es geht ja auch mit Programmfavoriten, so kann ich wenigstens mein Lieblingsprogramm benutzen..
(Nein, es ist nicht das .au3-File , es ist Perfect_FTP, wie der Name schon sagt..)
Dieses Skript hier werde ich aber prüfen, da der neue freeCommander schneller geworden ist und ich sowieso fast nur mit 2-Fenster-Programmen arbeite.
(TwoDirs, freeCommander etc.)
Gruß
ytwinky

johny

Ich kann euch Netdrive ans Herz legen, damit kann man ein FTP-zugang oder Webdav als virtuelles Laufwerk mounten, als quasi Ersatz für FTP für den Freecommander

http://www.loyola.edu/5555/netdrive/installingnetdrive/

Es ist leider nur sehr Resourcenlastig

ytwinky

Hi johny,
'Select Case' ist schon eine tolle Anweisung..
'Switch' ist besser:
Während bei deinem 'Select Case' bei jedem 'Case' eine Bedingung geprüft wird,
gibt es bei 'Switch'(siehe Hilfe) nur eine Prüfung am Anfang!
Ein 'Case' könnte dann auch so aussehen:

Code

Case $brennen_qemu
	DoIt('E:\tools\system\QemuManager\QemuManager.exe', 'E:\tools\system\QemuManager')

Die zugehörige Function wäre dann:

Code

Func DoIt($What, $Where)
	If FileExists($What) Then
		Run($What, $Where)
	Else
		MsgBox(4096, "Ooops..", $What &" not found!")
	EndIf
EndFunc

Da ich die meisten der benötigten Programme sowieso nicht oder andere|bessere habe, die über
AppBar oder RunIt aufgerufen werden, brauche ich dieses Skript nicht wirklich..
(Google 'AppBar'[besser nicht die deutsche Version wählen] oder Google 'RunIt')
In Zusammenarbeit mit Quick Launch und SendTo habe ich auch mit dem freeCommander keine Probleme,
da er ja auch (Programm-)Favoriten unterstützt(AUCH für Ordner..)
Aber sei nicht traurig , denn durch dieses Skript kann ich jetzt auch Menüs gestalten..
..was vorher nur durch Denken(aua, das kann weh tun..) und Suchen in der Hilfe möglich
gewesen wäre
Btw: Perfect_FTP ist nicht ressourcen-intensiv und ich habe eine Vollversion(Heft-CD)
Gruß
ytwinky

**bernd670**

ytwinky,

ich muss dir leider wiedersprechen auch bei der Switch-Anweisung muss bei jeder Case-Anweisung die Bedingung geprüft werden. Select hat sogar den Vorteil das ich mehrere Bedingungen in einer Case-Anweisung prüfen kann!

**peethebee**

Bernd: Das wollte ich auch gerade schreiben, war aber zu faul Unsere Gedankenübertragung ist geil :schild4:

johny

Auch wenn es so aussieht als wenn ich mich super auskennen wurde mit Autoit. Ich behersche nur die Grundzuge, alles andere mache ich per Try and Error und durch fleissiges Lesen hier.

Daher bin ich froh, das es funzt, werde es mal mit Switch testen, danke für den Tip.

ytwinky

Zitat

Original von bernd670
ytwinky,

ich muss dir leider wiedersprechen auch bei der Switch-Anweisung muss bei jeder Case-Anweisung die Bedingung geprüft werden. Select hat sogar den Vorteil das ich mehrere Bedingungen in einer Case-Anweisung prüfen kann!

Bei Switch wird die Bedingung einmal berechnet und dann nur noch verglichen..
Diese Vergleiche sind nicht so rechenaufwändig.
Wir gehen von zwei unterschiedlichen Standpunkten an die Sache heran:
Ich will möglichst wenig prüfen und somit effektiver sein..
..du willst möglichst viel prüfen und somit effektiver sein
Es scheint eine Einstellungsfrage zu sein.
Anyway, this is a free language, program as you like it most..
Gruß
ytwinky

**bernd670**

1. Werden Bedingungen nicht berechnet sondern geprüft
und 2. ist wohl egal ob ich schreibe:

Spoiler anzeigen

Code

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

Alles anzeigen

oder ob ich schreibe:

Spoiler anzeigen

Code

While 1
	Switch GUIGetMsg()
		Case $GUI_EVENT_CLOSE
			ExitLoop
			;extras
		Case $extras_umb
			Run('E:\TOOLS\SYSTEM\freeCommander\tools\rename\lupas_fc.exe')
			;grafik
		Case $grafik_pe
			Run('E:\Office\Grafik\PhotoExplorer\ViewItPhotoExplorer_pro.exe')
		Case $grafik_pf
			Run('E:\Office\Grafik\PhotoFiltre\PhotoFiltre.exe')
		Case $grafik_futurix
			Run('E:\Office\Grafik\FuturixImager\fximager.exe')
		Case $grafik_fpr
			Run('E:\Office\Grafik\FastStone Photo Resizer\FSResizer.exe')
			;brennen
		Case $brennen_eac
			Run('E:\tools\brennen\EAC\eac1.exe', "E:\TOOLS\BRENNEN\EAC")
		Case $brennen_bao
			Run('E:\tools\brennen\burnatonce\burnatonce.exe', "E:\tools\brennen\burnatonce")
		Case $brennen_baoaudio
			Run('E:\tools\brennen\burnatonce\burnatonce-audio.exe', "E:\tools\brennen\burnatonce")
		Case $brennen_baoboot
			Run('E:\tools\brennen\burnatonce\burnatonce-start.exe', "E:\tools\brennen\burnatonce")
		Case $brennen_bootisogui
			Run('E:\tools\brennen\cdimagegui\cdimage-iso-brennen.exe', "E:\tools\brennen\cdimagegui")
		Case $brennen_cdimage
			Run('E:\tools\brennen\cdmage\CDmage.exe', "E:\tools\brennen\cdmage")
		Case $brennen_nero
			Run('E:\tools\brennen\Nero\Nero-Start.exe', "E:\tools\brennen\Nero")
		Case $brennen_nero_boot
			Run('E:\tools\brennen\Nero\nero-boot.exe', "E:\tools\brennen\Nero")
		Case $brennen_qemu
			Run('E:\tools\system\QemuManager\QemuManager.exe', 'E:\tools\system\QemuManager')
			;o_progs
		Case $o_progs_fr
			Run('E:\Office\buero\finereader\HomeEdition.exe')
			;tools
		Case $tools_aida
			Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\aida32.exe')
		Case $tools_auotstart
			Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\autoruns\autoruns.exe')
		Case $tools_taskmgr
			Run('taskmgr.exe')
		Case $tools_serconf
			Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\ServConf\ServConf.exe')
		Case $regshot
			Run('E:\tools\system\regcool\regshot.exe', 'E:\tools\system\regcool')
		Case $tools_uninstaller
			Run('E:\TOOLS\SYSTEM\freeCommander\tools\uninstaller\utool.exe')
		Case $tools_suche
			Run('E:\TOOLS\SYSTEM\freeCommander\tools\Suche\locate_fc.exe')
		Case $tools_siw
			Run('E:\TOOLS\SYSTEM\freeCommander\tools\SystemInfo\siw\siw-start.exe')
			;Hilfe
		Case $hilfe_autoit
			Run('cmd.exe /C E:\Office\Tools\pspad\help\AutoItdeutsch.chm', "", @SW_HIDE)
		Case $hilfe_autoit_b
			Run('cmd.exe /C E:\tools\SYSTEM\Autoit3\AutoIt3-beta.chm', "", @SW_HIDE)
		Case $hilfe_autoit_udf
			Run('cmd.exe /C E:\tools\SYSTEM\Autoit3\UDFs3.chm', "", @SW_HIDE)
		Case $hilfe_fc
			Run('cmd.exe /C  E:\TOOLS\SYSTEM\freeCommander\FreeCommander.chm', "", @SW_HIDE)
		Case $hilfe_winfaq
			Run('cmd.exe /C E:\Office\Tools\pspad\help\winfaq.chm', "", @SW_HIDE)
		Case $hilfe_7zip
			Run('cmd.exe /C E:\TOOLS\SYSTEM\freeCommander\7zip\7-zip.chm', "", @SW_HIDE)
			;projecte
		Case $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 $project__ordner
			Run('E:\tools\system\Autoit3\scite-start.exe  E:\TOOLS\SYSTEM\freeCommander\openfile\ordner.au3')

			;buttons
		Case $bao
			Run('E:\tools\brennen\burnatonce\burnatonce.exe')
		Case $baoaudio
			Run('E:\tools\brennen\burnatonce\burnatonce-audio.exe')
		Case $baoboot
			Run('E:\tools\brennen\burnatonce\burnatonce-start.exe')
		Case $autoitmacro
			Run('E:\tools\SYSTEM\Autoit3\AutoItMacroGenerator02.exe')
		Case $eac
			Run('E:\TOOLS\BRENNEN\EAC\eac1.exe', "E:\TOOLS\BRENNEN\EAC")
		Case $bootisogui
			Run('E:\tools\brennen\cdimagegui\bootisogui.exe')
		Case $7zipgui
			Run('E:\TOOLS\SYSTEM\freeCommander\7zip\7zipgui_fc.exe')
		Case $lister
			Run('E:\TOOLS\SYSTEM\freeCommander\openfile\lister\lister-fc.exe')
		Case $scite
			Run('E:\tools\SYSTEM\Autoit3\SciTe_fc.exe')
		Case $pspad
			Run('E:\Office\Tools\pspad\pspad_fc.exe')
		Case $uniex
			Run('E:\TOOLS\SYSTEM\freeCommander\openfile\universalextractor\bin\uniex_fc.exe')
		Case $keeppasss
			Run('E:\tools\system\passwort\KeePass Password Safe\KeePass.exe')
		Case $netdrive
			Run('E:\tools\kommunikation\netdrive\netdrive_dienst.exe')
		Case $clipput
			Run('E:\TOOLS\SYSTEM\freeCommander\openfile\clip-ftp.exe')
		Case $cmd_fc
			Run('E:\TOOLS\SYSTEM\freeCommander\openfile\cmd-start.exe')
		Case $7zip_pack
			Run('E:\TOOLS\SYSTEM\freeCommander\openfile\7zip_fc.exe')
		Case $unlocker
			Run('E:\tools\system\Unlocker\unlocker-start.exe')
		Case $firefox
			Run('E:\tools\kommunikation\firefox\PortableFirefox.exe')
		Case $thunderbird
			Run('E:\tools\kommunikation\PortableThunderbird\PortableThunderbird.exe')
		Case $processexplorer
			Run(@WindowsDir & '\system32\taskmgr.exe')
		Case $neustart
			Run(@ScriptDir & '\neustart.exe')

		Case $desktop
			Run('cmd.exe /C "' & @AppDataDir & '\Microsoft\Internet Explorer\Quick Launch\Desktop anzeigen.scf"', "", @SW_HIDE)
		Case $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 $arbeitsplatz
			_dir('E:\System\Arbeitsplatz')
		Case $drucker
			_dir('E:\System\Drucker')
		Case $systemsteurung
			_dir('E:\System\Systemsteurung')
		Case $verwaltung
			_dir('E:\System\Verwaltung')
		Case $papierkorb
			Run('subst.exe P: G:\Papierkorb', '', @SW_HIDE)
		Case $ende
			WinActivate( "freeCommander" , "Bearbeiten")
			Send("!{F4}")
			While 1
				ProcessClose('ordner.exe')
			WEnd
			Exit
			;ordner

		Case $daten_doks
			_dir('D:\Dokummente')
		Case $daten_kh
			_dir('D:\Dokummente\Gesundheit')
		Case $daten_bilder
			_dir('D:\Bilder')
		Case $lager_filme
			_dir('F:\filme')
		Case $lager_musik
			_dir('F:\musik')
			;office
		Case $office_tools
			_dir('E:\Tools')
		Case $office_office
			_dir('E:\Office')
		Case $office_toolsmm
			_dir('E:\Office\mm\toolsMM')
		Case $office_o_tools
			_dir('E:\Office\Tools')
		Case $fav_office_tools
			_dir('E:\Office\Tools')
		Case $office_grafik
			_dir('E:\Office\Grafik')
		Case $office_pspad
			_dir('E:\Office\Tools\pspad')
		Case $office_prog
			_dir('E:\Programme')
		Case $office_prog_1
			_dir('E:\Programme1')
		Case $fav_progs
			_dir('E:\Programme1')
			;tools
		Case $office_kk
			_dir('E:\tools\kommunikation')
		Case $fav_inet
			_dir('E:\tools\kommunikation')
		Case $office_brennen
			_dir('E:\tools\brennen\')
		Case $fav_brennen
			_dir('E:\tools\brennen\')
		Case $office_system
			_dir('E:\tools\system')
		Case $fav_sys
			_dir('E:\tools\system')
		Case $office_fc
			_dir('E:\TOOLS\SYSTEM\freeCommander\')
		Case $fav_fc
			_dir('E:\TOOLS\SYSTEM\freeCommander\')
		Case $office_autoit
			_dir('E:\tools\SYSTEM\Autoit3')
		Case $office_fc_tools
			_dir('E:\TOOLS\SYSTEM\freeCommander\tools\')
			;sys
		Case $sys_temp
			_dir(@TempDir)
		Case $sys_sys
			_dir(@SystemDir)
		Case $sys_win
			_dir(@WindowsDir)
			;xpcd
		Case $xpcd_packs
			_dir('E:\TOOLS\SYSTEM\nLite\packs')
		Case $fav_packs
			_dir('E:\TOOLS\SYSTEM\nLite\packs')
		Case $xpcd_root
			_dir('F:\soft\XPCD\')
		Case $fav_xpcd
			_dir('F:\soft\XPCD\')
		Case $xpcd_oem
			_dir('F:\soft\XPCD\$OEM$')
		Case $xpcd_docs
			_dir('F:\soft\XPCD\$OEM$\$Docs')
		Case $xpcd_docs_au
			_dir('F:\soft\XPCD\$OEM$\$Docs\All Users')
		Case $xpcd_docs_au_ad
			_dir('F:\soft\XPCD\$OEM$\$Docs\All Users\Anwendungsdaten')
		Case $xpcd_docs_au_sm
			_dir('F:\soft\XPCD\$OEM$\$Docs\All Users\Startmenü')
		Case $xpcd_docs_default
			_dir('F:\soft\XPCD\$OEM$\$Docs\Default User')
		Case $xpcd_docs_default_ad
			_dir('F:\soft\XPCD\$OEM$\$Docs\Default User\Anwendungsdaten')
		Case $xpcd_docs_default_ql
			_dir('f:\soft\XPCD\$OEM$\$Docs\Default User\Anwendungsdaten\Microsoft\Internet Explorer\Quick Launch')
		Case $xpcd_docs_default_sm
			_dir('F:\soft\XPCD\$OEM$\$Docs\Default User\Startmenü')
		Case $xpcd_oem_win
			_dir('f:\soft\XPCD\$OEM$\$$')
		Case $xpcd_oem_sys
			_dir('f:\soft\XPCD\$OEM$\$$\system32')
		Case $xpcd_install
			_dir('F:\soft\XPCD\install\')
		Case $xpcd_install_xptricks
			_dir('f:\soft\XPCD\install\xp-tricks')
			;lager
		Case $lager_down
			_dir('F:\downloads')
		Case $fav_downlods
			_dir('F:\downloads')
		Case $lager_soft
			_dir('F:\soft')
		Case $lager_softdvd
			_dir('F:\soft\softdvd')
		Case $lager_treiber
			_dir('F:\soft\softdvd\Treiber')
			;g
		Case $g_temp
			_dir('G:\temp')
		Case $fav_temp
			_dir('G:\temp')
		Case $g_guides
			_dir('G:\Guides\German-nLite-Guides')
		Case $g_root
			_dir('G:\')
			;ftp
		Case $ftp_avm_dsl
			_dir('R:\fritz.box\fritzdsl\deutsch')
		Case $ftp_ata
			_dir('R:\fritz.box\fritzbox.fon_ata\firmware\deutsch')
		Case $ftp_fax
			_dir('R:\fritz.box\tools\fax4box')
		Case $ftp_tapi
			_dir('R:\fritz.box\tools\tapi4box')
		Case $ftp_downloads
			_dir('U:\johnystools')
		Case $ftp_addons
			_dir('U:\johnystools\JohnysAddons')
		Case $ftp_help
			_dir('U:\helpfiles')
		Case $ftp_gn
			_dir('S:\guides')
		Case $ftp_packer
			_dir('V:\pub\pc\pack')
		Case $ftp_brenner
			_dir('Q:\pub\filepilot\windows\cd-brenner')
;~ 			Case $ende
;~ 			Exit
			;ExitLoop
	EndSwitch
WEnd

Alles anzeigen

in beiden Fällen ist das Ergebnis von GUIGetMsg() schon bekannt und es wird nur noch geprüft ob in welchem Fall die Bedingung erfüllt ist.

johny

egal, ich mache es jetzt mit Switch, gefällt mir besser, muss weniger schreiben, ich danke euch für den Tip

ytwinky

Eine Prüfung ist ein Vergleich und der setzt zwangsläufig eine Berechnung der
beteiligten Ausdrücke voraus..
Gruß
ytwinky

**bernd670**

Das ist mir schon auch klar! Diese Berechnung findet aber sowohl bei Select als auch bei der Switch-Anweisung erst bei den Case-Anweisungen statt! Wie sonst soll entschieden werden in welche Case-Anweisung verzweigt werden soll!

Der Ausdruck von dem in der Switch-Hilfe die Rede ist wird aber auch bei der Select-Anweisung nur einmal und zwar vor Select berechnet!