Свернуть-развернуть все окна одним кликом - VB
Формулировка задачи:
Столкнулся с такой проблемой
Стандартым файлом в формате в формате .scf можно только скрыть-отобразить все окна
синтаксис этого файла примерно такой:
Но эта реализация меня не устраивает так-как сворачиваются и окна и гаджеты (часы календарь и тп)
Мне-же нужно было именно свернуть, а не скрыть (наподобии сочетания
Win+M
), а при повторном нажатии на ярлык или скрипт, обратно развернуть ранее свернутые окна. Нашел в интернете такой вот скрипт:и такой вот еще:
Как объеденить в одном скрипте, чтобы программа понимала какой режим использовать ?
Хотелось-бы изящного решения в три строчки, длинную программу с опросом всех окон я и сам смогу собрать.
Делаю компактную сборку Windows XP, со встроенными драйверпаками и поддержкой гаджетов как в семерке
но именно на этой проблеме споткнулся, вот уже час ищу в интернете, может у кого-то есть идея ?
Решение задачи: «Свернуть-развернуть все окна одним кликом»
textual
Листинг программы
Set objshell = CreateObject("shell.application") Set fso = CreateObject("scripting.FileSystemObject") sFlagFile = fso.GetSpecialFolder(TemporaryFolder) & "\Flag" If fso.FileExists(sFlagFile) Then objshell.UndoMinimizeALL fso.DeleteFile sFlagFile Else objshell.MinimizeAll fso.CreateTextFile sFlagFile End If Set fso = Nothing Set objshell = Nothing
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д