function ProcessTerminate(szModule as asciiz) as long '// 07-29-2020 The 32-bit version needs this
    local nCountKill as long
    nCountKill = -1 '// Error
    if PathFileExists(szModule) then
        CharLower(szModule)
        local hSnapShot, hProcess as dword
        hProcess = 0
        local pe32 as PROCESSENTRY32
        local szPathName as asciiz * %MAX_PATH
    
        hSnapShot = CreateToolhelp32Snapshot(%TH32CS_SNAPALL, 0)
        if (hSnapShot <> %INVALID_HANDLE_VALUE) then
            pe32.dwSize = sizeof(pe32)
            local hRes as long
            hRes = Process32First(hSnapShot, pe32)
            nCountKill = 0
            while (hRes)
               hProcess = OpenProcess(%PROCESS_QUERY_INFORMATION or %PROCESS_VM_READ or %PROCESS_TERMINATE, 1, pe32.th32ProcessID)
               if (hProcess) then
                   szPathName = ""
                   if (GetModuleFileNameEx(hProcess, 0, szPathName, %MAX_PATH)) then
                       CharLower(szPathName)
                       if (szPathName = szModule) then
'zTrace(szPathName)
                           nCountKill += 1
                           TerminateProcess(hProcess, 9)
                       end if
                   end if
                   CloseHandle(hProcess)
               end if
               hRes = Process32Next(hSnapShot, pe32)
            wend
            CloseHandle(hSnapShot)
        end if
    end if
    function = nCountKill
end function