Option Explicit
 
' ===================================================================
'   Fremde Fenster disablen (GES)
'
'
' Autor:
' Gudio Eisenbeis Software (GES), guidoeisenbeis@web.de, 2004-03-19
' ===================================================================
 
 
Private Declare Function FindWindow Lib "user32" _
    Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
 
Private Declare Function GetWindowLong Lib "user32" _
    Alias "GetWindowLongA" (ByVal hWnd _
    As Long, ByVal nIndex As Long) As Long
 
Private Declare Function SetWindowLong Lib "user32" _
    Alias "SetWindowLongA" (ByVal hWnd As Long, _
    ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
 
Private Const GWL_STYLE = (-16)
Private Const WS_DISABLED = &H8000000
 
 
Private Sub Command1_Click()
 
    Dim WinWnd As Long
    Dim oldStyle As Long
 
    'FensteHandle ermitteln (Fenster-Titel muss exakt stimmen!)
    WinWnd = FindWindow(vbNullString, "Unbenannt - Editor") 'NotePad
 
    'den gegewärtigen Fensterstil ermitten
    oldStyle = GetWindowLong(WinWnd, GWL_STYLE)
 
    'den neuen Fensterstil setzen: Disabled (fremdes Fenster sperren)
    Call SetWindowLong(WinWnd, GWL_STYLE, oldStyle Or WS_DISABLED)
 
End Sub
 
Private Sub Command2_Click()
 
    Dim WinWnd As Long
    Dim oldStyle As Long
 
    'FensteHandle ermitteln (Fenster-Titel muss exakt stimmen!)
    WinWnd = FindWindow(vbNullString, "Unbenannt - Editor") 'NotePad
 
    'den gegewärtigen Fensterstil ermitten
    oldStyle = GetWindowLong(WinWnd, GWL_STYLE)
 
    'den neuen Fensterstil setzen: Enabled (Fenster wieder freigeben)
    Call SetWindowLong(WinWnd, GWL_STYLE, oldStyle And (Not WS_DISABLED))
 
End Sub