[[escafandra]]

Voy a explicar una forma sencilla de conseguir lo que pretende yelian.

Supongamos que tenemos un proyecto que se llama Project1 que es nuestra aplicación. Pues abrimos el archivo para editarlo en el IDE del Builder. Tenemos algo momo esto:

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   try
   {
       Application->Initialize();
       Application->CreateForm(__classid(TForm1), &Form1);
       Application->Run();
   }
   catch (Exception &exception)
   {
       Application->ShowException(&exception);
   }
   return 0;
}

Pues vamos a realizar algunos cambios:

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
   // Nombro desde código mi aplicación
   char AppName[] = "Mi Aplicacion";
   // Cambio temporalmente el nombre de mi aplicación
   Application->Title = "XXMi AplicacionXX"; 
   // Para buscar una ventana con el verdadero nombre
   HWND hOldAppW = ::FindWindow("TApplication", AppName);
   // Y restauro el nombre ca había cambiado.
   Application->Title = AppName;
   // Si encontré mi aplicación corriendo la termino
   if(hOldAppW)
      PostMessage(hOldAppW, WM_QUIT,  0, 0);

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

Saludos.