🚀 go-pugleaf

"Gav" <brightoncomputers@brightontown.com.au> wrote in message
news:42a2f6aa$1@newsgroups.borland.com...

> So now I have CreateProcess opening up the chosen web
> browser(s) no problem - trouble is I can not give it any
> arguments - I can not specify which web site to open up to

Yes, you can.  That is what the lpCommandLine parameter of CreateProcess()
is for.

> I am now doing it like this (GetDefaultBrowser function defined earlier)
:-

Your code is not using the command line properly.  Use one of the following
approaches instead:

    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(DefaultBrowser, CmdLine.c_str(), NULL, NULL,
FALSE, 0, NULL, NULL, &si, &pi) )
        {
            ::CloseHandle(pi.hThread);
            ::CloseHandle(pi.hProcess);
        }
    }

Or:

    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) )
        {
            ::CloseHandle(pi.hThread);
            ::CloseHandle(pi.hProcess);
        }
    }

> Assuming CreateProcess() is working , which it is to a point, how do
> I then locate the process as it starts and redirect it (dock it) into my
> application inside a tabbed page or form.?

You have to loop through every running window, looking for the one that
belongs to the new process you just spawned.  Use EnumWindows() and
GetWindowThreadProcessId() for that, using the process ID that
CreateProcess() returned in the PROCESS_INFORMATION structure.  For example:

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


    if( ::CreateProcess(...) )
    {
        MyInfo info = {pi.dwProcessId, NULL};
        ::EnumWindows((WNDENUMPROC)FindBrowser,
reinterpret_cast<LPARAM>(&info));
        if( info.hWnd != NULL )
            // use info.hWnd as needed...
    }


Gambit