'Beispiel: VB .Net - Api - RealGetWindowClass - Pruefen ob es sich um eine Consolenanwendung handelt oder nicht ' ' Option Explicit On Option Strict On Imports System.Runtime.InteropServices Imports System.Text Module Main Sub Main() Console.WriteLine(IsConsole.ReturnMessage().ToString()) Console.Read End Sub End Module Public Class IsConsole <DllImport("user32.dll", SetLastError:=True)> _ Private Shared Function RealGetWindowClass( _ ByVal hWnd As IntPtr, _ ByVal lpString As StringBuilder, _ ByVal nMaxCount As Integer) As Integer End Function Public Shared ReadOnly Property ReturnMessage() As Boolean Get Return IsApplicationConsole() End Get End Property Private Shared Function IsApplicationConsole() As Boolean Dim hProcess As Process = Process.GetCurrentProcess Dim Buffer As New StringBuilder(256) Dim ClassName As String = "ConsoleWindowClass" Dim Result As Integer = _ RealGetWindowClass(hProcess.MainWindowHandle, Buffer, 256) Return Buffer.ToString(0, Result) = ClassName End Function End Class