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