Свернуть-развернуть все окна одним кликом - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 4.143 из 5
Похожие ответы