Imports System.Diagnostics
 
(...)
 
Public Function CloseWindowFromHandle(ByVal WindowHandle As Object) As Boolean
        Dim oProcessList As Process() = Process.GetProcesses
        Dim oProcess As Process
        Dim bResult As Boolean = False
        For Each oProcess In oProcessList
            With oProcess
                If .MainWindowHandle() = WindowHandle Then 'diese Zeile wird 
                ' yellowed
'***Specified Cast is not valid.
                    .CloseMainWindow()
                    bResult = True
                    Exit For
                End If
            End With
        Next
        Return bResult
    End Function

Declare Function GetForegroundWindow Lib "user32.dll" () As Long
 
(...)
 
Public Sub GetWindowHandle()
        lblStatus.Text = ""
        lblStatus.Text = GetForegroundWindow()
'lblStatus kommt nachher raus, das war nur zum Check, ob die 
' GetForegroundWindow läuft...!
    End Sub

==============================================================
Hast Du kein Boolean per externer CheckBoxx,
dann konstruierst Du Dir eines: Interner Check Roxx!

Beitrag wurde zuletzt am 31.10.11 um 16:04:35 editiert.