In the Main program of the project, this method check the executable program name in the window process.
LPARAMETERS xExe, xTerminate
Private xLocator, xWMI, xProcesses, xProcess, xIsRunning
xLocator = CREATEOBJECT('WBEMScripting.SWBEMLocator')
xWMI = xLocator.ConnectServer()
xWMI.Security_.ImpersonationLevel = 3
xProcesses = xWMI.ExecQuery([SELECT * FROM Win32_Process WHERE Name = '] + xExe + ['])
xIsRunning = .F.
if xProcesses.Count > 0
For EACH xProcess IN xProcesses
xIsRunning = .T.
if xTerminate
xProcess.Terminate(0)
ENDIF
NEXT
ENDIF
Return xIsRunning
Method 2
In the Main program of the project, this method checks the title of the window instead of the process name.
Private xHandle, xTitle
Application.Visible = .F.
Set Exclusive ON
Declare Integer FindWindow In Win32API String, String
Declare Integer IsIconic In Win32API Integer
Declare Integer ShowWindow In user32 Integer, Integer
Declare SetForegroundWindow IN WIN32API Integer
xTitle = 'Home Budget'
xHandle = FindWindow(null, xTitle)
if xHandle <> 0
if IsIconic (xHandle) = 1
ShowWindow(xHandle, 4)
ELSE
DO FORM main
ENDIF
SetForegroundWindow(xHandle)
ELSE
OPEN DATABASE Budget
DO FORM MAIN
Read Events
ENDIF
