Vérifier si calc windows est ouverte ou pas??? [Fait] [Résolu]

[electrosat03]

Salut à tous,

J'ai une appli qui à l'appuis d'un bouton ouvre une calculette windows.

Le prob c'est qu'à chaque clic sur ce bouton, la calc s'ouvre.

J'aimerais donc savoir comment empécher la calc de s'ouvrir plusieur fois,
en faisant une vérif si elle est déjà ouverte.

Je voudrais également que la calc se ferme quand je quitte mon appli.

Merci pour vos réponse.
A+

[Arkham46]

Dans un module :

Code :

1
2
3
4
5
Private Declare Function FindWindowEx Lib "User32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
 
Public Function IsCalcOpen() As Boolean
IsCalcOpen = (FindWindowEx(0&, 0&, "SciCalc", vbNullString) <> 0)
End Function

La fonction IsCalcOpen renvoie True si la calculette est ouverte.

[electrosat03]

Salut Arkham46,

Merci pour ta réponse, c'est nickel.

Pourrais tu me dire comment fermer la calculette quand je quitte mon appli.

Merci
A+

[Arkham46]

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const WM_CLOSE = &H10
 
Public Function IsCalcOpen() As Boolean
IsCalcOpen = (FindWindowEx(0&, 0&, "SciCalc", vbNullString) <> 0)
End Function
 
Public Sub CloseCalc()
Dim lHwnd As Long
lHwnd = FindWindowEx(0&, 0&, "SciCalc", vbNullString)
If lHwnd <> 0 Then SendMessage lHwnd, WM_CLOSE, 0, 0&
End Sub

Sinon il y a dans la FAQ un code pour fermer une application ouverte avec Shell en conservant l'identifiant renvoyé par Shell

[electrosat03]

Re,

Merci, c'est top.

Encore merci pour ta réaction rapide.
A+