Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic Chercher si une appli est en cours d'execution

Chercher si une appli est en cours d'execution

3 réponses
Avatar
BUNEL Jérôme
Boujour,

je souhaite rechercher si un programme est lancé et si oui lui donner le
focus.

Merci
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Zoury
Salut Jérôme ! :O)

Quelle information de recherche possèdes-tu ? (nom de l'exe, nom du fichier,
nom de la fenêtre principale, handle de la fenêtre, etc..)

--
Cordialement
Yanick
MVP pour Visual Basic

"BUNEL Jérôme" a écrit dans le message de
news:42d51b3b$0$22293$
Boujour,

je souhaite rechercher si un programme est lancé et si oui lui donner le
focus.

Merci




Avatar
JEROME BUNEL
Bonjour Yannick,
1) je possède de nom de l'exe.
2) Mais les autres méthode m'interesse ...


Merci

"Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
news:
Salut Jérôme ! :O)

Quelle information de recherche possèdes-tu ? (nom de l'exe, nom du
fichier,
nom de la fenêtre principale, handle de la fenêtre, etc..)

--
Cordialement
Yanick
MVP pour Visual Basic

"BUNEL Jérôme" a écrit dans le message de
news:42d51b3b$0$22293$
Boujour,

je souhaite rechercher si un programme est lancé et si oui lui donner le
focus.

Merci








Avatar
Alain CROS
Bonjour.

Quelque chose comme ça ?

Private Declare Function EnumWindows& _
Lib "user32" _
(ByVal lpEnumFunc&, ByVal lngParam&)

Private Declare Function GetWindowModuleFileName& _
Lib "user32" Alias "GetWindowModuleFileNameA" _
(ByVal hwnd&, ByVal pszFileName$, ByVal cchFileNameMax&)

Private Declare Function SetForegroundWindow& _
Lib "user32" _
(ByVal hwnd&)

Private AppHwnd&, NomExe$

Sub DonneFocus()
NomExe = StrConv("C:Windowsnotepad.exe", vbUpperCase)
EnumWindows AddressOf jEnumWindowsProc, 0&
If AppHwnd Then SetForegroundWindow AppHwnd
End Sub

Private Function jEnumWindowsProc&(ByVal hwnd&, ByVal lngParam&)
Const MAX_PATH& = 260&
Dim Lexe$
Lexe = Space$(MAX_PATH)
GetWindowModuleFileName hwnd, Lexe, MAX_PATH
If StrConv(Left$(Lexe, InStr(Lexe, vbNullChar) - 1&), vbUpperCase) = NomExe Then
AppHwnd = hwnd
Exit Function
End If
jEnumWindowsProc = True
End Function

Alain CROS

"JEROME BUNEL" a écrit dans le message de news: 42d97de8$0$7811$
| Bonjour Yannick,
| 1) je possède de nom de l'exe.
| 2) Mais les autres méthode m'interesse ...
|
|
| Merci
|
| "Zoury" <yanick_lefebvre at hotmail dot com> a écrit dans le message de
| news:
| > Salut Jérôme ! :O)
| >
| > Quelle information de recherche possèdes-tu ? (nom de l'exe, nom du
| > fichier,
| > nom de la fenêtre principale, handle de la fenêtre, etc..)
| >
| > --
| > Cordialement
| > Yanick
| > MVP pour Visual Basic
| >
| > "BUNEL Jérôme" a écrit dans le message de
| > news:42d51b3b$0$22293$
| >> Boujour,
| >>
| >> je souhaite rechercher si un programme est lancé et si oui lui donner le
| >> focus.
| >>
| >> Merci
| >>
| >>
| >
| >
|
|