🚀 go-pugleaf

Hi Gambit,

> Please show your latest code.
>
>
> Gambit

No problem, from the top in case any headers may be missing I have :-

#include <vcl.h>
#pragma hdrstop
#include <Registry.hpp>

#include "MTB2Child1.h"
#include "MTB2Child3.h"
#include "MTBconversion2.h"
#include "MTB2conversion.h"
#include "Main.h"
#include "windows.h"
#include "shellapi.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "ChildWin"
#pragma resource "*.dfm"
TMDIChild1 *MDIChild1;

 struct MyInfo
    {
        DWORD dwProcessId;
        HWND hWnd;
    };

    BOOL CALLBACK FindBrowser(HWND hwnd, LPARAM lParam)
    {
        MyInfo *info = reinterpret_cast<MyInfo*>(lParam);
        DWORD dwProcessId = 0;
        ::GetWindowThreadProcessId(hwnd, &dwProcessId);
        if( dwProcessId == info->dwProcessId )
        {
            info->hWnd = hwnd;
            return FALSE;
        }
        return TRUE;
    }

//---------------------------------------------------------------------------
__fastcall TMDIChild1::TMDIChild1(TComponent* Owner)
    : TMDIChild(Owner)
{

.....
.....


void __fastcall TMDIChild1::ITimageClick(TObject *Sender)
{
char DefaultBrowser[MAX_PATH+1] = {0};
        MDIChild2->GetDefaultBrowser(DefaultBrowser);

        STARTUPINFO si = {sizeof(STARTUPINFO), 0};
        PROCESS_INFORMATION pi = {0};

        AnsiString CmdLine = (AnsiQuotedStr(DefaultBrowser, '"') + " " +
        AnsiQuotedStr("http://www.minitutorials.com", '"'));
        if( ::CreateProcess(NULL, CmdLine.c_str(), NULL, NULL, FALSE, 0,
        NULL, NULL, &si, &pi) )
        {

          WaitForInputIdle(CreateProcess, 200);
          Sleep(175);
            //WaitForInputIdle;    <- ??
          ::CloseHandle(pi.hThread);
          ::CloseHandle(pi.hProcess);

          MyInfo info = {pi.dwProcessId, NULL};
          ::EnumWindows((WNDENUMPROC)FindBrowser,reinterpret_cast<LPARAM>(&info));

          if( info.hWnd != NULL )
             {
             ::SetParent ( info.hWnd, Form4->Handle );
             Form4->Show();
             }

          }


}

....
....
....
}



The above code does do what I want it to do but only sometimes.
I have had to experiment with the  values of

WaitForInputIdle(CreateProcess, 200);
Sleep(175);

Sometimed changing 200 to 220 or 230 or 250 also works when the current 
value fails. INFINITE does not work.

Strange I know but it will not work at all ever if the Sleep(175); is not in 
there.
175 seems the optimal minimal value that works (i.e. 174 will not work)

Without the Sleep then this if statement does not execute.

 if( info.hWnd != NULL )
             {
             ::SetParent ( info.hWnd, Form4->Handle );
             Form4->Show();
             }

I am probably using WaitForInputIdle() incorrectly but I can't see where.

Maybe this is the wrong approach?

Gav...