Club Builder

[Vidal]

Hola!
Tengo una aplicación a la que en el evento :

void __fastcall TExpediciones::FormActivate(TObject *Sender)
{
if(ParamCount() > 0) PceAutomatico->AsValue = ParamStr(1);
}

Le paso ese parámetro. Esta apicación puede ser llamada desde otras y no me interesa que cada vez se cree una instancia distinta de la aplicacion con un parámetro diferente. Por eso he puesto este código:

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
HANDLE hInstanceMutex = ::CreateMutex(NULL,NULL,"EXPEDICIONES.MUTEX");
if(GetLastError() == ERROR_ALREADY_EXISTS)
{
if(hInstanceMutex) CloseHandle(hInstanceMutex);
Application->Title = "";
HWND hApPrev = ::FindWindow("TApplication", "Expediciones");
if(hApPrev)
{
::SetForegroundWindow(hApPrev);
::PostMessage(hApPrev,WM_ACTIVATE,WA_CLICKACTIVE,0);
}
return 0;
}
try {
Application->Initialize();
Application->Title = "Expediciones";
Application->CreateForm(__classid(TExpediciones), &Expediciones);
Application->CreateForm(__classid(TDatos), &Datos);
Application->CreateForm(__classid(TConsultaGenerica), &ConsultaGenerica);
Application->CreateForm(__classid(TListaSeleccion), &ListaSeleccion);
Application->CreateForm(__classid(TEntradaPistola), &EntradaPistola);
Application->CreateForm(__classid(TPresPreliminar), &PresPreliminar);
Application->Run();
}
catch (Exception &exception) {Application->ShowException(&exception);}
ReleaseMutex(hInstanceMutex);
CloseHandle(hInstanceMutex);
return 0;

Así, cada vez que se llama al programa, carga la instancia que ya estaba abierta o la crea.
Pero ahora, cada vez que se llama a este programa desde otro pasándole el parámetro, no funciona, porque el evento OnActivate no se ejecuta.

¿Como podría forzar que se activase este evento?

Gracias mil...

[Vidal]

Hola!

Bueno además de que no consigo que se ejecute el evento On
Active hay otro problema. He probado ha hacerlo con el evento OnPaint, que ese si que se ejecuta cada vez, pero ocurre que el ParamStr(); no carga de nuevo el valor, de manera que debería encontrar la manera de pasar un valor de una aplicación a otra, a un objeto de la misma.
¿Hay alguna manera de hacer que se refresque el ParamStr? ¿Hay alguna forma de pasar un valor de una aplicación a otra a un objeto en concreto?

No sé, creo que estas son para Leo o R.Porcar...

Gracias ...