Version 1.0 für Windows XP
Spoiler anzeigen
AutoIt
If WinExists ("[CLASS:ExploreWClass]") Then
Local $opt = Opt('WinTitleMatchMode', 4)
Do
until WinClose("[CLASS:ExploreWClass]") = 0 and WinClose("[CLASS:CabinetWClass]") = 0
Opt('WinTitleMatchMode', $opt)
Else
Dim $ShellApp
$ShellApp=ObjCreate("shell.application")
$ShellApp.MinimizeAll
Send("#e")
WinWait("Arbeitsplatz")
Send("#e")
WinWait("Arbeitsplatz")
Sleep(500)
$ShellApp.TileVertically
EndIf
Alles anzeigen