Private Sub lsproirtem() Dim ps() As Process Try ps = Process.GetProcesses() listpro.BeginUpdate() listpro.Clear() listpro.Columns.Add("Name", 150, HorizontalAlignment.Left) listpro.Columns.Add("ID", 60, HorizontalAlignment.Left) listpro.Columns.Add("Priority", 60, HorizontalAlignment.Right) listpro.Columns.Add("Memory", 100, HorizontalAlignment.Right) listpro.Columns.Add("patch Process", 250, HorizontalAlignment.Right) Dim p As Process For Each p In ps Dim lvi As ListViewItem = New ListViewItem() lvi.Text = p.ProcessName.ToString lvi.SubItems.Add(p.Id.ToString) lvi.SubItems.Add(p.BasePriority.ToString()) lvi.SubItems.Add(p.WorkingSet64.ToString()) lvi.SubItems.Add(code get Place run here ) listpro.Items.Add(lvi) Next p listpro.EndUpdate() Catch e As Exception MessageBox.Show(e.Message) End Try End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)