MSNamenÄndern

app/DD_Clipboard_Searcher/clsWINDOWSApi.vb

@@ -0,0 +1,72 @@
+Imports DD_LIB_Standards
+
+Public Class clsWINDOWSApi
+    Private Declare Function GetForegroundWindow Lib "user32.dll" Alias "GetForegroundWindow" () As IntPtr
+    Private Declare Auto Function GetWindowText Lib "user32.dll" (ByVal hWnd As System.IntPtr, ByVal lpString As System.Text.StringBuilder, ByVal cch As Integer) As Integer
+    Private Declare Function GetWindowThreadProcessId Lib "user32.dll" (ByVal hwnd As IntPtr, ByRef lpdwProcessID As Integer) As Integer
+    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hWnd As IntPtr, ByVal WinTitle As String, ByVal MaxLength As Integer) As Integer
+    Private Declare Function GetWindowTextLength Lib "user32.dll" Alias "GetWindowTextLengthA" (ByVal hwnd As Int32) As Integer
+
+    Private Shared Function GetClassName(ByVal hWnd As System.IntPtr, _
+        ByVal lpClassName As System.Text.StringBuilder, _
+    ByVal nMaxCount As Integer) As Integer
+        ' Leave function empty    
+    End Function
+    Public Shared Function GetCaption() As String
+        Dim Caption As New System.Text.StringBuilder(256)
+        Dim hWnd As IntPtr = GetForegroundWindow()
+        Dim pid As Integer = 0
+        GetWindowThreadProcessId(hWnd, pid)
+        If pid = 0 Then Exit Function
+        Return Caption.ToString()
+    End Function
+    Public Shared Function IsRelevantWindow(windowname As String)
+        Try
+            Dim enumerator1 As New clsWindowApi
+            'Jedes Formularwindow durchlaufen
+            For Each top As clsWindowApi.ApiWindow In enumerator1.GetTopLevelWindows()
+                If LogErrorsOnly = False Then clsLogger.Add(" ... top-window Name: " & top.MainWindowTitle, False)
+                If top.MainWindowTitle.Contains(windowname) Or top.MainWindowTitle.ToLower = windowname.ToLower Then
+                    Console.WriteLine(top.MainWindowTitle)
+                    Return False
+                End If
+            Next top
+        Catch ex As Exception
+            MsgBox("Error in IsRelevantWindowt:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
+            clsLogger.Add(">> Error in IsRelevantWindow:" & ex.Message, False)
+            Return False
+        End Try
+    End Function
+    Private Shared m_LastHwnd As Long
+    Public Shared Sub Get_ForegroundWindow_Info()
+        '—– Get the Handle to the Current Forground Window —–
+        Dim hWnd As IntPtr = GetForegroundWindow()
+        If hWnd = IntPtr.Zero Then Exit Sub
+        '—– Find the Length of the Window’s Title —–
+        Dim TitleLength As Int32
+        TitleLength = GetWindowTextLength(hWnd)
+        '—– Find the Window’s Title —–
+        Dim WindowTitle As String = StrDup(TitleLength + 1, "*")
+        GetWindowText(hWnd, WindowTitle, TitleLength + 1)
+        '—– Find the PID of the Application that Owns the Window —–
+        Dim pid As Integer = 0
+        GetWindowThreadProcessId(hWnd, pid)
+        If pid = 0 Then Exit Sub
+        '—– Get the actual PROCESS from the process ID —–
+        Dim proc As Process = Process.GetProcessById(pid)
+        If proc Is Nothing Then Exit Sub
+        Dim msg = pid.ToString & vbNewLine
+        PROC_PID = pid.ToString
+        PROC_Name = proc.ProcessName
+        msg &= vbNewLine & "Procname: " & proc.ProcessName
+
+        msg &= vbNewLine & "MainWindowTitle: " & proc.MainWindowTitle
+
+        msg &= vbNewLine & "WindowTitle: " & WindowTitle
+        PROC_WindowTitle = WindowTitle
+
+        msg &= vbNewLine & TitleLength.ToString
+        ' MsgBox(msg)
+    End Sub
+
+End Class