Принудительное сворачивание программы в трей

[Zdorovjak]

Уважаемые коллеги!

Ну вот как-то так (принудительное сворачивание программы в трей), наверное стоит озаглавить этот вопрос, хотя не уверен в правильности формулировки...
В общем, мысль была такая - в панели задач открыты какие-то приложения, с помощью программы юзер может не останавливая выполнения этих приложений "заставить" их кнопки исчезнуть из Панели задач (как вариант, через hWnd выбранного окна, которому присваевается значение invisible), но при этом добавляет их в собственный список задач или трей, из которого окно программы можно развернуть как если бы оно было в Панели задач, или даже вернуть обратно. Причём по желанию юзера, лишь по введению определённого пароля.
По-моему, это интересная тема, т.к. бывает уходишь с работы, оставляя ноутбук включённым (закачки всякие разные), а вечером приходит шеф и может случайно открыть эти процессы... ))

Гугль не слишком помог, т.к. я не уверен в правильности формулировки вопроса.
Надеюсь, не ошибся с темой "для профессионалов", ибо задача выглядет довольно сложной.

[iGrok]

Ошибся, чуть выше целая табличка с "правилами", там написано, почему ошибся.

А вообще софтин типа HideToTray - навалом.

[Qwertiy]

В чём собственно вопрос? Как написать такую программу?

Управление видимостью окон.7z

Если не лень окна руками искать

(7.88 Кб) Скачиваний: 358

[Zdorovjak]

Да не, прогу я сам хочу написать, вопрос лишь в указании на конкретные команды бейсика, кот. за это отвечают. Вот примерно то, что нужно, иллюстрирует пример Qwertiy.
А подобных софтин может и много, но когда привык писать для себя, есть желание сделать самому. Да оно и гибче получается.

[Qwertiy]

Надо использовать следующие функции WinApi:

Код: Выделить всё

Public Overloads Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Integer) As Integer
Public Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As IntPtr) As Integer
Public Declare Function AddWindowsToList Lib "user32" Alias "EnumWindows" (ByVal lpEnumFunc As WindowEnumerator, ByVal lparam As IList) As Integer
Public Overloads Declare Function GetClassName Lib "user32" Alias "GetClassNameA" (ByVal hwnd As IntPtr, ByVal lpClassName As String, ByVal nMaxCount As Integer) As Integer
Public Declare Function AddChildWindowsToList Lib "user32" Alias "EnumChildWindows" (ByVal hwnd As IntPtr, ByVal lpEnumFunc As WindowEnumerator, ByVal lparam As IList) As Boolean
Public Declare Function GetParent Lib "user32" Alias "GetParent" (ByVal hwnd As IntPtr) As IntPtr
Public Declare Function IsWindowVisible Lib "user32" Alias "IsWindowVisible" (ByVal hwnd As IntPtr) As Boolean
Public Declare Function ShowWindow Lib "user32" Alias "ShowWindow" (ByVal hwnd As IntPtr, ByVal nCmdShow As Integer) As Integer

Разумеется, описания придётся поменять.

[Zdorovjak]

Qwertiy, благодарю!