🚀 go-pugleaf

Hi Salvador,
Can't say I know much about VB, but I got me some code some time ago 
when I had to build an upgrade for a program I built. It closes my app 
then I can go through with the Upgrade process. Hope this helps....
You are using the last function
void TermAppByName(char *Name);.....
with the other two functions as helpers...


//------------------------------------------------------------------

    BOOL CALLBACK TerminateAppEnum( HWND hwnd, LPARAM lParam )
    {
       DWORD dwID ;

       GetWindowThreadProcessId(hwnd, &dwID) ;

       if(dwID == (DWORD)lParam)
       {
          //PostMessage(hwnd, WM_CLOSE, 0, 0) ;
          PostMessage(hwnd, WM_QUERYENDSESSION, 0, 0) ;
          PostMessage(hwnd, WM_ENDSESSION, 0, 0) ;
       }
       return TRUE ;
    }

/*----------------------------------------------------------------
   DWORD WINAPI TerminateApp( DWORD dwPID, DWORD dwTimeout )

   Purpose: Shut down a 32-Bit Process (or 16-bit process under Win95)
   Parameters: dwPID Process ID of the process to shut down.
    dwTimeout    Wait time in milliseconds before shutting down process.
    Return Value:
       TA_FAILED - If the shutdown failed.
       TA_SUCCESS_CLEAN - If the process was shutdown using WM_CLOSE.
       TA_SUCCESS_KILL - if the process was shut down with
          TerminateProcess().
       NOTE:  See header for these defines.
    ----------------------------------------------------------------*/

    DWORD WINAPI TerminateApp( DWORD dwPID, DWORD dwTimeout )
    {
       HANDLE   hProc ;
       DWORD   dwRet ;

       // If we can't open the process with PROCESS_TERMINATE rights,
       // then we give up immediately.
       hProc = OpenProcess(SYNCHRONIZE|PROCESS_TERMINATE, FALSE,
          dwPID);

       if(hProc == NULL)
       {
          return TA_FAILED ;
       }

       // TerminateAppEnum() posts WM_CLOSE to all windows whose PID
       // matches your process's.
       EnumWindows((WNDENUMPROC)TerminateAppEnum, (LPARAM) dwPID) ;

       // Wait on the handle. If it signals, great. If it times out,
       // then you kill it.
       if(WaitForSingleObject(hProc, dwTimeout)!=WAIT_OBJECT_0)
          dwRet=(TerminateProcess(hProc,0)?TA_SUCCESS_KILL:TA_FAILED);
       else
          dwRet = TA_SUCCESS_CLEAN ;
       CloseHandle(hProc) ;
       return dwRet ;
    }

//--------------------------------------------------------------------
//e.g. TermAppByName("C++ Builder");
// The Name is what you see when you do the three finger salute. "CAD"
// in the applications tab.
//--------------------------------------------------------------------

    void TermAppByName(char *Name)
    {
     DWORD dwID ;
     HWND Application = FindWindow( NULL, Name);
     GetWindowThreadProcessId(Application, &dwID) ;
     TerminateApp(  dwID, 2000 );
    }