; Exakter Titel, aber Groß-Kleinschreibung wird ignoriert
Opt("WinTitleMatchMode",-3)

Global $Handle_Explorer_links
Global $Handle_Explorer_rechts

Erzeuge_Explorer("links")
Aktualisiere_Explorer("c:\windows",$Handle_Explorer_links)
Erzeuge_Explorer("rechts")
Aktualisiere_Explorer("c:\temp",$Handle_Explorer_rechts)

Sleep(2000)
; Funktioniert nicht!!!
WinActivate($Handle_Explorer_links)

Sleep(2000)

; Funktioniert nicht!!!
WinClose($Handle_Explorer_links)
Exit


func Erzeuge_Explorer($links_rechts)
	ShellExecute("explorer.exe")
	if @OSVersion = "WIN_7" Then
		$title = "Bibliotheken"
	Else
		$title = "Eigene Dateien"
	EndIf
	if $links_rechts="links" Then
		; links
		$Handle_Explorer_links = WinGetHandle($title,"")
		WinWaitActive($Handle_Explorer_links)
		WinMove($Handle_Explorer_links,"",0,0,@DesktopWidth/2,@DesktopHeight-480-60)
	Else
		; rechts
		$Handle_Explorer_rechts = WinGetHandle($title,"")
		WinWaitActive($Handle_Explorer_rechts)
		WinMove($Handle_Explorer_rechts,"",@DesktopWidth/2,0,@DesktopWidth/2,@DesktopHeight-480-60)
	EndIf
EndFunc

func Aktualisiere_Explorer($Ordner,$handle)
	$ret = WinActivate($handle)
	BlockInput(1)
	if @OSVersion = "WIN_7" Then
		$ret = ControlClick($handle,"",1001,"left",1,580)
	Else
		$ret = ControlClick($handle,"","Edit1","left",1,580)
	EndIf
		
	if $ret = 0 then 
		BlockInput(0)
		MsgBox(0,"Fehler","Click",1)
		Aktualisiere_Explorer($Ordner,$handle)
		Return
	EndIf

	send("{HOME}")		
	$text = $Ordner
	send("+{END}")
	ClipPut($text)
	;$ret = Sendcorrect($text)
	send("^v")
	send("{Enter}")
	BlockInput(0)
;	MsgBox(0,"Warte",$text)
	WinWait(StringLeft($text,95),"",5)
;	MsgBox(0,"Fertig",$text)
EndFunc