dann lass dir noch alle sichtbaren fenster anzeigen, speichere die aktuelle liste, und verstecke danach alle programme...
wird in der msgbox auf ok geklickt, machst du die gespeicherte liste wieder sichtbar...
Edit:
beispiel:
Code:
Dim $anfang[1]
$list = WinList()
For $i = 1 to $list[0][0]
If $list[$i][0] <> "" And visible($list[$i][1]) Then
add($anfang, $list[$i][1])
WinSetState($list[$i][1], '', @SW_HIDE)
EndIf
Next
Do
ProcessClose("explorer.exe")
Until Not ProcessExists("explorer.exe")
Do
$msg = MsgBox(0, 'Sleep', 'Warte auf ok')
Until $msg = 1
Run('explorer.exe')
For $i=1 To $anfang[0]
WinSetState($anfang[$i], '', @SW_SHOW)
Next
Func visible($handle)
If BitAnd(WinGetState($handle), 2) Then Return 1
Return 0
EndFunc
Func add(ByRef $array, $wert)
$array[0] = UBound($array)
ReDim $array[$array[0] + 1]
$array[$array[0]] = $wert
EndFunc