>How can Fox Pro be used to tell if another application is already running or not?

From Russian VFP Club Forum by Vitaliy:

Function ProcessIsRun 
Lparameters lcProcName 

Declare INTEGER CreateToolhelp32Snapshot IN Win32api INTEGER dwFlags, INTEGER th32ProcessID 
Declare INTEGER Process32First IN Win32api INTEGER lhSnapshot, STRING lppe 
Declare INTEGER Process32Next IN Win32api INTEGER lhSnapshot, STRING lppe 
Declare INTEGER CloseHandle IN kernel32 INTEGER hObject 

Local lnRetCode, lppe, lhSnapshot 

lcProcName = UPPER(lcProcName) 
lppe = CHR(44) + CHR(1) + REPLICATE(CHR(0), 298) 

lhSnapshot = CreateToolhelp32Snapshot(2, 0) 
lnRetCode = Process32First(lhSnapshot, @lppe) 

Do WHILE lnRetCode <> 0 
 If lcProcName $ UPPER(SUBSTR(lppe, 37, 256)) 
   lnRetCode = 1 
   Exit 
 Endif 
lnRetCode = Process32Next(lhSnapshot, @lppe) 
Enddo 

CloseHandle(lhSnapshot) 

Return lnRetCode

?ProcessIsRun('vfp') - 1
?ProcessIsRun('ie') - 1
?ProcessIsRun('word') - 0 && Word is not running