Программирование
Веб программирование

Скрытие программы по названию окна

 
 

Скрипт написал Юра (Shade) я его только публикую!, т.к думаю что он может пригодится не только мне!

У каждой программы есть своё название окна, у того же диспечера задач название: "Диспетчер задач Windows" (windows 7) по нему можно будет скрыть его!)

Приступим:

Добавим модуль: Проэкт => Добавить модуль => Модуль

в модуль вписываем следующее:

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
                (ByVal lpClassName As String, _
                ByVal lpWindowName As String) _
                As Long
                
Private Declare Function ShowWindow Lib "user32" _
                (ByVal hwnd As Long, _
                ByVal nCmdShow As Long) _
                As Long
                
Enum ShoeHide
    SH_HIDE = (0)
    SH_SHOW = (1)
End Enum

Public Function SHProg(ByVal strName As String, SH As ShoeHide)
    On Error Resume Next

    Dim lngBuf As Long
    
    lngBuf = FindWindow(vbNullString, strName)
    
    Call ShowWindow(lngBuf, SH)
    
End Function

Собственно код которым мы сможем скрывать и раскрывать программы:

Private Sub Command1_Click()
    Call SHProg("Диспетчер задач Windows", SH_HIDE) 'скрываем программу по названию окна
End Sub

Private Sub Command2_Click()
    Call SHProg("Диспетчер задач Windows", SH_SHOW) эраскрываем программу по названию окна
End Sub

Исходник клац


Есть вопросы? Спроси на нашем форуме!!
Юра (Shade) [21.04.2012 16:16]

DIGIUS а ты автора правильно указал!?

DIGIUS [21.04.2012 18:04]

Точно не знаю...

ALLEX88 [14.08.2015 14:30]

То есть скрываемая программа продолжает оставаться в процессах ? Просто окна не видно ?

Kardinal [15.08.2015 16:11]

ALLEX88, да, продолжает.



Оставлять комментарии можно только зарегистрированным




Предупреждение: Вся информация представлена исключительно в образовательных целях.
Ни авторы, ни администрация не несут ответственности в случае ее использования в противозаконных целях.