How To find main Window Title name of application In running In Tray

Question

1.00/5 (2 votes)

See more:

C#

VB

How To Find main Window Title name of application In running In Tray Or Taskbar

Posted 30-Aug-13 18:46pm

Yogesh N Sh

Add a Solution

Comments

Sergey Alexandrovich Kryukov 31-Aug-13 2:11am

Not clear. Why would you need to find anything? if the form is in your application, you already have a reference to it...
—SA

3 solutions

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

pdoxtader · Answer 1 · 2013-08-31T03:05:00

It seems like you want to get a list of all the running applications on your machine so you can look for one by main window title, right?

Here's a class I found somewhere online, and modified a bit:

VB

Imports System.Runtime.InteropServices

Public Class clsEnumWindows
    <unmanagedfunctionpointerattribute(callingconvention.stdcall)> _
    Public Delegate Function EnumWindowsProc(ByVal hwnd As System.IntPtr, ByVal lparam As System.IntPtr) As Boolean

    <dllimportattribute("user32.dll",> _
    Public Shared Function EnumWindows(ByVal lpEnumFunc As EnumWindowsProc, <marshalasattribute(unmanagedtype.sysint)> ByVal lParam As IntPtr) As <marshalasattribute(unmanagedtype.bool)> Boolean
    End Function

    <dllimportattribute("user32.dll",> _
    Public Shared Function IsWindowVisible(<inattribute()> ByVal hWnd As System.IntPtr) As <marshalasattribute(unmanagedtype.bool)> Boolean
    End Function

    <dllimportattribute("user32.dll",> _
    Public Shared Function GetWindowText(<inattribute()> ByVal hWnd As System.IntPtr, <outattribute(),> ByVal lpString As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer
    End Function

    <dllimportattribute("user32.dll",> _
    Public Shared Function GetWindowTextLength(<inattribute()> ByVal hWnd As System.IntPtr) As Integer
    End Function

    <dllimportattribute("user32.dll",> _
    Public Shared Function GetWindowThreadProcessId(<inattribute()> ByVal hWnd As System.IntPtr, <outattribute()> ByRef lpdwProcessId As Integer) As UInteger
    End Function

    <dllimportattribute("user32.dll",> _
    Public Shared Function GetClassName(<inattribute()> ByVal hWnd As System.IntPtr, <outattribute(),> ByVal lpClassName As System.Text.StringBuilder, ByVal nMaxCount As Integer) As Integer
    End Function

    Public Shared Function GetWindows() As List(Of ManagedWindow)
        Dim WindowList As New List(Of ManagedWindow)
        Dim ListHandle As GCHandle = GCHandle.Alloc(WindowList)
        Try
            clsEnumWindows.EnumWindows(New clsEnumWindows.EnumWindowsProc(AddressOf EnumWindowsCallBack), GCHandle.ToIntPtr(ListHandle))
        Finally
            ListHandle.Free()
        End Try
        Return WindowList
    End Function

    Private Shared Function EnumWindowsCallBack(ByVal handle As IntPtr, ByVal lParam As IntPtr) As Boolean
        If clsEnumWindows.IsWindowVisible(handle) Then
            Dim TitleBuilder As New System.Text.StringBuilder(clsEnumWindows.GetWindowTextLength(handle) + 1)
            Dim WndList As List(Of ManagedWindow) = DirectCast(GCHandle.FromIntPtr(lParam).Target, List(Of ManagedWindow))
            clsEnumWindows.GetWindowText(handle, TitleBuilder, TitleBuilder.Capacity)
            Dim ProcessID As Integer = -1
            clsEnumWindows.GetWindowThreadProcessId(handle, ProcessID)
            Dim ClassNameBuilder As New System.Text.StringBuilder(255)
            clsEnumWindows.GetClassName(handle, ClassNameBuilder, ClassNameBuilder.Capacity)
            WndList.Add(New ManagedWindow(handle, TitleBuilder.ToString, Process.GetProcessById(ProcessID), ClassNameBuilder.ToString))
        End If
        Return True 'Tells the EnumWindows API to keep going and call this function again for the next window
    End Function

    Public Class ManagedWindow
        Private _Title As String = String.Empty

        Public Property Title() As String
            Get
                Return _Title
            End Get
            Set(ByVal value As String)
                _Title = value
            End Set
        End Property

        Private _Handle As IntPtr

        Public Property Handle() As IntPtr
            Get
                Return _Handle
            End Get
            Set(ByVal value As IntPtr)
                _Handle = value
            End Set
        End Property

        Private _OwningProcess As Process

        Public Property OwningProcess() As Process
            Get
                Return _OwningProcess
            End Get
            Set(ByVal value As Process)
                _OwningProcess = value
            End Set
        End Property

        Private _ClassName As String = String.Empty

        Public Property ClassName() As String
            Get
                Return _ClassName
            End Get
            Set(ByVal value As String)
                _ClassName = value
            End Set
        End Property

        Public Sub New()
        End Sub

        Public Sub New(ByVal Hwnd As IntPtr, ByVal TitleText As String, ByVal Owner As Process, ByVal NativeClassName As String)
            _Handle = Hwnd
            _Title = TitleText
            _OwningProcess = Owner
            _ClassName = NativeClassName
        End Sub

        Public Overrides Function ToString() As String
            If OwningProcess Is Nothing Then
                Return Handle.ToString & " —- " & ClassName & " —- " & Title
            Else
                Return Handle.ToString & " —- " & ClassName & " —- " & Title & " —- " & OwningProcess.ProcessName
            End If
        End Function

    End Class

End Class

To see how it works, create a new vb.net windows forms application. Add this class, drop a listbox on form1, and put this code in Form1_Load:

VB

Dim windows As List(Of clsEnumWindows.ManagedWindow) = clsEnumWindows.GetWindows

For Each window As clsEnumWindows.ManagedWindow In windows
   Me.ListBox1.Items.Add(window.Title)
Next

Then run it. I hope looking at that simple code example (the stuff in form_load), this class's usage is clear.

- Pete

**Zoltán Zörgő** · Answer 2 · 2013-08-31T03:21:00

I ti snot absolutely clear what your final goal is, but run this snippet, and see:

C#

foreach(var p in Process.GetProcesses()){
    Console.WriteLine("Process: {0} ID: {1}, Main window title: {2}", p.ProcessName, p.Id, p.MainWindowTitle);
}

[Update: listing all window titles, based on the link below]

C#

delegate bool EnumThreadDelegate(IntPtr hWnd, IntPtr lParam);

[DllImport("user32.dll")]
static extern bool EnumThreadWindows(int dwThreadId, EnumThreadDelegate lpfn,
    IntPtr lParam);

[DllImport("user32.dll", CharSet = CharSet.Auto)]
static extern IntPtr SendMessage(IntPtr hWnd, uint Msg, int wParam, 
    StringBuilder lParam);

private const uint WM_GETTEXT = 0x000D;

static IEnumerable<IntPtr> EnumerateProcessWindowHandles(int processId)
{
    var handles = new List<IntPtr>();

    foreach (ProcessThread thread in Process.GetProcessById(processId).Threads)
        EnumThreadWindows(thread.Id, 
            (hWnd, lParam) => { handles.Add(hWnd); return true; }, IntPtr.Zero);

    return handles;
}

[STAThread]
void Main()
{
	foreach(var p in Process.GetProcesses()){
		Console.WriteLine(">> Process: {0} ID: {1}, Main window title: {2}\nWindows:", p.ProcessName, p.Id, p.MainWindowTitle);
	    foreach (var handle in EnumerateProcessWindowHandles(p.Id))
		{
			StringBuilder message = new StringBuilder(1000);
			SendMessage(handle, WM_GETTEXT, message.Capacity, message);
			Console.WriteLine(message.ToString());
		}
		Console.WriteLine("<<\n\n");
	}
}

pdoxtader · Answer 3 · 2013-09-03T03:22:00

If you just want to get a list of ALL the running processes on the machine so you can find an application running in the systray, it's even simpler. Use this:

VB

For Each proc As Process In Process.GetProcesses
   ListBox1.Items.Add(proc.ProcessName)
Next

I tested this a moment ago, and found two of my own apps that are running in the systray.

- Pete

How To find main Window Title name of application In running In Tray

3 solutions

Solution 1

Solution 2

Solution 3

Add your solution here

Preview 0