liste les applications en cours (et non les process)

Version imprimable

16/08/2011, 11h53
guda

liste les applications en cours (et non les process)

Bonjour,

Je cherche à donner le focus à une application.

Je ne peux pas utiliser AppActivate() car l’application change une partie de son nom.

Par exemple, elle s’appelle « logiciel – nbre de connecté 1 ».

J’aurais besoin de parcourir la liste des applications (fenêtre ouverte) à la recherche de celle qui commencerai par « logiciel– nbre de connecté ».

Autant je sais parcourir les process via un objet Process autant là je ne sais pas parser la liste des applications en cours.

Merci pour votre aide

Dan

Bonjour,

Solution:
Utilisez MainWindowTitle.

Voici un exemple:

Code:

1
2
3
4
5
6
7
8
9
        Dim ProcessAll() As Process = Process.GetProcesses()
 
        Cbb_NomProg.Items.Add("Choisissez le processus correspondant à votre programme.")
        For i = 0 To UBound(ProcessAll)
            If ProcessAll(i).MainWindowTitle <> "" Then
                Cbb_NomProg.Items.Add(ProcessAll(i).Id & " | " & ProcessAll(i).ProcessName & " | " & ProcessAll(i).MainWindowTitle & " | " & ProcessAll(i).SessionId)
            End If
        Next
        Cbb_NomProg.SelectedItem = "Choisissez le processus correspondant à votre programme."

Ensuite il te suffit de comparer le texte que tu cherches avec le "MainWindowTitle".

Bonne journée.

[Résolu] Merci

Super, ce code m'a été très utile.

Ce qui donne dans mon cas

Code:

1
2
3
4
5
6
7
8
9
10
11
 
                Dim ProcessAll() As Process = Process.GetProcesses()
 
                For i = 0 To UBound(ProcessAll)
                    If ProcessAll(i).MainWindowTitle <> "" Then
                        If InStr(ProcessAll(i).MainWindowTitle, "logiciel...") = 1 Then
                            AppActivate(ProcessAll(i).MainWindowTitle)
                            Exit For ' trouvé, alors on sort
                        End If
                    End If
                Next

Merci beaucoup

Dan