>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 >