Question

vb.net 如何获取系统当前运行程序列表

想获取这个列表,注意是应用程序列表,不是进程列表!并详细将这些列表写到label中!

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim MyInfo As String = "系统正在运行的程序" + vbCrLf
Dim MyProcesses() As Process = Process.GetProcesses()
For Each MyProcess As Process In MyProcesses
If (MyProcess.MainWindowTitle.Length > 0) Then
MyInfo += MyProcess.MainWindowTitle + vbCrLf
End If
Next
Me.Label1.Text = MyInfo
End Sub