Controlar forms y procesos

[vivamotos]

Saludos,

Estoy creando un programa principal que hace Show() de varios forms, y en un momento determinado me gustaría saber la cantidad de forms activos y cuales son, se puede?.

La otra cosa que quiero es controlar que un programa no se ejecute 2 veces. es decir que si al clicar otra vez al programa ya esta funcionando te avise de que ya existe este programa en ejecución.

Grácias.

[dec]

Hola,

Respecto de lo primero cuentas con la variable global "Screen", que te da acceso a todos los formularios, me parece que "visibles" o simplemente "creados", en un momento dado. Y, respecto de lo segundo, acaso lo mejor podría ser que intentaras traducir la unidad UIApp.pas del maestro Román a C++, puesto que está escrita en Delphi.

[[escafandra]]

Yo repasaria la variable TApplication::Components y TApplication::ComponentCount.

Para la segunda cuentión, yo lo resuelvo así:

//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   char AppName[] = "Nombre Aplicacion";
   Application->Title = "XXNombre AplicacionXX"; // Cambio momentaneamente el nombre para no encontrarma a mi mismo...
   HWND W = ::FindWindow("TApplication", AppName);  //Busco si la ventana existe...
   Application->Title = AppName;   // Recupero el verdadero nombre de la aplicación
   
   // W!=0 indica que esta abierta. W es el Handle de esa ventana
   if(W){
      // Restauro la ventana de la aplicación que esta ya abierta
      ShowWindow(W, SW_RESTORE);
      SetForegroundWindow(W);
      Application->Terminate();
      return 0;
   }

   // Resto normalmente
   try
   {
       Application->Initialize();
       Application->CreateForm(__classid(TForm1), &Form1);
       Application->Run();
   }
   catch (Exception &exception)
   {
       Application->ShowException(&exception);
   }
   return 0;
}
//---------------------------------------------------------------------------

Saludos.