GEt All Active Programs From Task Messenger and its icons like Windows Task messenger

  • Drag and Drop a listview control from toolbox and write this code 


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


    ListView1.Items.Clear()
    For Each proc As Process In Process.GetProcesses
    If proc.MainWindowTitle <> "" Then
    ImgList.Images.Add(Icon.ExtractAssociatedIcon(proc.MainModule.FileName))
    Dim lvi As New ListViewItem(proc.ProcessName, ImgList.Images.Count - 1)
    lvi.SubItems.Add(proc.Id)
    lvi.SubItems.Add(proc.MainWindowTitle)
    lvi.SubItems.Add(proc.MainModule.FileName)
    ListView1.Items.Add(lvi)
    End If
    Next


    End Sub

    Dim ImgList As New ImageList


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    ListView1.Columns.Add("Programs", 130, HorizontalAlignment.Left)
    ListView1.Columns.Add("ID", 100, HorizontalAlignment.Left)
    ListView1.Columns.Add("MainWindowTitle", 200, HorizontalAlignment.Left)
    ListView1.Columns.Add("Full Path", 320, HorizontalAlignment.Left)
    ListView1.SmallImageList = ImgList 'Uses the ImgList for the icons.
    ListView1.FullRowSelect = True
    ListView1.View = View.Details
     ListView1.HeaderStyle = ColumnHeaderStyle.Nonclickable


    End Sub


    for further details and related topics http://www.codecorner.somee.com/

Howdy, Stranger!

It looks like you're new here. If you want to get involved, or you want to Ask a new Question, Please Login or Create a new Account by Clicking below

Login with Facebook

Popular Posts of the Week