Know if Windows Calculator is open or not

[Magic_Doctor]

Hello,
By means of an icon, to which a macro is assigned, I open the Windows calculator when I click on this icon:

Sub Calculatrice()
‘Excel 2007
    Shell "c:\windows\system32\calc.exe"
End Sub

It works very well.
The problem is that if I click, for example, 10 times on the icon, 10 calculators will be opened. We can thus end up with a lot of open calculators… What I would like is that once the calculator is open, we can no longer open others. Is there a way to know if the calculator is open? Suppose this is possible, then it would suffice to assign the result to a boolean variable (CalcOpen) and write this in the macro so that there can only be one open calculator:

Sub Calculatrice()
    If CalcOpen Then Exit Sub
    Shell "c:\windows\system32\calc.exe"
End Sub

Thank you in advance for all responses.

 

[Micron]

How to know (works in W10 as calculator.exe):

Determine if application is running with Excel

Goal Have an Excel file with a "Search" button that opens a custom program. This program is used for researches. If the program is already opened when the user clicks on the button, make it popup ...

stackoverflow.com

So if function returns true, do something. If that is to activate calculator, I don't know how.

This one might be better

Determine if an Application is Running | EnvisionCAD

Sometimes your VBA applications have to communicate with another Windows application. In those situations it is useful to know if the other application is running prior to passing data or… Read more »

envisioncad.com

 

[Micron]

Maybe something like this?

Sub Calculatrice()
If IsCalcOpen Then
   AppActivate "calculator"
   Exit Sub
End If
Shell "c:\windows\system32\calc.exe"

End Sub

Function IsCalcOpen() As Boolean
Dim objList As Object

Set objList = GetObject("winmgmts:") _
    .ExecQuery("select * from win32_process where name='calculator.exe'")

CalcOpen = objList.count > 0

End Function

Can't stop anyone from opening another instance of calculator via the Windows task bar, so the idea has limitations.

 

[Magic_Doctor]

Hello Micron,

Thanks, il works!

Function IsProcessRunning(process As String) As Boolean
    Dim objList As Object
  
    Set objList = GetObject("winmgmts:") _
        .ExecQuery("select * from win32_process where name='" & process & "'")
  
    IsProcessRunning = objList.Count > 0
End Function

Sub Calculatrice()

    If IsProcessRunning("calc.exe") Then Exit Sub
    Shell "c:\windows\system32\calc.exe"
End Sub

 

[Micron]

Great! You can mark this one as solved, I guess.