Сложности при вызове программы

if (GetForegroundWindow() != hWnd)
   SetForegroundWindow(hWnd);

static STARTUPINFO info;    
static PROCESS_INFORMATION pi = { 0 };
static HWND whoFor;
// --------------
BOOL CALLBACK EnumWindowsProc(HWND hwnd, LPARAM /*lParam*/)
{
   DWORD dwPID = 0;
   ::GetWindowThreadProcessId(hwnd, &dwPID);
   if (dwPID && dwPID == (DWORD) pi.dwProcessId) {
     HWND whoNow = GetForegroundWindow();  // Кто теперь сверху?
     if (whoFor == whoNow)  // Тот, кто вызывал ?
       ::SetForegroundWindow((HWND)hwnd);  
     return false;  // Остановка перебора
   }
   return true;
}
// --------------
static int CallJup(char *com)
{
  whoFor = GetForegroundWindow();  // Кто сверху ? (до вызова)
  info.cb = sizeof(info);
  bool k = ::CreateProcess(NULL, "Qprog file.txt", NULL, NULL, false,
             DETACHED_PROCESS | 0x08000,  // ABOVE_NORMAL_PRIORITY_CLASS,
             NULL, NULL, &info, &pi);
  if (!k) // Сообщение об ошибке
  while(1) {
    DWORD dwWait = WaitForSingleObject(pi.hProcess, 40);  // Ждем 40 мс
    if ( dwWait == WAIT_OBJECT_0 ) {  // Q закончилась
      return 0;
    }
    MSG msg;  // Это нужно, чтобы W могла перерисовать свои окна при движении окна Q
    if (::PeekMessage(&msg, 0, 0, 0, PM_REMOVE)) {
      ::TranslateMessage(&msg);
      if (msg.message==WM_PAINT) ::DispatchMessage(&msg);
      ::EnumWindows(&EnumWindowsProc, NULL);  
    }
  }
}
// ---------------